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PRZEDMOWA 


Język Turbo Pascal nie wymaga rekomendacji. Został on 
opracowany przez firmę Borland International na wzór 
znanego języka programowania Pascal i wraz z językami 
C i Modula-2 należy do wąskiego grona najważniejszych 


współczesnych języków programowania mikrokomputerów. 


O sukcesie języka Turbo Pascal zadecydowała jego wers— 
Ja 3.0 opracowana dla mikrokomputerów 8-bitowych, a 
następnie przeniesiona na IBM PC. Od tego czasu język 
podlegał ciągłemu doskonaleniu. W jego wersji 4.0 wpro— 
wadzono bardzo wygodne zintegrowane Środowisko opera— 
cyjne, nowe typy danych wzorowane na języku C, możli — 
wość dzielenia programu na rozłącznie kompilowane mo— 
duły oraz obszerny zestaw bibliotek, w tym bibliotek 
graficznych i systemowych. 


Kolejnym etapem rozwoju języka Turbo Pascal było opra— 
cowanie pod koniec 1988 roku profesjonalnej wersji S.O, 
stanowiącej przedmiot niniejszej książki. Wersję tę wy- 
posażono w zintegrowany system uruchomieniowy, nowe ty- 
py procedurowe, system nakładek, Środki do programowania 
hybrydowego oraz wiele nowych procedur bibliotecznych, 

a także w wolno stojący uruchamiacz CTurbo Debugger> i 
makroasembler CTurbo Assembler). 


Niniejsza książka dzieli się na 5 części: 
Środowisko, Język, Biblioteki, Asembler, Uruchamiacz 


poświęconych najważniejszym elementom systemu profesjo— 


nalnego, w skład którego wchodzą 


Turbo Pascal 5.0 
Turbo Assembler 
Turbo Debugger 


zgodnie z podanymi nazwami produktów, w kolejnych roz— 
działach przedstawiono: 


zintegrowane Środowisko operacyjne implementacji, 
system zintegrowany i wsadowy, 
opis języka, 


© 
© 
© 
e opisy procedur bibliotecznych, 
e język asemblerowy 

e 


rozbudowany uruchamiacz wysokiego poziomu. 


Należne miejsce poświęcono nowym elementom języka, a wśród 
nich tŁypom proceduralnym, procedurom nakładkowym, progra— 
mowaniu asemblerowemu, metodom tworzenia programów hybry- 


dowych oraz środkom uruchomieni owym. 
» 
3x 3e 


zZycząc Czytelnikom przyjemnej lektury pragnę złożyć serdeczne 
podziękowanie Redaktorom WKŁ — Pani Marii Łopuszniakowej, 
Pani Marii Dylewskiej, Pani Elżbiecie Gawin i Panu Lechowi 
Pilarowskiemu za życzliwe potraktowanie mojej książki oraz 


specjalne podziękowanie Pani Beacie Urbańskiej za komputerowe 
opracowanie tekstu. 


Jan Bielecki 


CZĘŚĆ |. ŚRODOWISKO 


1. WPROWADZENIE 


Rozbudowane Środowisko operacyjne, składające się z kompi — 
latora języka Turbo Pascal 5.0, złączonego z nim edytora 
ekranowego, konsolidatora i bibliotek, opracowane przez firmę 
Borland International z przeznaczeniem dla mikrokomputerów 
rodziny IBM PC, jest nazywane zintegrowanym systemem Turbo 


Pascal. 


Do licznych możliwości profesjonalnej wersji języka, znanej 
jako system Turbo Pascal 5.0, należy zaliczyć: 


e Udostępnienie bardzo wygodnego i znacznie rozszerzonego 
środowiska operacyjnego. 

© Znaczne zwiększenie szybkości kompilowania programów. 

© Umożliwienie kompilowania programów, których kod rezydujący 
w pamięci operacyjnej zajmuje więcej niż 64 KB. 

© Umożliwienie posługiwania się nakładkowaniem. 

© Udostępnienie środków kompilacji warunkowej i sterowania 
sposobem generowania kodu za pomocą dyrektyw preprocesora. 

e Stworzenie możliwości dzielenia dużych programów na roz— 
łącznie kompilowane moduły. 

e Udostępnienie nowych typów standardowych, ułatwiających 
programowanie systemowe, w tym typów proceduralnych. 

e Udostępnienie obszernej, wstępnie skompilowanej biblioteki 
procedur graficznych. 

e Udostępnienie środków umożliwiających emulację operacji 
zmiennopozycyjnych. 


e vdostępnienie mechanizmów umożliwiających tworzenie pro— 
gramów wynikowych z podprogramów napisanych w różnych Jjęzy- 


kach programowania. 

© Zapewnienie współpracy z pamięcią rozszerzoną CEMS. 

e Podwyższenie jakości generowanego kodu poprzez jego opty- 
malizację i eliminowanie z programu wynikowego zbędnych pod- 


programów bibliotecznych. 


Wizytówka systemu 


2480) Edit Run _ Compile Sptions Bebug _ Break/watch 
Edit 
Line i Col 1 Insert Indent Unindent CC: HONAME. PAS 


Turbo Pascal 


Version 5.0 
Copyright (c) 1983, 1988 by 
Borland International, Inc. 


Watch 


Fl-Help F5-Zoom F6-Switch F7-Irace F8-Step F3-Make F10-Menu 


1.1. Posługiwanie się menu 


Wywołanie systemu Turbo Pascal odbywa Się za pomocą Czapisa— 


nej małymi albo dużymi literami> dyrektywy 


TURBO 


Bezpośrednio po wykonaniu tej czynności, na ekranie pojawia 


się główne menu, a na jego tle informacja o numerze wersji 
systemu. Naciśnięcie dowolnego klawisza klawiatury powoduje 
usunięcie tej informacji i odsłonięcie ekranu podzielonego na 
następujące części: 
e Wiersz menu, składający się z pól 

File, Edit, Run, Compile, Options, Debug, 
© Okienko edytora, zatytułowane 

Edit 


Break/Watch 
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e Okienko obserwacyjno/wyjściowe, początkowo zatytułowane 
Watch 
e Wiersz opisów kluczy, zawierających informacje na temat 


funkcji przypisanych wybranym klawiszom Fn. 


Okienko edycyjne tt obserwacyjne 


File Edit Run Cospile 8ptions Bebug Break/watch 
Edit 


Line 10 Col 1 Insert Indent Unindent C: POWER. PAS 
program Hatch, 


var 
Pow : integer; 


: integer) : integer; 


= 1 ther Power :- Base 
. else Power :2 Base. E' Power(Base,Exp - 1) 


for Pow := 1 to 5 do 
Kriteln(Power(Z,Pow)) 
end. 


Exp: 3 
Base: 2 
Pow: 3 


A1t: Fi-Last help F3-Pick F6-Swap F3-Conpile X-Bdt 


Okienko edycyjne L wyjściowe 


File Edit Run £onpile Options Bebug Break/watch 
Edit 
Line 3 Col 1 Insert Indent Unindent CC: POWER. PAS 
function Power(Base : integer; Exp : integer) : integer; 
begin 
= 1 then Power :2 Base 
else Power :=- Base * Power(Base,Exp - 1) 

end; 
begin 

for Pow :z= 1 to 5 do 

Kriteln(Power(2,Pow)) 

end. 
GC: MPS)c: 
G: MPS>cd Ntp5 
GC: MP5) turbo 
2 
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Fi-Help F5-Zoom F6-Switch F7-Irace F8-Step F3-Nake F18-Nenu 


W każdej chwili posługiwania się systemem Turbo Pascal jest 
aktywny wiersz menu albo jedno z wymienionych okienek. Ponad— 
to na ekran mogą być przywoływane okienka pomocnicze związane 
z realizowaniem funkcji systemu. W szczególności naciśnięcie 
w dowolnym momencie klawisza Shift-F1O powoduje przywołanie 


na ekran okienka pomocniczego zawierającego informację o 


numerze wersji systemu. 


Wyróżnienie wiersza menu objawia się inwersją jednego z jego 
pól. Wyróżnienie okienka edycyjnego albo wyjściowego objawia 
się zwiększeniem jasności słowa tytułującego okienko Codpo— 

wiednio Edit albo Watch lub Output) oraz zmianą pojedynczej 

linii, na której znajduje się Ło słowo na linię podwójną. 


Wyróżnienie wiersza menu następuje po naciśnięciu klawisza 
F1O. Czynność ta może być wykonana w dowolnym momencie dzia— 
łania systemu. Wybranie funkcji określonej przez główne menu 
może być dokonane na kilka sposobów. Najprostszym jest wpro- 
wadzenie z klawiatury pierwszego znaku nazwy pola wymienionej 
w menu. Innym jest posłużenie się klawiszami strzałek pozio- 
mych, a po przemieszczeniu się na wybrane pole menu, naciśnię- 
cie klawisza Enter. W każdym z opisanych przypadków Cz wy-— 
Jątkiem Edit» nastąpi wywołanie podmenu zawierającego opcje. 
Wybranie funkcji określonej przez opcję podmenu odbywa się w 
sposób analogiczny do wyboru funkcji z menu CŁym razem używa 
się klawiszy strzałek pionowych 1 może powodować wywołanie 
kolejnego podmenu. Należy dodać, że jeśli po wybraniu pierw— 
szego podmenu zostaną użyte klawisze strzałek poziomych, to 
na ekran będą przywołane sąsiednie podmenu głównego menu. 


Właściwość ta jest bardzo przydatna w początkowym okre— 


sie zapoznawania się z systemem, kiedy rozmieszczenie jego 


funkcji między podmenu nie jest jeszcze dobrze znane. 
W przypadku omyłkowego wyboru podmenu można cofnąć się na 
wyższy poziom menu naciskając klawisz Esc. Naciśnięcie Łego 
klawisza w głównym menu powoduje aktywowanie ostatnio akty 


wnego okienka edycyjnego albo obserwacyjno-wyjściowego. 


Wybieranie funkcji głównego menu może być znacznie przyspie- 


Szone za pomocą klawisza Alt. Naciśnięcie go w dowolnym 


momencie wraz z pierwszą literą pola głównego menu powoduje 


natychmiastowe wykonanie funkcji związanej z tym polem. w 
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szczególności oznacza to, że w celu wykonania funkcji Edit 


głównego menu, wystarczy wprowadzić z klawiatury znak ALt-E 


Czamiast naciskać najpierw klawisz F1O, a następnie ED. 


Poza wymienionymi klawiszami F1O, A1t-F1O i Alt-p (gdzie p 
jest pierwszą literą pola głównego menu, wiele użytecznych 
spełniają klawisze Fn, Alt-=Fn i Ctrl-n 


funkcji 


F1 
F2 


F3 


F4 
FS 
F6 
F7 
F8 


FO 


F1O 
A1ŁtŁ-F1 


AJt-F3 


ALt-FS 


przywołanie na ekran informacji wyjaśniających, 
związanych z bieżącym kontekstem użycia systemu; 
zapamiętanie na dysku tekstu znajdującego Się w 
okienku edycyjnym; 

podjęcie akcji umożliwiającej załadowanie do okien— 
ka edycyjnego zbioru o dowolnie wybranej nazwie 
Cprzez domniemanie przyjmuje się, że jest to zbiór 
z rozszerzeniem .PASJ; 

wykonanie programu aż do wiersza, w którym znajduje 
się kursor; 

powiększenie/zmniejszenie okienka aktywnego; 
przełączenie aktywności między okienkiem edycyjnym 
i obserwacyjno-—wyjściowym, a z dowolnego menu przy- 
wrócenie aktywności okienka; 

wykonanie krokowe programu, z wchodzeniem w proce— 
dury; 

wykonanie krokowe programu, bez wchodzenia w pro"- 
cedury; 

skompilowanie programu w trybie Make Cpor. punkt 
1.30 Cprzez domniemanie przyjmuje się, że chodzi o 
program źródłowy znajdujący się w okienku edycyj- 
nym ; 

przełączenie między głównym menu i aktywnym okien- 
kiem; 

przywołanie na ekran ostatnio rozpatrywanych in- 
formacji wyjaśniających; 

podjęcie akcji umożliwiającej załadowanie dc okien-- 
ka edycyjnego jednego z ostatnio używanych zbiorów 
źródłowych; 

ujawnienie pełnego ekranu, na który Są wyprowadzane 
wyniki wykonywania programów (część tegc ekr znu 
jest wyświetlana w okienku wyjściowym; 
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A1t£-F6 — wymiana zawartości okienka Cna przykład w okienku 
obserwacyjno-wyjściowym przełączenie z okienka 
obserwacyjnego na wyjściowe i odwrotnie); 

AL1Ł-F9 — skompilowanie programu albo modułu źródłowego 
znajdującego się w okienku edycyjnym. 

Ctrl-Fi — uzyskanie informacji o identyfikatorze wyróżnionym 
przez kursor; 

Ctrl-F2 — zakończenie uruchamiania programu; 

Ctrl-F3 — wyświetlenie retroaktywnego Śladu wywołanych 
procedur; 

Ctrl-F4 — wyznaczenie wartości wyrażenia; 

Ctrl-F7 — wstawienie wyrażenia do okienka obserwacyjnego; 


Ctrl-F8 — zastawienie / usunięcie pułapki programowej. 


Funkcja określona przez każdy z wymienionych klawiszy może 
być wykonana w dowolnym kontekście (oczywiście poza okre- 


sem wykonywania programu). 


W celu zakończenia współpracy z systemem Turbo Pascal można 
posłużyć się klawiszem A1t-X. Spowoduje to wykonanie czyn— 
ności kończących i wywołanie systemu DOS. 


1.2. Przygotowanie programów 


Integralną częścią systemu Turbo Pascal jest edytor ekranowy. 
Jest on wywoływany z głównego menu Cnp. klawisz E> albo z do- 
wolnego innego kontekstu Cnp. klawisz A1t-ED. Obszerny opis 
edytora, wzorowanego na edytorze WordStar, przytoczono w Do— 
datku B. Tym, którzy nie znają edytora WordSŁar wystarczy po- 
dać, że przemieszczanie kursora w górę, w dół, w lewo i w 
prawo odbywa się za pomocą klawiszy Sstrzałkowych, usuwanie 


znaków za pomocą klawiszy Backspace Ce) i Delete CDelJ, 
a wstawianie wierszy 


USU" 


wanie wierszy za pomocą klawisza Ctrl-Y, 
pustych za pomocą klawisza Ctrl-N. Poza wymienionymi, wiele 


użytecznych funkcji spełniają następujące klawisze 
Home — przesunięcie kursora na początek wiersza; 


End — przesunięcie kursora na koniec wiersza; 


Ctrl-Home — przesunięcie kursora do pierwszego wiersza 
ekranu; 
Ctrl-End — przesunięcie kursora do ostatniego wiersza 


ekranu; 
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PgUp — przywołanie na ekran poprzedniej strony; 
PgDn — przywołanie na ekran następnej strony; 
Ctrl-PgUp — przesunięcie kursora do początku tekstu; 
Ctrl-PgDn — przesunięcie kursora do końca tekstu; 


CGtŁrl-T — usunięcie końcowych znaków słowa; 
Ctrl-QY — usunięcie końcowych znaków wiersza; 
Ins — przełączenie z trybu wstawianie znaków do 


trybu zastępowanie znaków i odwrotnie. 


Jeśli podczas przygotowywania tekstu źródłowego (programu 


albo modułu) zostanie naciśnięty klawisz Ctrl-Fi, to na ekran 


zostaną przywołane informacje na temat wyróżnionego przez kur- 


sor elementu języka. W szczególności, jeśli będzie to doty-— 
czyć słowa Circle, które jest nazwą jednej z funkcji bi- 
blioteki graficznej, Ło na ekranie pojawi Się krótki opis 
tej funkcji oraz wykaz funkcji jej pokrewnych. 


ORienkRo vyjaśniające 


File Edit Run Conpile Options Bebug Break/watch 
Edit 
Line 13 Col 6 Insert Indent Unindent C:CIRCLE.PAS 
4 InitGraph » 


uses Help 
Crt ,Graph; 
const procedure Circle(X,Y : integer; 
Radius : i Radius : word); 
var 
Driver,Mod| Draws a circle using (X,Y) as the center 
hegin point. 
Driver := 
InitGraph( | Unit nane HZJN) 
Circle(Get | See also Arc Ellipse 
GełńrcCeords GetóspectRatio 
Delay(2000 PieSlice 
CloseGraph 
end. 


Fi-Help index- lt -Pick topic (—-Go to topic Esc-Exit Help 


Zakończenie edycji nie wymaga wykonania specjalnych czynno- 
ści. Pożądane jest jednak zapamiętanie przygotowanego tekstu 
w zbiorze dyskowym. W Łym celu wystarczy nacisnąć klawisz Fe 
albo po wywołaniu głównego menu Cklawisz F1O> wybrać pole 
File Cklawisz FD, a następnie opcję S CSave) albo W CWriteJ. 
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Zalecanym sposobem przygotowywania zbiorów źródłowych jest 
przyspieszone wybranie pola File Cklawisz A1Ł-—FD, a następ— 
nie opcji Load Cklawisz L). Po wykonaniu Łych czynności na 
ekran jest przywoływane okienko dialogowe, w którym należy 
podać nazwę zbioru. Jeśli nie jest to nazwa już wyświetlana, 
to należy wprowadzić ją z klawiatury i nacisnąć klawisz En— 
ter. Jeśli jest zbliżona do wyświetlanej, to można poddać ją 
edycji i w dowolnym momencie nacisnąć klawisz Enter. Spowo— 
duje to załadowanie podanego zbioru do okienka edycyjnego. 
Jeśli zbiór taki nie istnieje, to okienko edycyjne zostanie 
wyczyszczone. Wprowadzony tekst można zapamiętać na dysku 
(klawisz F22> jako zbiór o uprzednio podanej nazwie. 


Innym sposobem przygotowania tekstu jest przyspieszone wybra— 
nie pola File Cklawisz ALt-F>, a następnie wybranie opcji New 
Cklawisz N). Spowoduje to wyczyszczenie okienka edycyjnego 

i obranie nazwy zbioru NONAME. PAS. Jeśli po zakończeniu edy— 
cji podejmie się akcję zapamiętania tekstu w zbiorze, to na 
ekran zostanie przywołane okienko zawierające zapytanie, czy 
nazwa NONAME. PAS nie powinna zostać zmieniona na inną. Po 


dzieleniu odpowiedzi nastąpi dokończenie akcji. 


Przykłady Tworzenie ti modyfikowanie programów 


a Utworzenie nowego programu t zapamiętanie go na dysku 


begin 
WriteC'Hello, I am JanB'J 
end. 
Wykaz czynności: 
e Wybranie pola File głównego menu Cklawisz A1t-FO. 
e Wybranie opcji Load (klawisz LV. 
e Określenie nazwy zbioru. 


e Wprowadzenie tekstu programu. 


e Zapamiętanie zbioru na dysku (klawisz F2)V. 


b Utworzenie programu bez zapamiętania go na dysku 


Wykaż czynnośc i: 
e Wybranie pola Filie głównego menu Cklawisz Alt" 
e Wybranie opcji New (klawisz N). 


e Wprowadzenie tekstu programu. 
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Wprowadzony program może być poddawany modyfikacjom, kRompt- 
lacjom i wykonywaniu. Ponieważ jest przechowywany w pamięci 
operacyjnej, nie musi być zapamiętany na dysku. 


1.3. Kompilowanie programów i modułów 


Kompilowanie programów i modułów może odbywać się w trybie 
Comptłle, Make t Build. Jeśli po wybraniu pola Compile C(kla- 
wisz A1Ł-C), zostanie wybrana opcja Destination Disk Ckla— 
wisz D), to produkt kompilacji zostanie umieszczony w pamię— 
ci zewnętrznej. Jeśli kompilacja dotyczy zbioru Nazwa. PAS 
zawierającego program, to zostanie utworzony zbiór Nazwa.EXE, 
a jeśli dotyczy zbioru zawierającego moduł, to zostanie utwo— 


rzony zbiór Nazwa. IPU. 


Kompilowaniu w trybie Compile podlega program albo moduł za— 
ładowany do okienka edycyjnego. W celu wykonania kompilacji w 
tym trybie należy nacisnąć klawisz AL1tŁ-FS Calbo kolejno kla— 
wisze F1O, C, CC). Kompilacja w trybie Compile jest możliwa 
Łylko wtedy, gdy są już skompilowane i znajdują się na dysku 
Calbo w bibliotece TURBO. IPL>, wszystkie moduły wymienione w 


wyszczególnieniu modułów. 


Wywołanie kompilatora w trybie Make i Butłd różni Się tym od 
Jego wywołania w trybie Compile, że rezultatem kompilacji 
jest zawsze program wykonywalny Cumieszczony w pamięci opera— 


cyjnej albo na dysku, stosownie do stanu opcji Destination)DJ. 


Wywołanie kompilatora w trybie Make powoduje rozpoczęcie kom— 
pilacji od programu znajdującego się w zbiorze pierwotnym. 
Jeśli nazwa tego zbioru nie została określona (co można uczy— 
nić posługując się klawiszami A1t-C, P>, to rozpoczyna się od 
programu znajdującego Się w okienku edycyjnym. Jeśli program 
odwołuje się bezpośrednio albo pośrednio do modułów, które 
podlegały modyfikacji już po utworzeniu wykorzystujących je 
innych modułów, to kompilowane Są również i te moduły. W każ— 
dym przypadku system ogranicza się jednak tylko do tych kom- 
pilacji, które są niezbędne. W szczególności, nie kompiluje 
się ponownie modułu odwołującego się do innego modułu, w któ— 


rym wprowadzono zmiany nie naruszające jego części publicznej. 
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wywołanie kompilatora w trybie Butld różni się tym od jego 


wywołania w trybie Make, że Są przeprowadzane wszystkie kom- 


pilacje, niezależnie od tego, czy Są niezbędne. 


Należy dodać, że nawet wtedy, gdy program wykonywalny jest 
umieszczany w pamięci operacyjnej, skompilowane moduły, 


zawarte w zbiorach z rozszerzeniem . IPU są umieszczane w 


pamięci zewnętrznej. 


Przykłady Komptlowanie programów ti modulów 


a Skomptlowvanie programu znajdującego się w okienku edycyjnym 


begin 
wWritŁeC "Hello world”) 


end. 


Wykaz czynności: 
e Naciśnięcie klawisza ALlt—FS. 


Jeśli kompilacja zakończy Się sukcesem, to program można 


naciskając klawisz Ctrl-F9 Calbo AL1Ł—R, RJ, a 
naciskając 


wykonać, 
następnie zapoznać się z wynikami wykonania, 


klawisz ALtŁ-—FS. 


b Skomptlowanie programu znajdującego się v zbiorze FIRST. PAS 


Wykaz czynno śŚc 4: 


e Określenie nazwy zbioru pierwotnego Cklawisze ALT-C, P, 
a następnie nazwa FIRST. PASJ. 


e wykonanie kompilacji w trybie Make Cklawisz F9V. 


Jeśli kompilacja zakończy się sukcesem, to program można 


naciskając klawisz Ctr1l-F9 Calbo ALtŁ—R, RJ, a 


wykonać, 
na przykład 


następnie zapoznać się z wynikami wykonania, 
aktywując okienko obserwacyjno-—wyjściowe CF62 i sprowa— 
dzając do niego dolną część ekranu wyjściowego CALt-F6G>. 


1.4. Usuwanie błędów i wykonywanie programów 


Rzadko się zdarza, aby kompilowany program był bezbłędny. Po- 
nieważ kompilator wykrywa wszelkie odstępstwa od wymagań de- 


finicji języka, samą kompilację można traktować jako element 
uruchamiania programu. 


Jeśli kompilator wykryje błąd, to kompilacja zostanie przer” 


wana, a w pierwszym wierszu okienka edycyjnego pojawi się 


20 


komunikat diagnostyczny. Jednocześnie kursor zostanie usytuo- 
wany w pobliżu miejsca, w którym wystąpił błąd. Po poprawie— 

niu błędu, można ponowić kompilację programu albo modułu. Ze 

względu na dużą Szybkość kompilacji można zaakceptować decy- 

zję implementacyjną, wykrywania tylko jednego, a nie wszyst- 

kich błęcd*<":. 


Przyk: ac 


beg. n 
write(Hello world") 
end. 


Skompi lowanie przytoczonego programu powoduje wyprowadzen: e 


komuni katu 
Error 3: Unknown identifier 


Cnieznany identyfikator. Oczywiście przyczyna błędu jest in- 
na i polega na tym, że słowo Hello nie jest poprzedzone apo— 


strofem. 


Po usunięciu wszystkich błędów wykrytych przez kompilator, 
można program skompi lować, a następnie spowodować jego wyko— 


nanie. 


Przebieg wykonania programu zależy od tego czy wpada on w 
pętlę, czy też kończy Się w sposób normalny albo awaryjny Cpo 
zaistnieniu błędu fatalnego). Jeśli wpada w pętlę, to może 
być przerwany za pomocą klawisza Ctrl-Break, ale tylko wtedy, 
gdy są spełnione dwa warunki: 1 klawisz ten nie został pro— 
gramowo dezaktywowany, 2 program wykonuje operację wejścia— 
-—wyjścia. W przeciwnym razie, jest konieczne ponowne załado— 


wanie systemu. 


Po wykryciu błędu fatalnego Cpor. Dodatek C> na ekran jest 
wyprowadzany komunikat 


Runtime error nnn at SSSS : OOOO 
określający numer błędu nnn) 1 adres wystąpienia błędu 
CSSSS : OOOOJ. 
Przykład Program zawierający bląd fatalny 

begin 


Writec2 „ OJ 
end. 
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Wykonywanie programu zostanie przerwane z powodu dzielenia 


przez O. Na ekranie pojawi się wówczas komunikat 
Runtime error 200 at OOOO : OO1E 


a po naciśnięciu dowolnego klawisza klawiatury, w pierwszym 


wierszu okienka edycyjnego zostanie wyprowadzony komunikat 
Error 200 : Division by zero 


(Błąd nr 200 : Dzielenie przez zero). 


1.5. Uruchamianie programów 


Usunięcie błędów składniowych jest jedynie warunkiem 
kontecznym utworzenia poprawnego programu. Przygotowanie 
programu, którego działanie ściśle odpowiada założonym 
specyfikacjom, najczęściej wymaga jego uruchomienia. Zadanie 
to bardzo ułatwia wchodzący w skład systemu zintegrowanego 


symboliczny program uruchomieniowy, nazywany tu urucha— 


miaczem. 


Do najważniejszych właściwości uruchamiacza należy zaliczyć 
— możliwość śledzenia przebiegu wykonywania programu; 

- możliwość analizowania wyników wykonywania programu w 
miarę ich generowania; 

- możliwość obserwowania przebiegu zmian wartości zmiennych 
i wyrażeń; 

- możliwość dynamicznego modyfikowania wartości zmiennych, 


w zależności od przebiegu wykonywania programu. 


Dzięki temu, że uruchamiacz Stanowi taką samą część systemu 
zintegrowanego jak na przykład edytor lub kompilator, typowy 
cykl uruchomienilowy, składający Się z edycji, kompilacji i 
uruchamiania, może być wykonywany bez opuszczania systemu. W 
tych przypadkach, gdy jest pożądane skorzystanie z dodatko— 
wych środków uruchomieniowych, moźna posłużyć się uruchamia— 


czem wolno stojącym — opisanym w dalszej cześci książki. 


Warunki uruchamiania symbolicznego 


W celu zagwarantowania, aby podczas wykonywania programu istniał 
możliwość symbolicznego odwoływania się do obiektów programu 
źródłowego, należy już w trakcie kompilacji programu zapewnić 


wygenerowanie odpowiednich informacji uruchomieniowych. 
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Najłatwiej uczynić to, ustawiając w środowisku zintegrowanym 


opcje 


Options / Compiler / Debug Information On 


Options / Compiler / Local Symbols On 


albo poprzedzając każdy kompilowany moduł programu 
odpowiednio dyrektywami 


<$D+> 


(8$L+> 


Użycie opcji Debug Information On oraz dyrektywy C$D+> powo— 
duje wygenerowanie informacji dotyczących symboli globalnych 
Czadeklarowanych na zewnątrz procedur, a użycie opcji Local 
Symbols On oraz dyrektywy €$L+> powoduje wygenerowanie infor— 
macji dotyczących symboli lokalnych Czadeklarowanych w proce- 


durach). 


Opcja Local Symbols jest brana pod uwagę jedynie wtedy, gdy 
posłużono się opcją Debug Information. Jeśli pewien moduł 
zostanie skompilowany w zasięgu opcji Debug Information Oy/, 
albo w zasięgu dyrektywy <$D->, to nie będzie mógł podlegać 
uruchamianiu symboliczneemu. Nie wyklucza to jednak możli — 
wości symbolicznego uruchamiania pozostałych modułów progra— 


mu. 


Uwaga: Jeśli użyta dyrektywa pozostaje w sprzeczności z użytą 
opcją, Ło przeważa dyrektywa. 


Przykład Przygotowanie modułu do uruchamiania symbolicznego 


<$D+> 
program Greet; 


var 
Name : String; 

begin 
WritelnC'What is your name” "2; 
Readlnć Name); 
Writeln(C'Hellc *' ,NaneD) 

end. 


Ekran monitora 


'Środkową część ekranu monitora wypełniają dwa okienka: okien-— 


Jko edycyjne i okienko obserwacyjno-wyjściowe. W okienku edy- 
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cyjnym znajduje się fragment tekstu uruchamianego programu, a 
w okienku obserwacyjno-wyjściowym znajduje się albo wykaz ob- 
serwowanych zmiennych i wyrażeń, albo fragment ekranu wyjś— 


ciowego, na który są zazwyczaj wyprowadzane wyniki wykonania 


programu. 


Jesli okienko obserwacyjno-—wyjściowe jest zatytułowane 
napisem Watch, to jest nazywane okienkiem obserwacyjnym, a 
jeśli jest zatytułowane napisem Output, to jest nazywane 
okienkiem vyjJŚciowym. Podobnie jak przełączanie między 
okienkiem edycyjnym i obserwacyjno-—wyjściowym odbywa się za 
pomocą klawisza F6, tak przełączanie między okienkiem 
obserwacyjnym i wyjściowym odbywa się za pomocą klawisza 
AL1tŁ-F6. Zarówno okienko obserwacyjne jak i wyjściowe może być 
powiększone do pełnego rozmiaru ekranu. W Łym celu wystarczy 
nacisnąć klawisz F5. Ponowne naciśnięcie tego klawisza 


powoduje przywrócenie poprzedniego rozmiaru okienka. 


Śledzenie programu 


Najłatwiejszym sposobem lokalizowania błędów programu wyni — 
kowego jest wykonywanie go krok po Rroku i analizowanie ko- 
lejności i skutków wykonania poszczególnych instrukcji. 


W celu podjęcia śledzenia, należy z głównego menu wybrać pole 
Run, a następnie opcję Trace Into Cskrót F70. Jeśli program 
nie jest jeszcze skompilowany, to odbędzie się to w trybie 
Make. Po zakończeniu kompilacji, w okienku edycyjnym pojawi 
się fragment modułu głównego, w którym będzie wyróżniony 


wiersz zawierający słowo kluczowe begin. 


Wykonywanie kolejnych instrukcji programu może odbywać się za 
pomocą klawiszy F7, F8 i F4. Ich znaczenie jest następujące 


F7 — wykonaj instrukcję zawartą w wyróżnionym wierszu 
programu — z zatrzymaniem w procedurze; 

F8 — wykonaj instrukcję zawartą w wyróżnionym wierszu 
programu — bez zatrzymania w procedurze; 

F4 — zastaw tymczasową pułapkę w wierszu zawierającym 
kursor, a następnie podejmi j wykonywanie programu, aż 


do wpadnięcia w pułapkę albo do zakończenia. 
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Zastawianie pułapek 


Ponieważ wykonywanie programu Krok po kroku może być bardzo 
czasochłonne, często postępuje się w taki sposób, że przed 
wybranymi instrukcjami programu zastawia Się pułapki, a 
następnie podejmuje wykonywanie programu aż do wpadnięcia w 
pułapkę. 


Program z zastawionymi pułapkami 


File Edit Run Conpile Options Debug Break/watch 
Edit 
Line 13 Col 1 Insert Indent Unindent  C:TIME.PAS 
progran Time; 


uses 
Ćrt,Dos; 


var 
Codedfise : longint; 
Uncodedline : DateTine; 
Doc : file; 


begin 
Assign(Doc,' IIME. PAS”); 
Reset (Doc); 
Ge tFT ime (Doc, Coded im2); 
UnpackT ine (CodedTine,UncodedTine); 
uith Uncodedlime do 
Hrite(Year,”.” „Manth,”.” „Bay) 
end. 
Hatch 


Fi-Help F5-Zoom Ff-Switch F?-Irace F8-Step F3-Make F10-Nenu 


W celu zastawienia-usunięcia pułapki, należy przesunąć kursor 


nad wybraną instrukcję programu, a następnie wybrać opcję 
Break-Watch / Toggle Breakpolnt 


albo po prostu nacisnąć klawisz Ctrl1-F8. 


W celu usunięcia wszystkich zastawionych pułapek należy 
wybrać opcję 
Break/Watch / Clear All Breakpoints 
Można również dokonać przeglądu wszystkich zastawionych 
pułapek, wybierając stosowną liczbę razy opcję 
Break/Watch / View Next Breakpoint 


Jeśli aktywowanie programu aż do wpadnięcia w pułapkę nie 
powoduje jego zatrzymania, ponieważ program omi ja pułapki, 
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można posłużyć się klawiszem Ctrl-Break. Jego naciśnięcie 
spowoduje bowiem natychmiastowe przerwanie wykonywania pro" 


gramu i powrót do środowiska zintegrowanego. 


Wyznaczanie wartości zmiennych i wyrażeń 


W każdej chwili gdy wykonywanie programu jest wstrzymane, 


można zapoznać się z bieżącymi wartościami zmiennych i 
wyrażeń. W tym celu należy wybrać opcję 


Debug / Evaluate 


albo nacisnąć klawisz Ctrl —F4. 


Bezpośrednio po wykonaniu tej czynności, jest wyświetlane 
okienko dialogowe podzielone na trzy ramki: Evaluate, Result 
i New Value. W okienku Łym można podawać wyrażenia, których 
wartości chce się wyznaczyć. Po wykonaniu takich czynności 
okienko można zamknąć, naciskając klawisz Esc. 


Koltdowante tdentyftitkatorów 


Sposób reprezentowania wyrażeń jest taki sam jak w programie 
źródłowym. W przypadku kolidowania identyfikatorów, obowią— 
zuje zasada, że znaczenie przypisane identyfikatorom jest 


takie jakie mają one w miejscu zatrzymania programu. 


Odwoływanie się do identyfikatorów przesłoniętych wymaga 


zastosowania kwalifikacji. W ogólnym przypadku identyfikator 
kwalifikowany ma postać 


qual.quał. ... .qGual.td 


w której każde qual jest kwalifikatorem (nazwą modułu albo 
procedury), a td jest identyfikatorem. 


Przykład KwaltfikRowvanie tdentyfikatorów 


Jeśli wykonywanie następującego programu 
program Test; 


const 

Fix : integer = 3; 
procedure Sub; 
const 

Fix : integer = 1; 
begin 

WritelnCFi»>o 
end; 
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begin 
Sub; 
WritelnCFix0 
end. 
zostanie wstrzymane przed pierwszym wywołaniem procedury 
Writeln, to do pierwszej zmiennej Fix można odwołać Się za 
pomocą nazwy kwalifikowanej Test.Fix, a do drugiej za pomocą 


nazwy Test. Sub. Fix albo po prostu Fix. 


Ramka Evaluate 


Jeśli w ramce Evaluate zostanie podane wyrażenie (w szcze— 
gólności nazwa zmiennej), to w ramce Result zostanie wyświet-— 
lona bieżąca wartość tego wyrażenia. Jeśli wyrażenie jest 
nazwą zmiennej, to posługując się klawiszami strzałek piono— 
wych, można przemieścić się do ramki New Value, a w niej 


podać nową wartość zmiennej. 


Ww Łypowych przypadkach, w ramce Evaluate podaje sie po prostu 
nazwę zmiennej. Jeśli po takiej nazwie poda się dodatkowo 
wzorzec Coddzielony od niej przecinkiem, to wyprowadzenie 


wartości odbędzie się zgodnie z podanym wzorcem. 


Wyznaczanie wartośct wyrażeń 


File Edit Run Conpile 8ptions Bebug ireak/watch 
Edi 


t 
Line 6 Col 17 Insert Indent Unindent _C:VALUE. PAS | 


progran Value; 


const Evalaate 

Arr : array [1..3] of | Arrl2] ,2 | 
(20,30,40); 

beqin Result 

BLIUONUNIFANNA| | 30.40 | 
end. 

Nexn value 

| 50 | 


Hatch 


Fi-Help F7-Irace Fo-Step FiG-Nenu TAB-Cycle <—-Modify 
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W najprostszym przypadku, wzorzec może być liczbą. Powoduje 
to wyprowadzenie nie tylko wartości podanej zmiennej, ale 
również wyprowadzenie wartości zmiennych takiego samego typu, 
sąsiadujących w pamięci operacyjnej z daną zmienną. W 
szczególności, jeśli Arr jest tablicą o podanych niżej 


wartościach elementów 


const 


Arr : array [1..S5S] of integer = C10O0,20,30,40,505D; 


to podanie w okienku Evaluate. napisu 


Arr[ej,3 


spowoduje wyprowadzenie w okienku Result napisu 
20,30,40 


W ogólnym przypadku, wzorzec może składać się z liczby oraz z 
jednego z niżej wymienionch znaków. Jeśli liczba zostanie 
pominięta, to domniema się liczbę 1. Jeśli znakiem jest F, to 
może po nim nastąpić liczba. 


znak Interpretacja 
$ wyprowadź szesnastkowo; 
je wyprowadź dziesiętnie; 
H wyprowadź szesnastkowo; 
F wyprowadź zmiennopozycyjnie z 11 cyframi; 
Fn wyprowadź zmiennopozycyjnie z n cyframi; 
M wyprowadź każdy bajt zmiennej jako parę cyfr 
szesnastkowych; 
Mc wyprowadź każdy bajt zmiennej zgodnie z c 
(dla c: $, H, X -— szesnastkowo, 
D — dziesiętnie, 
Cc, S — ZNnakowoJ; 
P wyprowadź adres przypisany zmiennej wskazującej 
w postaci segment:o/f/fset; 
R wyprowadź wartości pól rekordu poprzedzone 
identyfikatorami pól; 
S wyprowadź wartości elementów łańcucha w postaci 


szesnastkowej ze znakiem 4 ChashoO; 


X wyprowadź szesnastkowo. 


Przykłady Wyprowadzanie wartości wyrażeń 
W zasięgu deklaracji 
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Child = record 
Name : string; 
Age : integer; 
Hair : CBlack,BlondJ) 
end; 
var 
Isa : Child; 
Arr : array [(1..3] of integer; 
Ref : Child; 


i po dokonaniu nie ujawnionych tu przypisań danych, jest 


prawdziwe następujące zestawienie 


Ramka Evaluate Ramka Result 


Arr C10,20,30) 

Arr[2] ,2H $24,$2E 

Ref PtŁrcC$3005,$A0D) 

Ref ,P 3005: OOOA 

Isa C'Isabel' ,6,Black) 

Isa.R CName: "Isabel" ,Age:6,Hair:Black) 
Ref". Age ,D 6 

Ref". Age ,2M 06 OO 


Obserwowanie wartości zmiennych i wyrażeń 


Bardzo wygodną właściwością uruchamiacza jest możliwość 


ctąglego obserwowania wartości wybranych zmiennych i wyrażeń, 


bez konieczności wielokrotnego posługiwania się okienkiem 


dialogowym. 


Obserwovanie zmiennych t wyrażeń 


File Edit Run Conpile Gptions Bebug Break/watch 
Edit ————— 
Line 2 Col 1 Insert Indent Unindent * C: CHECK. PAS 


program Check; 
const 
Arr : array [1..3] of integer = (20,30,40); 
Rec : record 
Vec : array [1..3] of char; 
Fix : integer 
end = (Vec : (I','S','a'); Fix : 13), 
Fix : integer = -13; 


A ROZOLACY WE 
end. 
Hatch 
Car: AUDI 
Fix: -13 
Rec.Fix: 13 
Rec: ((01,'5s*,'a'),13) 
Arr: (20,30,40) 
Rec.Vec[2]: *S* 


Fl-Help F5-Zoom F6-Switch FlG-Menu Ins-Add Bel-Delete (—-Edit watch 
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Wyrażenie obserwowane w sposób ciągły jest wprowadzane do 


okienka obserwacyjnego. Każda akcja programowa, która 


powoduje zmianę wartości wybranego wyrażenia Ćw szczególności 


zmianę wartości zmiennej) natychmiast ujawnia się w tym 
okienku. 


Umieszczanie wyrażeń w okienku obserwacyjnym, 


a także 
modyfikowanie i usuwanie ich, 


może odbywać się na dwa 
sposoby: poprzez menu albo bezpośrednio przez operacje 
w okienku obserwacyjnym. 


Umieszczenie wyrażenia v okienku 
— wybranie opcji 
Break./WwWatch / Add Watch 


(skrót Ctrl-F70, a następnie podanie wyrażenia jak miało 


to miejsce w ramce Evaluate; 
- uaktywnienie okienka obserwacyjnego, a następnie 
naciśnięcie klawisza Ins 1 podanie wyrażenia. 


Usunięcie wyrażenia 2 okienka 
— wybranie opcji 


Break/Watch / Delete Watch; 


Cusunięciu podlega wyrażenie wyróżnione przez inwersję albo 
przez znak mający postać grubej kropkiD; 
— uaktywnienie okienka obserwacyjnego, 


a po wyróżnienie 
pewnej jego pozycji, 


naciśnięcie klawisza Del. 


Zmodyfitkowanie wyrażenia v okienku 
— wybranie opcji 


Break-/Watch „ Edit 


a następnie dokonanie zmiany i naciśnięcie klawisza Enter; 


— uaktywnienie okienka obserwacyjnego, a po wyróżnieniu 


pewnej jego pozycji, naciśnięcie klawisza Enter, dokonanie 


zmiany i ponowne naciśnięcie tego klawisza. 
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Usunięcie wszystkich wyrażeń z okienka 
— wybranie opcji 
Break/Watch / Remove All Watches; 


- uaktywnienie okienka obserwacyjnego i usunięcie wszyst— 


kich wyrażeń obserwowanych za pomocą klawisza Del. 


Uwaga: Podobnie jak w ramce Evaluate, wyrażenia obserwowane 
mogą być wprowadzane wraz z wzorcami. Skutek użycia wzorca 


jest taki sam jak opisano uprzednio. 


Śledzenie wywołań 


Każde wywołanie procedury powoduje umieszczenie informacji o 
miejscu jej wywołania na stosie wvywolań. W celu wyświetlenia 


stosu wywołań należy wybrać opcję 
Debug / Call stack 


(skrót Ctrl-F30. 


Po wykonaniu tej czynności można zapoznać się z miejscem wy— 
wołania każdej aktywnej procedury wybierając za pomocą klawi— 
szy strzałek pionowych procedurę wywołującą, a następnie na— 


ciskając klawisz Enter. 


Przykład Stos wywolań 
Jeśli na stosie wywołań znajdują się nazwy 


LOCAL 
GLOBAL 
MAIN 


Ło oznacza to, że zatrzymanie wykonywania nastąpiło po tym 

jak z programu Main wywołano procedurę Global, a z niej 
procedurę Local. Jeśli w takiej sytuacji, nastąpi 
przemieszczenie wyróżnienia na pozycję GLOBAL i wtedy zostanie 
naciśnięty klawisz Enter, to nastąpi wyświetlenie, tego 
fragmentu procedury Global, który zawiera wywołanie procedury 
Local. W Łym miejscu będzie można w prosty sposób odwoływać 


się do zmiennych procedury Global. 
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Stos wywolań 


File 
Line 6 


Edit Run 


Conpile 
Col 1 


Gptions Bebug Break/watch 
Insert Indent 


Unindent  C:TRACE. PAS 


program Trace; Call Stack 


LLILUSE 
procedure Third; SECOWB 
begin FIRST 
WritelnC'Hello') — : TRACE 
end; 


procedure Second; 
begin 

Third 
end; 


procedure First; 

begin 
Secomd 

end; 


begin 
First 
end. 


Fi-Help If -Scroll  <—-View call 


zakończenie uruchamiania 


zakończenie uruchamiania programu następuje po wybraniu opcji 


Run / Program Reset 


albo po naciśnięciu klawisza Ctrl-F2. Akcja ta powoduje 
zwolnienie pamięci przydzielonej programowi, zamknięcie jego 


nie zamkniętych jeszcze plików i przygotowanie do ponownego 
wykonania. 


Ponieważ nie następuje usunięcie pułapek, można w łatwy spo- 
sób analizować kilkakrotne wykonanie tego samego programu Cna 
przykład po Ctrl-F2 naciskając klawisz F7 albo F40. Należy 
Jednak pamiętać, że przed przystąpieniem do uruchamiania ko—- 


lejnego programu należy usunąć wsyzstkie uprzednio zastawione 
pułapki wybierając opcję 


Break/Watch . Remove All Watches 


Podsumowanie 

Klawisz Funkc ja 

F4 Wykonuj do kursora 
FS 


Powiększ okienko / Zmniejsz okienko 


FG Przełącz aktywność okienek 
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F7 Śledź pojedyncze instrukcje 


F8 Śledź instrukcje omijając wywołania procedur 
Ctrl-F2 Zakończ uruchamianie programu 

Ctrl-F3 Pokaż stos wywołań 

Ctrl -F4 Wyznacz wartość wyrażenia 

Ctrl-F7 Wstaw wyrażenie do okienka obserwacyjnego 

Ctrl -F8 Zastaw pułapkę / Usuń pułapkę 

Ctrl -F9 Wykonaj program 

AL1t-F5 Pokaż ekran wyjściowy 

A1t-F6 Przełącz aktywność z okienka obserwacyjnego na 


wyjściowe i odwrotnie 


2 — Turbo Pascal 5,0 


2. SYSTEMY 


W skład pakietu Turbo Pascal 5.0 wchodzą dwa systemy progra— 


mowania 


-— system zintegrowany, zawierający wbudowany edytor, 
kompilator, konsolidator i uruchamiacz; 


— system wsadowy wraz z dowolnie dobranym edytorem i 
programami usługowymi ; 
oraz wolno stojące 


- programy usługowe; 
-— asembler ; 


— uruchamiacz. 
Wywołanie systemu zintegrowanego odbywa się za pomocą dyrek — 
ktŁywy 
TURBO options name 
a systemu wsadowego za pomocą dyrektywy 
TPC options name 


w których options reprezentuje opcje wywołania, a name jest 


nazwą programu. 


Wywołanie systemu zintegrowanego jest zazwyczaj upraszczane 


do postaci 
TURBO 


kiedy to określenie opcji oraz wybranie programu poddawanego 


kompilacji odbywa się za pośrednictwem systemu menu. 
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Posługiwanie się systemem wsadowym jest mniej wygodne niż 
systemem zintegrowanym. Ma ono uzasadnienie jedynie wtedy, 
gdy rozmiar pamięci operacyjnej jest niewystarczający, a 
Łakże wtedy, gdy zamierza Się posługiwać innym edytorem niż 


wbudowany w Środowisko. 


2.1. System zintegrowany 


W celu załadowania systemu zintegrowanego wystarczy wydać 
dyrektywę TURBO. Po wykonaniu tej czynności można posługi - 
wać się systemem menu umożliwiającym tworzenie, ładowanie, 
edycję, uruchamianie i wykonywanie programów, a także us— 
tawianie parametrów Środowiska i zapamiętywanie ich w zbio— 


rze konftguracyjnym. 


W zbiorze tym jest między innymi zapamiętywana informacja o 
programie znajdującym się w okienku edycyjnym. Dzięki temu 
można wywołać system zintegrowany nie podając nazwy zbioru, 
a mimo Ło zapewniając sobie załadowanie do okienka edycyj— 


nego programu przetwarzanego w poprzedniej sesji programowej. 


Jeśli w zbiorze konfiguracyjnym nie zapamiętano nazwy pro— 
Jektu, to jest nazwy zbioru, od którego ma się zacząć kom- 


pilacja, Ło można ją podać wprost w dyrektywie Turbo. 


Innymi opcjami, które można podać w tej dyrektywie są 


ZM — wykonaj kompilację w trybie Make; 
-B — wykonaj kompilację w trybie Butla; 
/D — posługuj się dwoma monitorami Cwyniki wykonania 


programu są przesyłane na monitor nieakływny); 
/Tcon/f — posłuż się zbiorem konfiguracyjnym con; Cprzez 
domniemanie przyjmuje się, że jest nim TURBO. IPJ. 


Przykład Utworzenie programu za pomocą systemu TURBO 


Jeśli podczas przetwarzania zbioru GREET. PAS, w zbiorze 
MYCONFIG. TP zapamiętano konfigurację systemu zintegrowanego, 
to w celu utworzenia programu wykonywalnego i umieszczenia 


go w zbiorze GREET. EXE można posłużyć się na przykład 
dyrektywą 


turbo „Cmyconfig.tp /B 
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Typowe wywołanie systemu 


Typowym wywołaniem systemu zintegrowanego jest takie jego wy- 
wołanie, po którym ujawnia się główne menu składające się z 
pól 
File 
Edit 
Run 
Compile 
Options 
Debug 
Break/Watch 
Wybranie dowolnego z nich Cz wyjątkiem Edit> powoduje uaktyw- 
nienie podmenu składającego się z opcji. Znaczenie poszcze— 
gólnych pól i opcji jest szczegółowo opisane w okienkach po" 
mocniczych przywołtywanych na ekran po naciśnięciu klawisza 
Fi. Biorąc to pod uwagę, podane dalej opisy będą ograniczane 


do minimum. 


Pole File 
Wybranie pola File powoduje wyświetlenie następujących opcji 


Load F3 
Pick ALt-F3 
New 

Save F2 
write to 

Directory 

Change dir 

OS shell 

Qui t ALt-X 


Load 


Wybranie opcji Load Cklawisz LD umożliwia załadowanie zbioru 
w celu poddania go edycji. Jeśli nazwa zbioru jest niejedno— 
znaczna Czawiera znaki % albo 72, to naciśnięcie klawisza 
Enter powoduje wyprowadzenie na ekran zestawu nazw zbiorów. 
Wybór jednej z nazw odbywa się za pomocą klawiszy oznaczonych 
strzałkami i klawisza Enter. Jeśli nazwa jest jednoznaczna, 
to bezpośrednio po naciśnięciu klawisza Enter, do okienka 


edycyjnego jest ładowana zawartość zbioru o podanej nazwie. 


Pick 


Wybranie opcji Pick Cklawisz PD) umożliwia załadowanie do 
okienka edycyjnego zawartości zbioru wymienionego na liście 
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wyboru. Lista wyboru składa się co najwyżej z 8 pozycji i 
zawiera nazwy tych zbiorów, które były ostatnio ładowane do 
okienka edycyjnego. Na liście wyboru znajduje się pozycja 
'"--loadfile--'. Wybranie jej ma taki sam skutek jak wybranie 
opcji Load. 


New 


Wybranie opcji New Cklawisz N> powoduje wyczyszczenie okienka 
edycyjnego i przyjęcie przez domniemanie, że zbiór 'załadow? - 


ny' do okienka ma nazwę NONAME. PAS. 


Save 


Wybranie opcji Save Cklawisz S> powoduje zapamiętanie na dys— 
ku zbioru znajdującego się w okienku edycyjnym. Jeśli zbiór 
ten ma nazwę NONAME.PAS, to system proponuje jej zmianę na 
inną. 


Write to 


Wybranie opcji Write to Cklawisz W> powoduje zapamiętanie na 
dysku zbioru znajdującego się w okienku edycyjnym, ale pod 

inną nazwą. Jeśli podana nazwa pokrywa Się z nazwą zbioru już 
istniejącego, to system upewnia Się, czy zbiór ten ma zostać 


usunięty. 
Directory 


Wybranie opcji Directory Cklawisz D> powoduje wyprowadzenie w 
okienku pomocniczym nazw zbiorów o podanej masce. System pro— 


ponuje maskę %.%, ale może być ona zmieniona na dowolną inną. 


Change dir 


Wybranie opcji Change dir Cklawisz CO powoduje ujawnienie 
nazwy bieżącego podkatalogu i umożliwia jej zmianę na inną. 


OS shell 


Wybranie opcji OS shell Cklawisz O) powoduje tymczasowe wywo- 
łanie systemu DOS. Po zakończeniu operacji w systemie DOS mo 
żna wrócić do systemu Turbo Pascal wykonując dyrektywę Exit. 


Qui t 
Wybranie opcji Quit (klawisz © powoduje powrót do systemu 
DOS. 
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Pole Edit 


Wybranie pola Edit powoduje wywołanie edytora i uaktywnienie 
okienka edycyjnego. 


Po le Run 


Wybranie pola Run powoduje wyświetlenie następujących opcji 


Run Ctr1l-F39 

Program reset Ctrl-F2 

Go Ło cursor F4 

Irace into F7 

SŁep over F8 

User screen ALŁ-F5 
Run 


Wybranie pola Run Cklawisz RO powoduje skompilowanie w trybie 
Make, programu załadowanego do okienka edycyjnego, a następ— 
nie wykonanie go z parametrami określonymi za pomocą opcji 


Options / ParameterSs. 


Program reset 


Wybranie pola Program reset Cklawisz P> powoduje zakończenie 
uruchamiania programu, zamknięcie wszystkich jego plików i 


zwolnienie przydzielonej mu pamięci. 


Go to cursor 


Wybranie pola Go to cursor (klawisz G> powoduje zastawienie 
tymczasowej pułapki programowej przed pierwszą instrukcją 
wiersza wyróżnionego przez kursor, a następnie podjęcie 


wykonywania go z pelną szybkością. 


Trace into 


Wybranie pola Trace into (klawisz TD powoduje wykonanie naj— 
bliższej, jeszcze nie wykonanej instrukcji. Jeśli zawiera ona 
wywołanie procedury, to nastąpi zatrzymanie przed wykonaniem 
jej pierwszej instrukcji. 


Step over 


Wybranie pola Step over Cklawisz S) powoduje wykonanie naj- 
bliższej, jeszcze nie wykonanej instrukcji. Jeśli zawiera ©n%ż 
wywołanie procedury, to procedura ta jest wykonywana w całoś” 
ci Cnie następuje zatrzymanie w jej obrębie). 
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User screen 

Wybranie pola User screen Cklawisz UD powoduje wyświetlenie 
ekranu wyjściowego programu. 

Pole Co mp i le 


Wybranie pola Compile powoduje wyświetlenie następujących 


opcji 
Compile AL1t=-F9 
Make F9 
Build 


Destination Memory / Disk 
Find error 

Primary file name 

Get info 


Compile 


Wybranie opcji Compile (klawisz C) powoduje wykonanie kompi — 
lacji w trybie Compile. 


Make 


Wybranie opcji Make Cklawisz M powoduje wykonanie kompila— 
cji w trybie Make. 


Build 


Wybranie opcji Build Cklawisz B> powoduje wykonanie kompila— 
cji w trybie Butla. 


Destination 


Wybranie opcji Destination Cklawisz D> powoduje przełączenie 
z kompilowania do pamięci operacyjnej CMemory) na kompilowa— 


nie do pamięci dyskowej CDtisk0 i odwrotnie. 


Find error 


Wybranie opcji Find error Cklawisz F> powoduje zapytanie o 

adres błędu w celu zlokalizowania instrukcji źródłowej zawie— 
rającej ten błąd Cużycie omawianej opcji jest niezbędne jedy— 
nie wtedy, gdy program był wykonywany -.poza systemem zintegro- 


wanyno. 


3G 


Primary file 


Wybranie opcji Primary file Cklawisz PD umożliwia określenie 


nazwy zbioru pierwotnego name). 


Get info 


Wybranie opcji Get info Cklawisz G> powoduje udostępnienie 


obszernych informacji o programie. 


Pole Options 


Wybranie pola Options powoduje wyświetlenie następujących 
opcji 


Compi Ler 

Linker 
Environment 
Directories 
Parameters 

Save Options 
Retrieve options 


Compi ler 


Wybranie opcji Compiler powoduje wyświetlenie następujących 


podopc ji 
Range checking On - OFĄ 
Stack checking On  O/j 
I/O checking on  OfĄ 
Force far calls On - Of/ 
Align data Wora - Byte 
Overlays allowed On 2 Oyj 
Var-string checking Strict „/ Relaxed 
Boolean evaluation Short ctrcutt / Complete 
Numeric processing Software „ 8087-80287 
Emulation On Off 
Debug information On - Off 
Local symbols On - OJ 
Conditional defines sym | 
Memory sizes Stack „ Lov heap „/ High heap 


Range checking 


Wybranie podopcji Range checking (klawisz R” powoduje włącze” 
nie COn) albo wyłączenie CO//) kontroli indeksów tablic i 
zmiennych łańcuchowych, a także kontroli poprawności przyPi” 
sań danych. 
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Stack checking 


Wybranie podopcji Stack checking (klawisz S> powoduje włą- 
czenie COn)» albo wyłączenie CO/fD> kontroli przekroczenia po- 


Jjemności stosu procesora. 


1/0 checking 


wybranie podopcji I/O checking (klawisz ID) powoduje włączenie 
COm albo wyłączenie C(O//) kontroli poprawności wykonywania 
operacji wejścia/wyjścia. 


Force far calls 


Wybranie podopcji Force far calls Cklawisz FD powoduje włą- 
czenie (On) albo wyłączenie CO/fD takiego sposobu kompilowa— 
nia procedur, aby ich wywołania i powroty były traktowa— 


ne jako dalekie. 
Align data 


Wybranie opcji Align data Cklawisz AD powoduje włączenie 
CWorao albo wyłączenie (Byte) rozmieszczenia danych na 


granicy Słowa. 
Overtays allowed 


Wybranie opcji Overlays allowed Cklawisz OD powoduje 
włączenie COnDo albo wyłączenie COgffD generowania kodu 


przystosowanego do nakładkowania. 


Var-strting checking 


Wybranie podopcji Var-string checking Cklawisz VD> powoduje 
włączenie (Strict albo wyłączenie CRelaxec00 kontroli zgod— 


ności parametrów i argumentów łańcuchowych. 


Boolean evaŁuatŁton 


Wybranie podopcji Boolean evaluation (klawisz BD. powoduje 
włączenie (Complete) albo wyłączenie CShort ctrcutŁ) kompi — 
lowania całych wyrażeń logicznych, niezależnie od tego, czy 


jest to konieczne dla określenia ich wartości. 


Numertc processing 


Wybranie podopcji Numeric processing Cklawisz No» powoduje 
włączenie C(8087/802872 albo wyłączenie CSo/tware) korzystania 
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z koprocesora arytmetycznego i Łym samym wykonywanie operacji 


na danych rzeczywistych sprzętowo albo programowo. 
Emulation 


Wybranie opcji Emulation Cklawisz ED powoduje włączenie COn) 
albo wyłączenie CO//D emulowania operacji zmiennopozycyjnych. 


Debug tLnjfjormatton 


Wybranie podopcji Debug information Cklawisz D)> powoduje 
włączenie COn0 albo wyłączenie CO//D generowania informacji 
umożliwiających lokalizowanie błędów wykonywania programu 
bezpośrednio w jego tekście źródłowym. 


Local symbołs 


Wybranie podopcji Turbo pascal map file Cklawisz TD powoduje 
włączenie COno albo wyłączenie CO//o generowania informacji, 


umożliwiających odwoływanie się podczas uruchamiania programu 
do jego symboli lokalnych. 


Condittionał de/ftines 


Wybranie podopcji Conditional defines Cklawisz CD umożliwia 


definiowanie Coddzielonych średnikami) symboli warunkowych 
preprocesora. 


Memory sizes 


Wybranie podopcji Memory sizes Cklawisz Mo umożliwia okreś— 


lenie rozmiaru stosu i minimalnego i maksymalnego rozmiaru 
sterty. 


Linker 


Wybranie opcji Linker powoduje wyświetlenie następujących 
podopcji 


Map file Off - Segments -— Publics — Detatled 
Link buffer Memory Disk 


Map file 


Wybranie podopcji Map file Cklawisz MO powoduje wyłączenie 
CO//J2 albo włączenie CSegments-Publics-Detailed) generowania 
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mapy konsolidacji. Segments oznacza ograniczenie się do 
generowania informacji o segmentach, Publics o segmentach i 
symbolach, a Detatled o segmentach, symbolach 1 numerach 


wierszy programu źródłowego. 


Ltnk buffer 


Wybranie podopcji Link buffer (klawisz LD powoduje usytuo- 
wanie wewnętrznego bufora konsolidatora w pamięci operacyjnej 


CMemory) albo na dysku CDtisło. 


Environment 


Wybranie opcji Environment powoduje wyświetlenie następują 
cych podopcji 


Config auto save On  Of$j 
Edit auto save On 2 OYJ 
Backup source files On ” O//f 
Tab size tab 

Zoom windows On - O/J 
Screen Size 25 43/50 


Config auto save 


Wybranie podopcji Config auto save Cklawisz CD) powoduje włą— 
czenie COD albo wyłączenie CO//fD automatycznego zapamięta— 
nia w zbiorze dyskowym, przed każdym wykonaniem programu 
Cnp. F72 oraz w chwili zakończenia pracy pod systemem Iurbo 
Pascal Cnp. ALltŁ-XD20, wszystkich ustawionych podopcji systemu 
Ćw Łym podopcji Config auto save). 


EdtittŁ auto save 


Wybranie podopcji Edit auto save Cklawisz ED) powoduje włą— 
czenie COnD albo wyłączenie C(O//0 automatycznego zapamięta— 
nia tekstu znajdującego się w okienku edycyjnym przed każdym 
wykonaniem programu Cnp. Ctrl-FS> oraz przed wywołaniem sys— 
temu DOS Cnp. ALt-F,OJ. 


Backup source /ftles 


Wybranie podopcji Backup source files Cklawisz B> powoduje 
włączenie COnD albo wyłączenie CO//J tworzenia zbiorów z 
rozszerzeniem .BAK, jako zabezpieczenia przed utratą po- 


przednich wersji zbiorów źródłowych. 
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Tab stze 


Wybranie podopcji Tab size Cklawisz T> umożliwia wybranie 


skoku tŁabulacji. Skokiem domniemanym jest 8. 


Zoom Wtndows 


Wybranie podopcji Zoom windows Cklawisz 20 powoduje włączenie 
COM albo wyłączenie (O0//0 wyświetlania tylko jednego okien- 
ka: edycyjnego albo obserwacyjno-wyjściowego. Wyświetlenie 


drugiego okienka wymaga wówczas przełączeń między okienkami 
Cklawisz F6DV>. 


Screen size 


Wybranie podopcji Screen size Cklawisz SO umożliwia określe— 


nie pionowego rozmiaru ekranu niestandardowego (43 wiersze 


dla karty EGA i 50 wierszy dla karty VGA). 


Directories 


Wybranie opcji Directories powoduje wyświetlenie następują— 
cych podopcji 


Turbo directory dtr 
EXE 8 IPU directory dtr 
Include directories dtr 


Unit directories dtr 
Object directories dtr 
Pick file name name 
Current pick file nama 


Turbo dtrectory 


Wybranie podopcji Turbo directory Cklawisz TO umożliwia 


określenie nazwy katalogu, w którym znajdują się: zbiór 


konfiguracyjny Cprzez domniemanie TURBO. IPO i zbiór zawiera— 
jący informacje pomocnicze CTURBO. HLPD. 


EXE 8 TPU directory 


Wybranie podopcji EXE £ TPU directory Cklawisz ED) umożliwia 
określenie nazwy katalogu, w którym są umieszczane zbiory 


Zz rozszerzeniem .EXE Cprzez domniemanie przyjmuje się ka” 
talog bieżący). 
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Include dtirectories 


Wybranie podopcji Include directories Cklawisz ID umożliwia 
określenie nazw katalogów, w których znajdują się zbiory 
włączone do programów 1 modułów źródłowych za pomocą dyrek— 
tŁyw X$I nazwa>. Nazwy katalogów są oddzielane średnikami. 
Jeśli lista nazw jest pusta, to domniemywa Się nazwę podka— 
talogu bieżącego. 


UntŁ atrectortes 


Wybranie podopcji Unit directories Cklawisz U) umożliwia 
określenie nazw katalogów, w których są umieszczane zbiory 

z rozszerzeniem . IPU powstałe ze skompilowania modułów. Nazwy 
katalogów są oddzielane średnikami. Jeśli wykaz nazw jest 
pusty, to domniemywa się nazwę katalogu bieżącego. 


Object dtrectories 


Wybranie podopcji Object directories Cklawisz O) umożliwia 
określenie nazw katalogów, w których znajdują się zbiory 

z rozszerzeniem .OBJ Cskompilowane podprogramy asemblerowe). 
Nazwy katalogów Są oddzielone średnikami. Jeśli wykaz nazw 
jest pusty, to domniemywa się nazwę katalogu bieżącego. 


Pick file name 


Wybranie podopcji Pick file name Cklawisz PD umożliwia okre- 
ślenie nazwy zbioru, w którym jest zapamiętywana lista nazw 
udostępniana po wybraniu opcji Pick Cnp. AL1tŁ=—F, PQ. Jeśli 
nazwa zbioru nie jest określona, to domniemywa się nazwę 


zawartą w podopcji Current pick file. 


Current pick /ftle 


Wybranie podopcji Current pick file nie jest możliwe. Jest 


ona wyświetlana w celach informacyjnych. 


Parameters 


Wybranie opcji Parameters Cklawisz P> powoduje pojawienie się 
na ekranie okienka umożliwiającego określenie oddzielonych 
spacjami parametrów programu. Dzięki omawianej opcji można 

w systemie Turbo Pascal badać zachowanie się programu 


wywoływanego następnie Cz parametrami) w systemie DOS. 


Save options 


Wybranie opcji Save Options (klawisz S) umożliwia zapamięta- 
nie aktualnych podopcji w zbiorze konfiguracyjnym o wybranej 


nazwie. Przez domniemanie obiera się nazwę TURBO. TP. 


Retrieve options 


Wybranie opcji Retrieve options umożliwia odtworzenie pod— 
opcji, jakie jakie zostały zapamiętane w zbiorze konfigura— 


cyjnym o podanej nazwie. Przez domniemanie przyjmuje się 
nazwę TURBO. TP. 


Po le Deb u g 
Wybranie pola Debug powoduje wyświetlenie następujących 
opcji 


Evaluate Ctrl-F4 
Call stack Ctrl-F3 
Find procedure 

Integrated debugging On 
Stand-alone debugging  O//f 


Display swapping None / Smart „ Always 
Refresh display 


Evaluate 


Wybranie opcji Evaluate Cklawisz E) powoduje wyświetlenie 
okienka składającego się z trzech ramek. Jeśli w pierwszej 
poda się wyrażenie Ćw szczególności nazwę zmiennej), to w 
drugiej zostanie wyświetlona wartość tego wyrażenia. Jeśli 
wyrażenie jest nazwą zmiennej, to po przemieszczeniu się do 
trzeciej ramki Cza pomocą klawiszy strzałek pionowych) można 


określić wartość danej, ktora ma być przypisana podanej 
zmiennej. 


Call stack 


Wybranie opcji Call stack (klawisz C) powoduje wyświetlenie 
retroaktywnego śladu wywołań procedur. Wybranie pewnej Zz nich 
za pomocą klawisza Enter umożliwia zapoznanie się z otocze- 


niem wywołania procedury znajdującej się nad wybraną. 
Find procedure 


Wybranie opcji Find procedure Cklawisz FD powoduje załadowa” 


nie do okienka edycyjnego fragmentu programu zawierającego? 
deklarację podanej procedury. 
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Integrated debugging 


Wybranie opcji Integrated debugging Cklawisz ID powoduje 
umożliwienie COnDo albo uniemożliwienie CO//DO posługiwania się 


uruchamiaczem zintegrowanym. 


Stand-alone debugging 


Wybranie opcji Stand-alone debugging Cklawisz S> powoduje włą- 
czenie (On) albo wyłączenie CO//0, uzupełniania zbioru za— 
wierającego program wykonywalny, informacjami umożliwiającymi 


symboliczne uruchamianie go za pomocą uruchamiacza wolno sto— 


jącego. 


Display swapping 


Wybranie opcji Display swapping (klawisz D) umożliwia okreś— 
lenie sposobu wymieniania ekranu wyjściowego i ekranu uru- 
chamiacza: nigdy CNever>, zawsze CAłways> i jeśli wydaje się 


Ło konieczne (Smarty. 


Refresh display 


Wybranie opcji Refresh display Cklawisz RO powoduje odświeże— 
nie ekranu uruchamiacza. Jest to konieczne jedynie wtedy, gdy 
wykonanie programu spowoduje zniekształcenie informacji na 


ekranie uruchamiacza. 


Po l e B reak „Watch 


Wybranie pola Break/Watch powoduje wyświetlenie następują— 
cych opcji 

Add watch Ctr1l-F7 

Delete watch 

Edit watch 

Remove all watches 

Toggle breakpoint Ctr1l-F8 


Clear all breakpoints 
View next breakpoint 


Add watch 
Wybranie opcji Add watch Cklawisz AD) umożliwia umieszczenie 


wyrażenia albo nazwy zmiennej w okienku obserwacyjnym. 
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Delete watch 


Wybranie opcji Delete watch Cklawisz DD powoduje usunięcie 
bieżącej pozycji okienka obserwacyjnego. 


Edit watch 


Wybranie opcji Edit watch Cklawisz E) umożliwia zmianę wy- 


rażenia albo nazwy zmiennej wyświetlonej na bieżącej pozycji 


okienka obserwacyjnego. Naciśnięcie klawisza Enter powoduje 


zaakceptowanie, a naciśnięcie klawisza Esc powoduje anulo- 


wanie zmiany. 


Remove all watches 


Wybranie opcji Remove all watches Cklawisz R powoduje wy- 


czyszczenie oklenka obserwacyjnego. 


Toggle breakpoint 


Wybranie opcji Toggle breakpoint Cklawisz TD powoduje 


zastawienie albo usunięcie pułapki w wierszu wyróżnionym 
przez kursor. 


Clear all breakpoints 


Wybranie opcji Clear all breakpoints Cklawisz C> powoduje 
usunięcie wszystkich zastawionych pułapek. 


View next breakpoint 


Wybranie opcji View next breakpoint Cklawisz VD powoduje 
przemieszczenie kursora do następnej pułapki. Akcja ta nie 


powoduje wykonania żadnej instrukcji programu. 


2.2. System wsadowy 
Wywołanie systemu wsadowego ma postać 


IPC options name 


w której options są opcjami, a name jest nazwą zbioru źród— 


łowego, od którego ma się rozpocząć kompilacja. 


Jeśli zbiór źródłowy zawiera program, to skutkiem wykonania 
przytoczonej dytektywy jest program wykonywalny name. EXE. 
Jeśli zawiera moduł, to następuje utworzenie biblioteki 
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name. I1PU. Jeśli nazwa name nie zawiera rozszerzenia, 


domniemywa Się rozszerzenie .PAS. 


Opcje, 


Ło 


które mogą być wymienione w dyrektywie IPC, pozostają 


w ścisłym związku z opcjami które można ustawić w systemie 


zintegrowanym. Z tego względu wystarczy ograniczyć się do 


podania następującego zestawienia 


Opcja 


Z$A+ 
/BA— 


-$B+ 
/$B—- 


/$%D+ 
/$D- 


Z$E+ 
Z$E- 


Z$F+ 
BF —- 


Z81+ 
BI - 


/8L+ 
/BL- 


/$Ms 


Z8N+ 
Z$GN- 
Z$0+ 
ZBO- 
Z$BR+ 
BR 
/$S+ 
/$S- 
Z$SY+ 
Z$VY- 


„mO,mi 


Opcja menu 


O/CJA1lign Data 
O/CzAlign Data 


O/CzBoolean Evaluation 
O/CzBoolean Evaluation 


O/CzDebug Information 
O/CzDebug Information 


O/CzEmulation 
O/CzEmulation 


O/CzForce Far Calls 
O/CzForce Far Calls 


O/C/1O-Checking 
O/CZ1O-Checking 


O/C/Local Symbols 
O/C/Local Symbols 


O/C/Memory Sizes 


O/CzNumeric Processing 
O/CJNumeric Processing 


O/CZOverlays Allowed 
O/CJOverlays Allowed 


O/C/Range-Checking 
O/C/Range-Checking 


O/CZSŁack-Checking 


_O/C/SŁack-Checking 


O/CVar -StŁring"Checking 
O/CJVar -String-Checking 


Compile/Bui ld 


O/C/Conditional Defines 
O/D/Exe 8 IPU Directory 
CzZFind Error 


O/L/Map File 
O/1-/Map File 
O/L/Map File 


o/D/Include Directories 


O/L/Link Buffer 
CzMake 


O/D/Object Directories 
O/D/Turbo Directory 
O.D/Object Directories 


D/StŁand-alone Debugging 


War tość 
wora 


Byte 


Complete 
Short Ctircutt 
on 

Ojj 

on 

Off 

on 

ZE 

on 

Osf 

on 

Oj] 
Stack Heap 
On 

724 

on 

2 

on 

OFF 

on 

Osj 

on 

724 


Segments 
Publtcs 
Detatled 


Dtsk 
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Dowolny zestaw wymienionych tu opcji może być umieszczony w 


zbiorze tekstowym IPC.CFG, najwygodniej po jednej w wierszu. 


Ww ramach wywołania systemu wsadowego dyrektywą IPC, opcje te 
są traktowane tak, 


jakby znajdowały się bezpośrednio po 


nazwie dyrektywy. Jeśli wystąpią opcje sprzeczne, 


Ło decyduje 
ostatnia. 


10 w 


zbiór IPC.CFG jest poszukiwany kolejno: 
katalogu bieżącym, 2) w katalogu, w którym znajduje się TPC, 


30 w katalogu określonym za pomocą opcji /T (w takim 
przypadku opcja ta musi wystąpić jako pierwsza). 
Przykład Wywolanie systemu wsadowego 


Jeśli w zbiorze IPC.CFG znajduje się tekst 


ZOG: NIPSNASM 
Z$F+ 
ZS 


to dyrektywa 
IPC MYFILE 
jest traktowana tak jak dyrektywa 


IPC „OC: NIPSNASM /$F+ /$S-— MYFILE. PAS 


CZĘŚĆ II. JĘZYK 


3. POJĘCIA LEKSYKALNE 


Każdy program źródłowy Składa się z jednostek leksykalnych 1i 
odstępów. Odstępami są najdłuższe ciągi znaków składające Się 
wyłącznie ze spacji, tabulacji, zmian wiersza oraz komenta— 
rzy, a jednostkami leksykalnymi są słowa kluczowe, identyfi— 
katory, literały i ograniczniki. Odstępy nie mają żadnego 
wpływu na semantykę programu. Są używane jedynie w celu otl— 
dzielenia par sąsiadujących ze sobą Słów kluczowych, identy— 
fikatorów i literałów. Podział programu źródłowego na jed— 
nostki leksykąlne 1 odstępy odbywa się w naturalnym porządku, 
tj. od lewej do prawej i od góry do dołu. Zza jednostkę leksy— 
kalną jest uznawany najdłuższy ciąg znaków nie zawierający 


odstępu, taki który może uchodzić za jednostkę leksykalną. 


Jednostki leksykalne i komentarze są tworzone ze znaków pods— 
tawowych, do których zalicza się: małe i duże litery alfa— 
betu angielskiego wraz ze znakiem podkreślenia, cyfry dzie— 


siętne i szesnastkowe, znaki specjalne i dwuznaki. 


Z jednostek leksykalnych są tworzone bardziej złożone obiek— 
ty składniowe. Ich definicje będą podawane za pomocą pros— 
stej notacji, której zasadę najlepiej rozpatrzyć na przykła— 
dzie 
litera Cjedno 2): 
abc 


para-Łłtter: 
Łtutłera Litera 


Si 


ciąs-ltter: 

Litera 

ctągs-Lttter Lttera 
Lista-ciągóv-ltiterowych: 

ciąg-ltter 

Lista-ctiągsówv-LtLtiterowych , ctąg-Ltter 


Metanazwa Litera oznacza jedną z liter: a,b albo c. Metanaz— 


wa para-liter oznacza jeden z następujących zestawów liter: 


aa, ab, ac, ba, bb, bec, ca, cb, cc. Metanazwa ciąg-Lltiter oz— 


nacza dowolne ciągi liter, np. aaabccabbb. Metanazwa Llsła- 


ctągów-literowych oznacza dowolne listy, których elementami 
są ciągi liter, np.listę 


a,bb,accbbc,aaa,ccecca 


W Łych rzadkich przypadkach gdy element definicji metanazwy 


nie mieści się w jednym wierszu, będzie kontynuowany w wier— 


szu następnym z wcięciem o dwie spacje. Zgodnie z tą konwen— 


cją, definicja metanazwy Lista-ctiągóv-literowych mogłaby 
zostać zapisana w postaci 


lista-ciągów-literowych: 
ctąg-ltter 
Łtista-ctqągóvw-literowych 
ctąg-litter 


De/ftnticje 
tttera Cjedno 2): 
abcecdef gh i jj k l m 
nopq r stuvwxyz 
AB CDEF GH I J KLM 
NOPQRSTUVWXYZ _ 
cyfra-dziesitętna (jedno 2: 
0123456789 
cyfra-szesnastkowa (jedno 20 
0123456789 
abcde (ft 
AB CDEF 
znak-spec jalny Cjedno z: 
|" AS5K ' CJ) * + , — / 0: 
; => 7?E© [NI] _ * . ! >v 
dwuznak (jedno 2): 
= <> C= D= .,. (% 30) C. .) 


(nawiasy z gwiazdkami pelnią rolę nawiasów klamrowych. 
a nawiasy z kropkami pelnią rolę nawiasów kwadratowy 
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Słowa kluczowe 


Słowem kluczowym jest spójny ciąg liter tworzący słowo o us— 


talonym znaczeniu. 


Deftnicja 


stlowo-Rluczowe ( jedno 20: 


absolute goto record 
and i£ repeat 
array implementation set 
begin in shl 
case inline shr 
const interface string 
div interrupt then 
do label Ło 
downto mod type 
else nil uni t 
end not until 
external of uses 
file or var 
for packed while 
forward procedure with 
function program xor 
Identyfikatory 


Identyfikatorem jest ciąg literowo-cyfrowy rozpoczynający Się 
od litery, który nie jest słowem kluczowym. Dowolnym znakiem 
identyfikatora może być znak podkreślenia Ctakże uznawany za 
literę). Litery małe i duże nie są odróżniane. Liczba znaków 
identyfikatora może być dowolna, ale tylko pierwsze 63 z nich 


są uznawane za istotne. 


Deftntcja 


tdentyfikRator: 
Litera 
tdentyftkator Litera 
tdentyfitkator cyjra-dziestętna 


Literały 


Literały są nazwami stałych. Dzielą się na arytmetyczne, łań— 
cuchowe, logiczne, wyliczeniowe i mnogościowe. Literały aryt— 
metyczne dzielą się na całkowite i rzeczywiste. Literały 
arytmetyczne będą nazywane liczbami, a literały łańcuchowe 
będą nazywane łańcuchami. 


SZ 


Dejfjtnticje 


Ltterat: 
Ltteral-arytmetyczny 
ttteral-lańcuchowy 
Ltiterat-logiczny 
Literal-wvytlticzentiowy 
Literal-mnogośctiowy 

Literal-arytmetycezny: 
Ltiteral-calkRowtity 
Lttiterat-rzeczywisty 


Łtteraly calkowite 


Literały całkowite dzielą się na dziesiętne i szesnastkowe. 
Literał dziesiętny bez znaku składa się z ciągu cyfr dziesię- 
tnych. Literał szesnastkowy bez znaku składa Się z ciągu 

cyfr szesnastkowych poprzedzonego znakiem $ Cdolar.. W lite- 
rale tym cyfry od 1O do 15 są zapisywane za pomocą małych 
albo dużych liter od a do (. Literałem całkowitym dziesiętnym 


jest także literał całkowity dziesiętny bez znaku poprzedzony 
znakiem + Cplus) albo — Cmtnus). Wartości literatów całkowi — 
Łych należą do przedziału —2,147,483,648..2,147,483,647. 


Dejftntcje 


Literatl-catlkowvtiży: 
Liczba-—calkowi ta 
Liczba-—catlkowi ta: 
Liczba-calkowi ta-bez-znaku 
l ticzba-calkRowi Ła-ze-znakitem 
Lticzba-calkRowi ta-bez-znakRu: 
Łiczba-dziesitętna-bez-zndku 
Lticzba-szesnastkowa-—bez-znaku 
Liczba-dziestitętna-bez-znaku: 
ctąg"cy/fr-dziesiętnych 
ctąg-cy/r-dziesiętnych: 
cyfjra-dziesiętna 
ctąg-cy/fr-dziesiętnych cy/fra-dziesiętna 
l tczba-szesnas tkowa-bez-znaku: 
$ ciąg-cy/fr-szesnastkowych 
ciąg-cyfr-szesnastkowych: 
cyfjra-szesnastkowa 
ctąg-cyfr-szesnastkowych cyfra-szesnastkowa 
Łiczba-calkowvi ta-ze-znaktem: 
znak-plus-albo-minus Liczba-catlkowi Ła-bez-znaku 
znak-plus-albo-minus (jedno 2: 
+ 
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Przykład Ltteraly calkowite 


Literały całkowite: 13 
-13 
003 
S3£ 


Napisy, które nie są literałami całkowitymi 


2gS5 $ — znak g nie jest cyfrą 
2.4 — znak . nie jest cyfrą 
$+2 — znak + nie należy do literału 


Ltteraty rzeczywiste 


Literałty rzeczywiste są tylko dziesiętne. Literał rzeczywisty 
składa się z części całkowitej, kropki, cześci ułamkowej, 
małej albo dużej litery e oraz z wykładnika. Część całkowita, 
ułamkowa i wykładnik składają Się z ciągu cyfr dziesiętnych, 

a część całkowitą lub wykładnik może rozpoczynać znak + Cplus) 
albo — Cminus). Część ułamkową wraz z kropką albo wykładnik 
wraz z literą e można pominąć. W środowisku bez koprocesora 
arytmetycznego literały rzeczywiste są typu real, a ich war— 


tości należą do przedziału 
—1.7E38 .. -—2.9E-—39, O , 2.9E-—39 .. 1.7E38 


W środowisku z koprocesorem są typu extended, a ich wartości 


należą do przedziału 


-—1.1E4932 .. -—1.9E-—4951, O, 1.9E—4951 .. 1.1E4932 
Deftntcje 


ttteral-rzeczywtisty: 
Liczba-rzeczywtista 


Liczba-—rzeczywvtista: 
Łiczba—rzeczywista-bez-znaku 
Liczba-rzeczywista-ze-znaktem 


lticzba-rzeczywista-bez-znaku: 
część-calkovita . częścć-ulamkowa e wykladnik 
część-calkowita . część-ulamkowa E wykladnik 
część-calkowita e wykladnik 
część-catlkRowita E wykladntik 
część-calkovita . częśćulamkowa 


Lticzba-rzeczywista-ze-znaktem: 
znak-liczby Liczba-rzeczywista-bez-znaku 


część—calkowi ta: 
ctqe"cyJ/r 

część -ulamkowva: 
ctqs"cyfr 


SS 


wykRTadntR: 
ciąg-cyjfr 
znak-plus-albo-minus ciąg-cy/r 


Przykład Literaly rzeczywviste 
Literałty rzeczywiste: 2.5 
2E3 
3. 0E-2 


Napisy, które nie są literałami rzeczywistymi 


.25 — brak części całkowitej 
40.E2 — brak części ułamkowej 
2D3 — litera D zamiast E 


Łtteratly lańcuchowe 


Literały łańcuchowe reprezentują ciągi znaków rozszerzonego 
kodu ASCII Cpor. Dodatek AD. W ogólnym przypadku literat 
łańcuchowy składa Się z następujących elementów: ciągu znaków 
widocznych zawartych między parą apostrofów, pary znaków z 
których pierwszy jest znakiem © Ccaret>, a drugi jest znakiem 
widocznym, napisu składającego się ze znaku X Chash), bezpo— 
średnio po którym następuje liczba całkowita bez znaku. 


Ciąg znaków widocznych zawarty między parą apostrofów repre— 
zentuje podane znaki widoczne. W ciągu tym znaki apostrof 
mogą występować tylko parami, a każda para reprezentuje jeden 
znak apostrof. Napis Źliczba reprezentuje znak rozszerzonego 
kodu ASCII o kodzie Liczba. Napis Cznak reprezentuje znak 
sterujący, który może być wprowadzony z klawiatury jako 
Ctrl-znak. Znakami rozszerzonego kodu ASCII są znaki o kodach 
O..255, znakami widocznymi kodu ASCII są znaki o kodach 
32..126, a znakami sterującymi są znaki o kodach O..31. 


Deftntcje 


ttiteral-lańcuchowy: 
Tańcuch 


Tańcuch: 
Tańcuch-elementowy 
Tańcuch lańcuch-elementowy 


Tańcuch-elementowy: 
* eląg"znakóv-widocznych * 
© znak-widoczny 
4 Liczba-calkowi ta-bez-znaku 


ctąg-znakóv-wvidocznych: 
znak-wvidoczny 
ctąg"znaków=vtidocznych znak-widoczny 


znakR-wvtidoczny: 
Litera 
cy/ra-dziesiętna 
spac ja 
znakR-spc Jalny-apostrof 
znakR-spec jalny-nie-apostro/f 


znak-spec jalny-apostrofj: 


znak-spec Jalny-nie-apostro/ jedno 2): 
| " ABAEKC DJ) * + , — . 7 : 
< => PE £ NJ © | * X i > % spac ja 


Cnapts spacja oznacza pojedynczą spac ję). 


Przykłady Ltiteraty Iańcuchowe 


Literały łańcuchowe: "jb*  Cdwa znaki) 
G Cjeden znak) 
AGS Cznak "AD 
X$41 Cznak 'A'J 
"MŻ$a'j'A4A97'n' C5 znaków) 


Napisy, które nie są literałami łańcuchowymi: 


> — nie powtórzony apostrof 
XZ300 — kod znaku przekracza 255 
ŹB100 — kod znaku przekracza 255 


Łiteratly Logicene 


Literaty logiczne mają postać napisów true i false. Pierwszy 
z nich reprezentuje daną o wartości prawda, a drugi daną o 


wartości falsz. Literały duże i małe nie są odróżniane. 


Dejtntcje 


Ltiteral-logticzny: 
Łrue 
false 


Przykład Ltitteraly logiczne 


Literały logiczne: false 
FALSE 


true 
TRUE 


Napisy, które nie są literałami logicznymi 


prawda — błędny napis 
*1'B — błędny napis 
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Ltteraly wytLiczentowe 


Literały wyliczeniowe są nazwami stałych wyliczeniowych. 


W programie występują pod postacią identyfikatorów. lIypy 
wyliczeniowe opisano w rozdziale 5.1. 


Deftnticje 


Ltiteral-vwyŁticzeniowy: 
tdentyftkator 


Przykłady Ltiteraly wyliczentiowe 


Literały wyliczeniowe: Red 
Sunday 


Napisy, które nie są literałami wyliczeniowymi: 


XL2S — nie zaczyna Się od litery 
This$Hour — zawiera znak $ 


Ltteraty mnogościowe 


Literały mnogościowe są nazwami stałych mnogościowych. W pro— 


gramie występują pod postacią konstruktorów składających się 
z list literatów typu porządkowego. 
w rozdziale 5.1, 
le 5.7. 


Typy porządkowe opisano 
a typy mnogościowe i konstruktory w rozdzia— 


Definicje 
Ltteral-mnogościowy: 
Rons truktor-ltiteralowy 
konstruktor-literalowy: 


Ckonstruktor mnogościowy, który sklada się wyląceznie 
z LtteralówD 


Przykłady Literatly mnogościowe 


Literały mnogościowe: [3,4,3] 
[*a”..”c”,'b"']J 
[false..true] 

Napisy, które nie są literałami mnogościowymi: 


[2,false] — 


niezgodność typów elementów l1iStYy 
(Succ(falsed)] — 


użyto funkcji 


Literaly bez znaku 


Literałem bez znaku jest literał nie poprzedzony znakiem 


tŁ 
+ Cplus) ani — (minus). W szczególności takim literałem je* 
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każdy literat łańcuchowy, logiczny, wyliczeniowy i mnogoś— 
ciowy. 


De/ftntcje 


Lliteral-bez-znuhku: 
Ltczba-calkowi ta-bez-znaku 
Łticzba-rzeczywista-bez-znaku 
titeratl-lańcuchowy 
Łtteral-logiczny 
Łiteratl-wylticzeniowy 
tLtteral-mnogościowy 


Przykłady Literaly bez znaku 


Literały bez znaku: 13 
ce-3 
"Iza" 
false 


Napisy, które nie są literałami bez znaku: 


-13 — zaczyna Się od znaku minus 
ZBOO — kod przekracza 255 
Komentarze 


Komentarzem jest napis rozpoczynający Się od nawiasu klamro— 
wego otwierającego, zakończony najbliższym nawiasem klamrowym 
zamykającym. Rolę nawiasów klamrowych: (€ Cotwierającego) i > 
Czamykającego> mogą pełnić dwuznaki: C3% Cnawias otwierający, 
gviazdkRo0 i %0 (gwiazdka, nawtas zamykający”. Pierwszy i os— 
Łatni znak komentarza musi być tego samego rodzaju Calbo para 
nawiasów klamrowych, albo para nawiasów z gwiazdkami). Komen- 
tarze ograniczone znakami jednego rodzaju mogą być zagnież— 
dżone w komentarzach drugiego rodzaju. Jeśli bezpośrednio po 
znaku rozpoczynającym komentarz występuje znak $ Cdolar., to 
komentarz jest uznawany za dyrektywę kompilatora. Jest to 
jedyne odstępstwo od zasady, że komentarze nie mają wpływu na 
semantykę programu. Pozostaje dodać, że dyrektywy kompilatora 
nie mogą występować w komentarzach zagnieżdźżonych. 


Deftntcje 


komentarz: 
kRomentarz-klamrowy 
Romentarz-RavLasowy 


komentarz-RLamrowy: 
< wnętrze—kRomentarza—Rlamrowego > 


S9 


RomentŁAarz-"NnawvLASOWY: 
C»* vnętrze-—komentarza-—nawviasowego %) 


wnę trze-—komentarza—klamrowego: 
dovolny ciąg znakóv nie zawierający znaku > 


wnę trze—Romentarza"nawLasowego: 
dowolny ciąg znaków nie zawierający dwuznaku %) 


Przykład Komentarze t dyrektywy 


Komentarze: < data > 
C* data = 
C* out CfFfile> name % 
<« out CxfileXD Cxname* > 


Dyrektywy: LSI +> 
C$M 16384 ,0,O»0D) 


Napisy, które nie są komentarzami 


< inside %0 — niezgodne ograniczenia 
CzeCielinsidexDXD — niepoprawne zagnieżdżenie 


Napisy, które nie są dyrektywami kompilatora 


< $I-> — spacja między ( i $ 
(M$ I+> — spacja między $ 1 I 


4. PROGRAMY 


Programem wykonywalnym jest tylko program kompletny. Program 
kompletny składa się z modulu glównego, nazywanego krótko 
programem oraz ze stałych, zmiennych i procedur, pochodzących 
z modułów bibliotecznych nazywanych bibłiożtekami. 
W ogólnym przypadku, deklaracja programu ma postać 

program name; 

uses 

Llibltist; 
block . 


w której name jest nazwą programu, Łibdłtst jest listą 
identyfikatorów bibliotek, a block jest blokiem. 


Poprawna jest również deklaracja, w której pominięto naglówek 


programu 
program name; 
wyszczególnienie modutlów 


uses 
LibLlist; 


albo oba te napisy. 


Deftnicje 


program: 
nagtówek-progranu citalo-programu 


nag lówekR-"programu: 
program nazva-programu ; 
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nazwva—programu: 
tdentyftitkator 


ctalo-progranu: 
wyszczególnienie-modulówv blok 
blok 


wyszczególniente-modulów: 
uses Lista-nazuv-modutlówv 


. 
> 


Lista-nazwv=modutlów: 
nazwva-modulu 


Łtistanazw-modutlów , nazwa-—modulu 


nazwa-—moduTlu: 
tdentyftitkator 


Blok składa się z części deklaracyjnej i wykonawczej. Część 
deklaracyjna składa się z zestawu deklaracji etykiet, zestawu 
deklaracji typów, zestawu deklaracji zmiennych nieinicjowa— 
nych, zestawu deklaracji zmiennych inicjowanych i symboli 
oraz z zestawu deklaracji procedury. Każdy z wymienionych 


zestawów deklaracji może być pominięty, albo może występować 


wielokrotnie i w dowolnym porządku. Należy to rozumieć w taki 
sposób, że na przykład po zestawie deklaracji typów może wys— 
tąpić zestaw deklaracji procedur, 
klaracji typów, 


po nim znowu zestaw de— 
itd. Część wykonawcza programu jest bardzo 
prosta. Składa się z pojedynczej instrukcji grupującej. 


Deftnicje 


bLlOR: 
część-deklaracyjna-bloku częsć-wykonawcza-bdloku 


część-deklLaracyjJna-bloku: 
deklarac je 


deklarac je: 
delarac je-etykiet 
deklarac je-Łypów 
deklarac je-zmiennych-nieinic jowanych 
dekRlarac je-zmiennych-t!nic jowanych-i-symboLt 
deklarac je-procedur 
deklarac je deklarac je-etykiet 
deklarac je deklarac je-typówv 
deklarac je deklarac je-zmiennych-nietntic Jjowanych Lt 
deklarac je deklarac je-zmiennych-tinic Jjowanych-t-SYM>O 
deklarac je deklarac je-procedur 


część -wykonavcza-bloku: 
tnstrukc ja-grupująca 
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Przykłady Struktura programu 


a Program = naglówkiem t wyszczególnieniem modutlów 


program Hello; 
uses 
Crt,Printer; 
begin 
CirSer; C Clear Screen > 
WriteC'Hello world'D; 
WritelnC(Lst, ' Hello, I am JanB'J 
end. 


Program Hello składa się z nagłówka, wyszczególnienia modu— 
łów, instrukcji grupującej i znaku . Ckropko. Wykonanie 


programu powoduje wyprowadzenie na ekran monitora napisu 


Hello world, a na drukarkę napisu Hello, I am JanB. 


b Program bez naglówka it wyszczególnienia modulów 


var 
Dividend,Divisor : real; 
begin 
WriteC 'Dividend = '); 
ReadlnCDividend); 
WriteCć 'Divisor = "DD; 
ReadlnCDivisor); 
WritelnC 'Quotient = ',Dividend / Diviseor :0:3) 
end. 


Program Składa się z bloku i znaku . CkropkRaoo. Blok składa 
się z deklaracji zmiennych nieinicjowanych i instrukcji 
grupującej. Pierwszą jednostką leksykalną deklaracji zmien— 
nych nieinicjowanych jest słowo kluczowe var, a ostatnią 
najbliższy znak ; Cśredntitko. Wykonanie programu powoduje 


wprowadzenie dwóch liczb i wyprowadzenie ich ilorazu. 


4.1. Deklaracje etykiet 


Każda instrukcja programu Cz wyjątkiem instrukcji grupującej 
stanowiącej część wykonawczą bloku) może być opatrzona ety- 
kietą. Etykieta ma postać identyfikatora albo postać liczby 
całkowitej dziesiętnej bez znaku o wartości mniejszej niż 
10000. Każda etykieta musi być zadeklarowana. Zera wiodące 
nie odróżniają etykiet. 


Deklaracja etykiety ma postać 
label 
Lab, lab, ... „lab; 
w której każde lab jest nazwą etykiety. 
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Defintcje 


dekRlarac je-etykRiet: 
label deklarac ja-etykiet ; 
dekRlarac ja-etykiet: 
Lista-nazv-etykiet 


ttsta-—nazv-etykietŁ: 
nazwva-etykiety 
Lista-nazw-etykiet , nazwa-etykieŁy 


nazwvwa-etyktiety: 
tdentyftkator 
Łiczba-calkRowi ta-—bez-znaku 


Przykład Deklaracje etykiet 
label 25, Abort, Quit; 
label 

9999, Again; 


Napisy 25, Abort, Quit, S9S90 i Again są nazwami etykiet. 


4.2. Deklaracje typów 


zadeklarowanie zmiennej programu polega na określeniu nazwy 
zmiennej i podaniu jej typu. Typ może być predeklarowanym ty" 


pem standardowym, albo może zostać zadeklarowany jawnie. 


Deklaracja Łypu ma postać 


type 
td = Łype; 
td = Łype; 
td = type; 


w której każde td jest identyfikatorem Łypu, a każde type 
jest opisem typu. 


Deftnticje 
deklarac je-typów: 


type zestawv-deklarac Ji-Łypu 
zestaw-dekRłarac jit-typu: 

dekRlarac Ja-typu 

zestaw-deklarac ji-typu deklarac ja-typu 
dekRlarac ja-typu: 

nazwa—typu-deklarowanego = opis-typu ; 
nazwa-typu-deklarowanego: 

tdentyjfikator 
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optis-typu: 
opts-typu-standardowego 
opts-typu-wyliczeniowego 
optis-typu-okrojonego 
opts-typu-lańcuchowego 
opts-typu-wvskazującego 
opts-typu-tablicowego 
optis-typu-rekordowego 
opts-typu-mnogościowego 
opts-typu-plikRowego 


Przykłady Deklaracje Łypów 


type 
Whole = integer; 
< opis typu standardowego >» 


Colour = CRed,Green,Blue,OrangeD; 
< opis typu wyliczeniowego > 


RGB = Red. .Blue; 
<« opis typu okrojonego > 


Name : string[1i2]; 
< opis typu łańcuchowego 3 


StringPtr = Name; 
€ opis typu wskazującego nieprocedurowego 


Math = functionCvar First : real) : extended; 
< opis typu wskazującego procedurowego > 


Table = arrayl1i..5,1..5] of RGB; 
< opis typu tablicowego > 


Person = record 
FirstName : string.(5]; 
LastName : Name; 
Age : byte 
end; 


<« opis typu rekordowego > 


Letters = set of 'a'..'z'; 
<« opis typu mnogościowego > 


DataBank = file of Person; 
<« opis typu plikowego > 
Typ Whole jest synonimem standardowego typu całkowitego 
integer. Typ Colour jest wyliczeniowy, RGB okrojony, Name 
łańcuchowy, StringPtr i Math wskazujący, Table tablicowy, 
Person rekordowy, Letters mnogościowy, a DataBank plikowy. 


4.3. Deklaracje zmiennych niezainicjowanych 


Każda zmienna programu musi być zadeklarowana przed jej 
użyciem. W chwili utworzenia można przypisać zmiennej daną 
początkową. Zmienna, która jest tworzona bez przypisania jej 


danej początkowej jest nazywana zmienną niezatntic jowaną. 


3 — Turbo Pascal 5,0 


Deklaracje zmiennych niezainicjowanych mają postać 


var 
td,ta, ... „ta: type ; 
td,td, ... „td : type ; 
td,tda, ... „ta: type ; 


w której każde td jest identyfikatorem zmiennej, a type jest 
opisem typu każdej z nich. 


Szczególnym rodzajem deklaracji zmiennej niezainicjowanej 


jest deklaracja zmiennej nalożonej. Ma ona postać 


td : type absolute base; 


w której td jest identyfikatorem zmiennej, 


type jest opisem 
typu, 


a base jest nazwą uprzednio zadeklarowanej zmiennej 
bazowej albo adresem pamięci o postaci 


segment : offset 


w której segment i offset Są liczbami całkowitymi bez znaku. 


Przyjmuje się, że początek obszaru pamięci przydzielonego 


zmiennej nałożonej pokrywa Się z początkiem obszaru pamięci 


przydzielonego zmiennej bazowej albo znajduje się w miejscu 


określonym przez podany adres. Nic nie stoi na przeszkodzie, 


aby nazwa zmiennej bazowej była nazwą zmiennej nałożonej. 
De/fjtntcje 


deRlarac je-zmiennych-niezatntic Jjowanych: 
var zesławv-deklarac ji-zmiennych-niezatntic jowanych 


zestawv-deklarac ji-zmiennych-niezatinic jowanych: 
dek Larac ja-zmiennych-niezatnic jowanych 
dektarac ja-zmiennej-nalożonej 
zes tLav-dekRlarac jit-zmiennych-niezatntic jowanych 
dekRlarac ja-zmiennych-niezatntic jowanych 
zestawv-dekRlarac ji-zmiennych-niezatinic jJowanych 
deklarac ja-zmiennej-nalożonej 


dekRlarac ja-zmiennych-niezatntc Jowanych: 
ltista-nazw-zmiennych-niezatnticjowanych : opits-tyPu 

Llista-nazv-zmiennych-niezatntic Jjowanych: 
nazva—zmtenne j-niezatnic jowanej 
Łitsta-nazv-zmiennych-niezatnicjowanych , 

nazwa-zmtienne j-niezatnic Jjowane j 

nazwa-zmtennej-niezatnic Jovanej: 

tdenty/ftikator 


deklarac Jja-zmienne Jj-nalożone j: 

nazwa-zmiennej-nalożonej : opis-typu absolute 

nazwa-zmiennej-bazowej ; es ; 
nazwa-zmiennej-nalożonej : opis-łypu absolute adr 


adres: 
segment : przemieszczenie ; 


nazva”zmienne j-nalożonej: 
tdentyjtkator 


nazwa-zmtenne j-bazowej: 
tdentyfikator 


segment: 
Liczba-—calRowti Ła-bez-znaku 


przemieszczenie: 
Łiczba-calkRowi Ła-bez-znaku 


Przykład Deklaracje zmiennych niezatntic jJowanych 


var 
Count : integer; 
Length,Area,Volume : extended; 
Buffer : array[1..128] of char; 
FirstChar : char absolute Buffer; 


Numbers : array(boolean] of real; 
Complex : record 
Re,Ilm : real 


end absolute Numbers; 


Zmienna FirstChar jest zmienną nałożoną na zmienną Buffer. 
Tym samym nazwa Buffer[i] i nazwa FirstChar są nazwami tej 
samej zmiennej. Zmienna Complex jest nałożona na zmienną 
Numbers. W szczególności Numbersltrue] i Complex.Im są naz— 


wami tej samej zmiennej. 


4.4. Deklaracje zmiennych zainicjowanych i symboli 


Zmienna, której w chwili utworzenia jest przypisywana dana 
początkowa, jest nazywana zmienną zatnicjowaną. Zmienne 
zainicjowane są tworzone tuż przed podjęciem wykonywania 
programu. Deklaracje zmiennych zainicjowanych mogą być 
zgrupowane z deklaracjami symboli. Przyjmuje się z 
definicji, że symbolem jest identyfikator reprezentujący 
literał. Literałami są m.in. liczby Cnp. 12.4, -50, 6E-3 1 
łańcuchy Cnp. '"Jan*, "'B'V. 

Dejftntcje 


deklarac je-zmiennych-zatitnicjJowanych-t-symboLt: 
const zestawv-deklarac ji-zmiennych-zatnic jowanych-t-symbolt 
zestaw-deklarac jJi-zmiennych-zatntic jJowanych-t-symbolLt: 
dekRtLarac ja-zmiennej-zatlnicjowanej 
dekRlarac ja-symbolu 
zestaw-deklarac ji-zmiennych-zatnicjowanych-t-symboLt 
deklarac ja-zmiennej-zatntc jJowanej 
zestaw-deklarac jJt-zmiennych-zatnic jowanych-t-symboLt 
deklarac ja-symbolu 
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dekRlarac ja-zmiennej-zatntic jowanej: 
nazva-zmiennej-zaitnic jowanej : optits-typu = tntcjator ; 


nazva-zmiennej-zatnicjowanej: 
tdentyfitkator 


inicjator: 
inicjator-zmiennej-porządkowej 
inicjator-zmiennej-lańcuchowej 
inticjator-zmiennej-vskazującej 
tintcjator-zmiennej-tablticowej 
intcjator-zmiennej-rekordowej 
tnicjator-zmiennej-mnogościowej 


deklarac ja-symbolLu: 
symboLl-dekRlarowany = wyrażentie-stale 


symboLl-deklarowany: 
symbol 


symboL: 
tdentyftkator 


Uwaga: Rodzaj użytego inicjatora musi być dostosowany do typu 
zmiennej Cnp. jeśli zmienna jest typu tablicowego, to w dek-— 
laracji musi być użyty inicjator zmiennej tŁablicowejD. 


Przykład Deklaracje zmiennych zainicjowanych ti symboŁt 


const 
e = 2. 718282; 
g = 9.81; 
myName = "Jan Bielecki'; 
Truth = true; 
Sum : real = O; 
Name : string = "Izabela"; 


PtŁr : pointer = nil; 
Colours : arrayli..3] of stringl5] = 
C"Red”, Green", 'Blue'D; 


Complex : record 
Re,lm : real 
end = (Re : 2.0; Im : 3.00; 
Letters : set of ”a'..'z” = ['x','y']; 
eMinus = -—e; 


Napisy e, g, myName, Truth i eMinus są symbolami. Napisy Sum, 
Name, Ptr, Colours, Complex i Letters są nazwami zmiennych 


zainicjowanych. 


4.5. Deklaracje procedur 


Procedury dzielą się na funkcyjne i niefunkcyjne. Procedury 


funkcyjne są nazywane /funkc jamt. 


ne 
Deklaracja procedury określa czynności jakie zostaną wykona 

Ż 
w ramach jej wywołania. W przypadku funkcji określa równi* 
typ danej udostępnianej w miejscu jej wywołania, nazywanej 


rezultatem funkcji. 
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Deklaracje procedur dzielą się na definiujące, zapowvia- 
dające i uzupelniające. Typowymi deklaracjami są deklaracje 
definiujące. Posłużenie się deklaracją zapowiadającą, a na— 
stępnie uzupełniającą, jest niezbędne jedynie wtedy, gdy nie 
jest możliwe takie uporządkowanie deklaracji definiujących, 
aby nazewnik procedury (nazwa wraz z następującą po niej 


listą argumentów) wystąpił dopiero po deklaracji procedury. 


Deftntcje 


deklarac je-procedur: 
deklarac ja-procedury 
dekLarac je-procedur deklarac ja-procedury 


dekRlarac ja-procedury: 
deklarac ja-deftiniująca 
deklarac ja-zapowiada jąca 
deklarac ja-uzupelniająca 


Przykład Deklaracje procedur 


const 
Val : byte = O; 


function FunCPar : byte) : byte; € zapowiedź > 
forward; 
var 
Num : byte; 
procedure SubCPar : byte); < definicja > 
begin 
1£ Par > O then 
Val := 1 + FunCPar — 1) 
end; 
function Fun; < uzupełnienie > 
begin 
if Par > O then SubC(Par — 10; 
Fun := 13 
end; 
begin € main program > 
ReadlnCNuno ; 
WriteCFunCNum” + ValDJ 
end. 


Program zawiera trzy deklaracje procedur: deklarację 
zapowiadającą funkcji Fun, deklarację definiującą procedury 
niefunkcyjnej Sub i deklarację uzupełniającą funkcji Fun. 
Ciało deklaracji zapowiadającej funkcji Fun składa się ze 
słowa kluczowego forwxrd. Nagłówek deklaracji uzupełniającej 


tej funkcji nie zawiera wykazu parametrów. 
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4.6. Zakres i zasięg deklaracji 


Zakresem deklaracji jest ta część najwęższego bloku obej-— 
mującego daną deklarację, która rozciąga się od punktu 


zadekRlarowania do końca bloku. 


Punktem zadeklarowania nazwy typu oraz nazwy zmiennej jest 
punkt występujący bezpośrednio za deklarowaną nazwą, a punk- 
tem zadeklarowania etykiety jest punkt występujący przed 
pierwszą instrukcją najwęższego bloku obejmującego daną 
etykietę. 


Zasięg deklaracji jest zazwyczaj węższy od zakresu, gdyż nie 
obejmuje zakresów deklaracji przeslaniających występujących w 
blokach wewnętrznych. 


Przykłady 


a Punkt zadekRLlLarovania 


var 
Arr : arrayl[false. .true]l of boolean; 
false : integer; 
begin 
false := 1; 
Arr[(truel := false > 10; 
Arrlo = 1] := true; 
writeCArr[O = 1] = Arr[(trueJD 
end. 


Punktem zadeklarowania zmiennej false typu integer jest punkt 
występujący bezpośrednio po identyfikatorze tej zmiennej. 
Wykonanie przytoczonego programu powoduje wyprowadzenie 
napisu FALSE. W zależności od miejsca wystąpienia, 
identyfikator false reprezentuje daną o wartości true albo 


jest nazwą zmiennej typu integer. 


b Przestantianite 


program Hide; 
const 


a : integer = O; 

b : integer = O; 
procedure Sub; 
const 

b : integer =0O; 
begin 

a :=a + 1; 

b :=b + 1; 

WritelnCa,b); 
end; 
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begin 
Sub; 
WritelnCa,bDJ 
end. 
Wykonanie programu powoduje wyprowadzenie dwóch par liczb: 
1, 1 i 1, O. Gdyby z programu usunięto deklarację przesła— 
niającą (deklarację zmiennej b w procedurze Sub), to wyko- 


nanie programu spowodowałoby wyprowadzenie liczb 1, 1 i 1, 1. 


Deklaracje obiektów programu źródłowego muszą być tak 

w nim rozmieszczone, aby każde odwołanie do obiektu 
występowało w zasięgu jego deklaracji. Od zasady tej jest 
Jeden wyjątek: opis typu bazowego typu wskazującego może 
zawierać opis typu jeszcze nie zadeklarowanego, pod warunkiem 
Jednak, że opis ten nie jest nazwą typu właśnie 


deklarowanego. 


Przykład Odwolante do typu nie zadeklarowanego 


type 
PairPtr = Pair; 
Pair = record 


Fix : integer; 
Ptr : PairPtr 
end; «€ Punkt zadeklarowania typu Pair > 


Mimo iż powołanie Się na typ Pair występuje jeszcze przed 


zadeklarowaniem Łego typu, deklaracja 
PairPtr = Pair; 


jest poprawna. Należy zwrócić uwagę, że deklaracja pola Ptr 


nie mogłaby zostać przedstawiona w postaci 
PtŁr : Pair 


gdyż zawierałaby opis typu Pair, właśnie deklarowanego. 


5. TYPY 


Z każdym typem jest związany zbiór danych. Uważa się, że 
zmienna jest pewnego typu, jeśli można jej przypisywać dane 
należące do zbioru związanego z podanym typem. Zgodnie 

z podanym niżej schematem, typy zmiennych dzielą się na 
proste i złożone. Typami prostymi są typy porządkowe, 
rzeczywiste, łańcuchowe i wskazujące, a typami złożonymi typ 
tablicowe, rekordowe, mnogościowe i plikowe. Typ porządkowy 
charakteryzuje się Łym, że jest związany z przeliczalnym 
zbiorem danych. Tym samym z każdą daną tego zbioru może być 
związana unikalna liczba całkowita. Jest ona nazywana liczbą 


porządkową danej. Typy nie wymagające deklarowania są nazy— 


porządkowe 

rzeczywiste 
PrORLE łańcuchowe 

wskazujące 

Typy 

tablicowe 

rekordowe 
złożone 


nnogościowe 


plikowe 
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wane typami standardowymi. Są nimi typy porządkowe: integer, 
shortint, longint, byte, word, boolean i char, typy rzeczy- 
wiste: real, single, double, extended 1 comp, typ łańcucho— 
wy: string oraz typ wskazujący: pointer. 


Definicje 


typ: 
typ”prosty 
typ-zlożony 


typzprostŁy: 
typ-porządkowy 
typ-rzeczyvtsły 
typ-lańcuchowy 
typ-wskazujący 


typ-Zlożony: 
typ-tablicowy 
typ-rekordowy 
typ”mnogościtowy 
typ-pltRowy 


typy-standardowe: 
standardowy-typ-catlRovtity 
standardowy-—typ"rzeczywisty 
standardowy—typ-Logticezny 
standardowy—typ"znakowy 
standardowy-—typ-lańcuchowy 
standardowy-—typ-”wskazujący 


standardowy—typ-calRowvity: 
typ-tinteger 
typ-shorttnt 
ŁYP-lLOnSLNEŁ 
typ-byte 
typ-word 


standardowy—tYp-rzeczywisty: 
typ-real 
typ-stingle 
typ-douwble 
typ-extended 
ŁYPTCOMP 


standardowy—typ”"logtczny: 
typ-boolean 


standardowy-—typ"znakowy: 
typ”char 


standardowy-—typ-tlańcuchowy: 
typ-strting 


standardowy-—Łyp-wskazujący: 
typ-potnter 
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5.1. Typy porządkowe 


Typ porządkowy jest typem prostym. Typami porządkowymi są 

standardowe typy całkowite, standardowy typ logiczny, Stan- 
dardowy typ znakowy oraz typy wyliczeniowe i okrojone. Opis 
standardowego typu porządkowego składa się z identyfikatora 


Łypu. 


Deftnticje 
typrporządkRowy: 
standardowy—typ-calRowi ty 
standardowy—tŁyp-logiczny 
standardowy—tYyp-znakRowy 
typ-wyLtczentowy 
typ"okRro jony 


opis-typu-porządkowego: 
opts-standardowego—tŁypu-calRowvt tego 
opis-standardowego—typu-lLogicznego 
opis-standardowego-typu-znakowego 
opis-typu-wyLlticzentiowvego 
opis-typu-okrojonego 
opis-standardowego-—typu-catlRovtitego: 
integer 
shorttnt 
Longtnt 
byte 
word 
opis-standardowego—tŁypu-logicznego: 
boolean 
opis-standardowego-typu-znakowego: 
char 


Standardowe typy całkowite 


Dane standardowego typu całkowitego tworzą zbiór danych o war” 
tościach całkowitych. Z każdym typem danych jest związany 
inny zbiór danych całkowitych. Przedstawiono to w tablicy 
5.1, w której podano dodatkowo liczbę bajtów niezbędnych do 


Tablica 5.1 Dane calkowite standardowe 


integer —32768. . 32767 
shortint —128..127 


longint -21 47483648. . 2147483647 
byte O..255 
word O.. G5535 
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reprezentowania danej. Jak można się przekonać, dane typu 
integer, shortint i longint są danymi ze znakiem, a dane typu 
byte i word są danymi bez znaku. Literał całkowity jest typu 
longint. Wartość liczby porządkowej danej typu całkowitego 


jest równa wartości danej. 


Przykład Deklaracje zmiennych calkRowti tych 


const 

Fix : integer = 13; 
var 

Short,Tiny : shortint; 
const 


Long : longint = 1OOO0OO; 


zmienna Fix jest typu integer. Przypisano jej daną początkową 
o wartości 13. Zmienne Short i Tiny są typu shortint. Zmienna 
Long jest typu longint. Przypisano jej daną o wartości 1OOOOO. 
Literał 13 jest typu longint. Ponieważ typ literału 13 nie 
jest identyczny z typem zmiennej Fix, przypisanie danej musi 
być poprzedzone niejawną konwersją danej typu longint w daną 
typu integer. 


Standardowy typ logiczny 


Dane standardowego typu logicznego są elementami zbioru da— 
nych logicznych. Każda z danych jest reprezentowana w jed— 

nym bajcie pamięci. Dana reprezentowana przez literat false 
ma liczbę porządkową O, a dana reprezentowana przez literał 


true ma liczbę porządkową 1. 


Przykład Deklaracje zmiennych logicznych 


var 
Even : boolean; 

const 
Female : boolean = true; 


Zmienne Even i Female są typu boolean. Zmiennej Female przy- 


pisano daną początkową o wartości true. 


Standardowy typ znakowy 


Dane standardowego typu znakowegoo są elementami zbioru za— 
wierającego znaki rozszerzonego kodu ASCII. Każda dana typu 
znakowego jest reprezentowana w jednym bajcie pamięci. Liczbą 


porządkową danej jest kod znaku, Z którego składa się dana. 
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Przykład Deklaracje zmiennych znakowych 
const 


Sign : char = "*'; 
var 


First, Last char ; 


Zmienne Sign, First i Last są typu char. Zmiennej Sign przy” 


pisano daną początkową składającą się ze znaku + Cpłus). 


Typy wyliczeniowe 


Typ wyliczeniowy jest niestandardowym typem porządkowym. 

Z każdym typem wyliczeniowym jest związany zbiór danych na 
których nie wykonuje się operacji arytmetycznych. Poszcze- 
gólne elementy zbioru są oznaczane różnymi identyfikatorami - 


Uporządkowanie danych typu wyliczeniowego wynika z kolejności 
wystąpienia identyfikatorów danych w opisie typu. 


Opis typu wyliczeniowego ma postać 


Cta,ta, ... „to 


w której każde td jest identyfikatorem pełniącym rolę 
literału danego typu wyliczeniowego. 


Z każdą daną typu wyliczeniowego jest związana liczba po— 


rządkowa określona przez miejsce wystąpienia identyfikatora 
danej w opisie typu. Przyjmuje się, że liczby porządkowe 
tworzą ciąg arytmetyczny o różnicy 1, 


a z pierwszą daną jest 
związana liczba porządkowa O. 


Dejtntcje 
opts-typu-wylticzeniowego: 
C Łtsta-łiłeralów-wyltczentowych 
Lista-literalów-wyliczeniowych: 
Łtiłteral-wylticzeniowy 
Łtsta-łiteralów-wyliczentiowych , 


ttteral-wyliczentiowy: 
tdentyfikator 


Łiteral-wylticzentiowy 


Przykład Deklaracje typów wyliczeniowych 


Day = CMon, Tue, Wed, Thu,Fri ,Sat,Sun); 
= CRed, Green, Blue); 


Direction = CNorth,South,East, West); 


const 
DayOf Week Day = Tue; 
Tuesday : Day = Tue; 
var 


Color ,Hue : RGB; 
Route : Direction; 
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Zmienna DayOfWeek jest typu Day. Zmienne Color i Hue są typu 
RGB. Zmienna Route jest typu Direction. Zmiennej DayOfWeek 
przypisano daną początkową reprezentowaną przez literał Tue. 


Liczbą porządkową tej danej jest 1. 


Typy okrojone 


Typ okrojony jest niestandardowym typem porządkowym. Każdy 
typ okrojony wywodzi się od typu nazywanego typem bazowym da— 
nego typu okrojonego. zbiór danych związany z typem okrojonym 
jest podzbiorem zbioru danych związanego z jego typem bazo— 
wym. Typem bazowym typu okrojonego może być dowolny Sstandar — 
dowy typ porządkowy albo typ wyliczeniowy. Wybór zbioru da— 
nych związanego z typem okrojonym odbywa się przez określenie 


zakresu liczb porządkowych danych zbioru bazowego. 


Opis typu okrojonego ma postać 
MLN .. max 


w której min i max są wyrażeniami stałymi Cnajczęściej lite— 


rałami) tego samego typu porządkowego. 


Przyjmuje się, że do zbioru związanego z typem okrojonym 
należą te wszystkie dane zbioru bazowego,których liczby 
porządkowe należą do zakresu min .. max określonego przez 
ograniczenie dolne Cmino i ograniczenie górne (max). Wymaga 
się, aby liczba porządkowa danej reprezentowanej przez 
ograniczenie dolne była nie większa od liczby porządkowej 


danej reprezentowanej przez ograniczenie górne. 


Deftntcje 


opits-typu-okrojonego: 
ograniczenie-dolne .. ograniczentie-górne 


ograniczenie-dolne: 
wyrażenie-porządkowe 


ograniczenie-górne: 
wyrażenie-porządkowe 


vwyrażenie-porządkowe: 
wyrażenie-stale 


77 


Przykład Deklaracje typówv okrojonych 


type 
Lower = "a'..'z'; 
Logical = false..true; 


Unsigned = O..65535; 
Day = CSun,Mon, Tue, Wed, Ihu,Fri ,SatJ; 
WorkDay = Mon..Fri; 
const 
Letter : Lower = "j"; 
SexilsMale : Logical = true; 
Flags : Unsigned = 13; 
TIheDay : WorkDay = Wed; 


Zmienne Letter, SexIsMale, Flags i TheDay są typu okrojonego. 


Przypisano im dane należące do zbiorów związanych z ich ty” 
pami bazowymi. W szczególności zmiennej TheDay przypisano da— 
ną reprezentowaną przez literał Wed. Niepoprawne byłoby przy” 
pisanie jej danej reprezentowanej przez Sun albo Sat, jako że 
żadna z nich nie należy do zbioru związanego z typem okrojo- 
nym WorkDay. Zasługuje na uwagę, że typ okrojony Unsigned ma 


wszystkie właściwości typu word, ale z punktu widzenia języka 
jest od niego różny. 


5.2. Typy rzeczywiste 


Typ rzeczywisty jest typem prostym. Typami rzeczywistymi mogą 
być tylko standardowe typy rzeczywiste. Opis standardowego 
typu rzeczywistego składa się z identyfikatora typu. 


Typy single, double, extended i comp mogą być używane tylko w 
programach wykonywanych w Środowisku obejmującym koprocesor 
arytmetyczny. Ograniczenie Ło nie dotyczy typu real. Każdy z 
typów rzeczywistych jest związany ze zbiorem danych o 
wartościach rzeczywistych. Zakresy tych wartości zależą od 


obranego typu. Przedstawiono je w tablicy 5.2, ograniczając 
się do wartości dodatnich. 


Tablica 5.2 Dane rzeczywiste standardowe 


real 2.93e—39..1.7e38 
single 1. 5e-45..3. 4e38 
double 5.0e-324..1.7e308 


extended | 1. 9e—4051..1.1e4932 
comp 1..9..2e1i8 


W Łablicy tej podano ponadto liczbę cyfr znaczących 
wartości 1 liczbę bajtów pamięci operacyjnej niezbędną do 
reprezentowania danej. Pozostaje nadmienić, że mimo iż war— 
tości danych typu comp Są rzeczywiste, są pozbawione części 
ułamkowych. Z tego względu dokładny zakres wartości danych 
tego typu pokrywa się z zakresem danych całkowitych z prze— 
działu — 253.4 . 20311 


Deftntcje 


opts-typu-rzeczywvistego: 
real 
single 
double 
extended 
comp 


Przykłady Deklaracje zmiennych rzeczywvtistych 


var 
Float : real; 
LongFloat : double; 
const 


Int : comp = 12.4; 


Zmienne Float i LongFloat są odpowiednio typu real i double. 
Zmienna Int jest typu comp. Przypisano jej daną początkową 

o wartości 12.0EO C(Sic!). Część ułamkowa danej typu extended, 
reprezentowanej przez literał 12.4, została odrzucona podczas 
konwersji z typu extended do typu comp. Przytoczony zestaw 
deklaracji jest poprawny jedynie w środowisku obejmującym ko- 


procesor. 


5.3. Typy łańcuchowe 


Typ łańcuchowy jest typem prostym. Opis typu łańcuchowego ma 
postać 


stringln] 
w której n jest wyrażeniem stałym typu całkowitego. 


Z każdym typem łańcuchowym string[n] jest związany zbiór 
danych łańcuchowych, z których każda składa się z nie więcej 


niż n znaków rozszerzonego kodu ASCII. 


Przyjmuje się z definicji, że standardowy typ łańcuchowy 
string jest identyczny z typem stringl2SS]. 
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Deftntcje 


opis-typu-lańcuchowego: 
string £[ rozmiar |] 
string 


rozmiar: 
wyrażenie-stale 


Przykład DeRlaracje typóv lańcuchowych 


const 
Name : stringli2] = "Jan Bielecki"; 
ShortName : stringl4] = "JanBielecki"; 
var 


Line : string; 


Zmienna Name jest typu stringii2]. Zmienna ShortName jest ty” 
pu stringl4]. Zmienna Line jest typu stringli28]. Zmiennej 
Name przypisano daną początkową "Jan Bielecki'. Zmiennej 
ShortName przypisano daną początkową '"JanB*. Dana typu 
stringlii] reprezentowana przez literał 'JanBielecki' została 
podczas niejawnej konwersji przekształcona w daną typu 
stringl4). 


5.4. Typy wskazujące 


Typ wskazujący jest typem prostym. Typ standardowy pointer 
jest związany ze zbiorem danych lokalizujących obszary 
pamięci operacyjnej, a każdy z pozostałych typów wskazujących 
jest związany ze zbiorem danych wskazujących zmienne i 
procedury jawnie określonego typu, nazywanego Łłypem bazowym 


typu wskazującego. 


Opis typu wskazującego składa się z predeklarowanego 
identyfikatora 


poi nter 


albo ma postać 
type 
o ŁYP” 
w której type jest identyfikatorem typu bazowego daneg 
wskazującego. 


ąceg” 


Opisem typu wskazującego jest również opis typu wskazuj du” 
ce 


procedurowego, mający postać deklaracji nagTówkowej pro 


ry. Opis ten ma w ogólnym przypadku postać 
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procedure( par) 


function(parV> : res 


w których każde par jest wykazem parametrów, a res jest opi- 


sem typu rezultatu procedury Cjeśli wykaz par jest pusty, to 


należy pominąć nawiasy okrągłe). 


Do zbioru danych wskazujących związanego z dowolnym typem 


wskazującym nieprocedurowym należy wskazanie puste. Wskaza— 


nie takie, reprezentowane przez słowo kluczowe nil, nie jest 


związane z żadnym obiektem. Typ wskazania pustego oraz typ 


pointer jest zgodny w sensie przypisania z każdym typem wska— 


zującym. 


Deftntcje 


opis-typu-vskazującego: 
potnter 
* typ-bdazovy-typu”wskazującego 
procedure C wykaz-parametrów DD 
function C wykaz-parametrów 0) : typ-"rezultatu 


typ-bazowy-typurvskazującego: 
tdentyftkator-typu 


tidentyftkator-typu: 
tdentyjftitkRator 


wykRaz—parame trów: 
zestav-parame tŁTÓw 
wykaz—parametrówv ; zestaw-parametrów 


zes tawv-parame trów: 
var Lista-parametrów : opits-typu”"parametrów 
var Ltista-—parametrów 
Lista-parametrów : optis-—ŁYPU-PATamnetrów 


Lista-paranetrów: 
Lista-parametrów , parametr 


parametr: 
identy/ftRator 

optis-—typu-paramnetrów: 
tdentyjftkRator 


typ”rezułtatu: 
tdenty/ftkator 


Przykład Deklaracje typów it zmiennych wskazujących 


type 
RGB = CRed,Green, Blue); 
RGBref = ©RGB; 
bytePtr = *byte; 
Shift = procedureCvar Par : word; 
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const 
PtŁr : pointer = nil; 
var 
Ref : bytePtr; 
RefRef : CRGBref; 


L$F+> 
procedure ROLlvar Wordl6 : word)D; 
begin 
if CWordl6 and $80000 = $8000 then 
Wordi6 := CWordi6 shl 10 + 1 
else 
Wordi6 := Wordi6 shl 1 
end; 


Zmienna Ptr jest typu pointer. Przypisano jej daną początkowa 
stanowiącą wskazanie puste. Zmienna Ref jest typu bytePtr. 
Można jej przypisywać wskazania zmiennych typu byte. ZmienneJj 
RefRef można przypisywać pośrednie wskazania zmiennych typu 
RGB. Zmienna Shift jest zmienną wskazującą procedury. Można 


jej przypisywać wskazania procedur, na przykład wskazanie 


procedury ROL. 


5.5. Typy tablicowe 


Typ tŁablicowy jest typem złożonym. Tablica jest zmienną 
strukturalną której można przypisywać dane składające się z 
ustalonej liczby komponentów nazywanych elementami. Każdy z 
elementów tablicy jest takiego samego typu. Elementy mogą 

być zarówno typu prostego jak i złożonego. Z każdym elementem 
jest związana dana typu indeksowego podanego w opisie typu 
tablicowego. Typem indeksowym może być dowolny typ porządkowy 
związany ze zbiorem danych, których liczby porządkowe należą 
do przedziału —32768..32767 albo O..65535. Dostęp do 
elementów tablicy odbywa się przez tndeksowantie. Indeksowanie 
polega na podaniu nazwy tablicy i bezpośrednio za nią, 


ujętego w nawiasy kwadratowe indeksu. 


Opis typu tablicowego ma postać 
array [indexType]l of elementType 
albo 
packed array [indexType] of elementType 
elemen" 
w których tindexType Ctyp indeksów) i elementType CŁYP 


tów są opisami typu. 
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Uwaga: Słowo kluczowe packed wyraża zalecenie, aby ele- 
menty tablicy były upakowane w pamięci. Ponieważ w rozpatry- 
wanej implementacji wszystkie tablice są upakowane, Słowo 
kluczowe packed jest ignorowane i nie będzie dalej wymienia- 


ne. 
Deftntcje 
opis-typu-tablticowego: 


array [ opts-typu-indeksowego ] of opis-typu-elementów 
optis-typu-tindekRsowego: 

opts-typu-porządkowego 
opis-typu-elementów: 

opts-typu 


Przykłady Deklaracje typówv tt zmiennych tablicowych 


type 
Colour = CRed,Green,BlueD); 
Vector = array[Colour] of byte; 
var 
Matrix : array(-3..+3] of Vector; 
Table : array[booleanj of arrayl[Colour] of pointer; 


Typ Vector jest typem tŁablicowym. Elementami tablic tego typu 
są zmienne typu byte. Zmienna Matrix jest tablicą o elemen— 
tach typu Vector, a więc jest tablicą tablic. Elementami tab— 
licy Table są tablice o elementach typu pointer. Ponieważ in- 
deks tablicy Table może przybierać wartości Red, Green i Blue, 
ogółem tablica Table składa się z 6 zmiennych typu pointer. 


W celu skrócenia opisów typów tablicowych o elementach tabli— 
cowych, przewidziano uproszczenie polegające na połączeniu 


dowolnego zestawu sąsiadujących napisów o postaci 
array[opis-łypu-indeksowego] 
w jeden napis 


array[ Lista-opisów-typu-tindeksowego] 


Przykład Opisy równoważne 


array(char] of array[1i..2] of arraylboolean] of real 
arraylchar ,1..2,boolean] of real 
arraylchar] of array[1..2,boolean] of real 
array[char,1..2] of array[boolean] of real 

Jeśli opis typu tablicowego, przekształcony do postaci nie 


zawierającej przytoczonego uproszczenia (co jest zawsze wy— 


83 


konalne) zawiera po pierwszym słowie kluczowym of opis typu 
tablicowego, to cały opis typu jest opisem typu tablicy wie— 


lowymiarowej. W przeciwnym razie jest opisem typu tablicy 
jednowymiarowej wektora). 


Niezależnie od sposobu przedstawienia opisu tablicowego, na” 


zwy elementów tablic mają postać 


NamelExp] 


w napisie Łym Name jest nazwą tablicy, a Exp jest wyrażeniem 
typu porządkowego zgodnego w sensie przypisania (por. punkt 
5.90 z typem indeksowym odpowiedniego wymiaru tablicy. Po 
ewentualnym dokonaniu konwersji wyrażenia Exp do typu 
indeksowego Cpor. punkt 7.8 zostaje utworzona dana, z którą 
w wybranym wymiarze jest związany element tablicy. Dana ta 


jednoznacznie identyfikuje element NamelExp]. 


Pozostaje nadmienić, że podobnie jak opisy typów tablicowych» 
tak i zestawy indeksów mogą być przedstawione w postaci upro"- 


szczonej. Uproszczenie polega na tym, że dowolny zestaw napi - 


SÓw 
[Expl]llExp2] ... [Expn]l 


może być przedstawiony w postaci równoważnej 


[Expl ,Exp2, ... „,EXpn] 


Przykład Z/Zdentyfikowanie elementów tabłtc 


type 
Colour = CRed, Green, Blue); 
var 


Table : arrayl[boolean,byte,Colour] of pointer; 


Zmienna Table jest tablicą trójwymiarową. Dopuszczalnymi wy” 
rażeniami indeksowymi pierwszego wymiaru są wyrażenia typu 
boolean, dopuszczalnymi wyrażeniami indeksowymi drugiego 
wymiaru są wyrażenia całkowite o wartościach z przedziału 
0..255, a dopuszczalnymi wyrażeniami indeksowymi trzeciego 
wymiaru są wyrażenia typu Colour. Napis Tableltrue] jest na” 
zwą tablicy dwuwymiarowej, napis Tableltrue,2] jest nazwa 
wektora, a napis Tablel[true,2][Red] jest nazwą zmiennej 
prostej. Napis Tablel[true,300,Red] jest niepoprawny» poni 


, , em 
wyrażenie 300 nie jest zgodne w sensie przypisania Z ŁYyP 
byte. 


eważ 


84 


Ważną odmianą tablic jednowymiarowych są wektory znakowe. 

Wektorem takim jest każda tablica jednowymiarowa o elementach 
typu char. Nazwa wektora znakowego może wystąpić w wyrażeniu 
wszędzie tam, gdzie może wystąpić nazwa zmiennej łańcuchowej. 
Jest wówczas traktowana tak, jakby reprezentowała daną łańcu— 


chową składającą się z wszystkich znaków wektora. 


W celu ułatwienia bezpośredniego dostępu do pamięci operacyj— 
nej i portów wejścia-wyjścia, predeklarowano 5 tablic o naz— 
wach Mem, MemW, MemL i Port, PortWw. Pierwsze trzy umożliwiają 
dostęp do pamięci, a dwie następne do portów wejścia-wyjścia. 
Elementami tablic Mem, MemW i MemL są odpowiednio zmienne 
typu byte, word i longint, a elementami tablic Port i Portw 
są zmienne reprezentujące odpowiednio porty bajtowe i sło— 


wowe. 


Wyrażenia indeksowe tablic Mem, Memw i MemL mają specjalną 
postać. Składają się mianowicie z dwóch podwyrażeń typu zgod— 
nego w sensie przypisania z typem word, oddzielonych zna— 
kiem : CdwukropekO, z których pierwsze określa numer segmen— 
tu, a drugie przemieszczenie w segmencie. Nazwa elementu tab— 
licy zawierająca takie wyrażenie reprezentuje wówczas wybraną 


zmienną pamięci operacyjnej. 


Wyrażeniami indeksowymi tablic Port i PortW mogą być dowolne 
wyrażenia typu zgodnego w sensie przypisania z typem word. 
Nazwa elementu tablicy zawierająca takie wyrażenie jest wów— 


czas nazwą odpowiedniego portu wejścia-—wyjścia. 


Przykład Odwolanta do tabłic predekRlarowanych 
PortŁ[$20] := Mem[$0040 : $ff]; 


Wykonanie instrukcji przypisania powoduje przeniesienie danej 
bajtowej zawartej w pamięci Csegment 64, przemieszczenie 255) 


do portu bajtowego o numerze 32. 


Deklarowanie zmiennych tablicowych może być połączone z ich 
inicjowaniem. Polega ono na tym, że w chwili utworzenia zmien— 
nej tŁablicowej jest jej przypisywana dana określona przez 
inicjator. Inicjator zmiennej tablicowej składa się z listy 
inicjatorów elementów ujętej w nawiasy okrągłe. Kolejność wys— 
Łąpienia inicjatorów musi być zgodna z kolejnością elementów 
tablicy. Inicjowaniu muszą podlegać wszystkie elementy. 
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Definicje 
tnicjator-zmiennej-tablticowej: 
C Łista-tntcjatorów-elementów D) 


lista-tinticjatorów-elementów: 
initcjator-elementu 
tista-tnicjatorów-elementów , tnticjator-elementu 


intcjator-elementu: 
tnticjator 
Jeśli inicjacji podlega wektor znakowy, to lista inicjatorów 
elementów może być uproszczona do literału łańcuchowego skła— 


dającego się ze znaków zawartych w inicjatorach. 


Przykład Przypisywanie danych początkowych zmiennym 
tabłŁtcowym 
type 
Vector = arrayli..2] of stringl3)]; 
Matrix = arraylboolean,boolean] of char; 
const 


Girls : Vector = C'Ewa', Iza"); 

Square : Matrix = C C'J','a'J,C'n','B'D DJ; 

Table : Matrix = C'Ja','nB'D; 
Zmiennej Girls przypisano daną początkową składającą się 
z danych "Ewa i "'Iza'. Inicjatory wektorów znakowych 
Matrixifalsej] i Matrix[true] przedstawiono za pomocą lite— 


rałów łańcuchowych. 


5.6. Typy rekordowe 


Typ rekordowy jest typem złożonym. Rekord jest zmienną struk- 
turalną, której można przypisywać dane składające się z usta- 
lonej liczby komponentów nazywanych polami. Pola są zmiennymi 
na ogół różnych typów. Dostęp do pól odbywa się przez selek- 
cję. Selekcja polega na podaniu nazwy rekordu i identyfika- 
tora pola. Nazwę od identyfikatora oddziela znak . CkropRo. 


Opis typu rekordowego ma postać 


record 
Ltisł : type; 
łtist : type; 
Łist : type; 
end 
kordur % 


w której każde list jest listą identyfikatorów pól re 
zający 


każde type jest opisem typu. Znak ; Cśredniko poprzed 


słowo kluczowe end może być pominięty. 
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Specjalną odmianę typów rekordowych stanowią łypy rekordowe z 
vartantamti. Deklaracja wariantów może wystąpić w miejscu 


ostatniego napisu 
List : type; 
Ma ona w ogólnym przypadku postać 


case sel of 
lab : CvarJ 
lab : CvarJ 


lab : CvarJ 


w której sel jest opisem typu wyróżnikowego, albo deklaracją 
pola nazywanego wyróżnikowym, każde lab jest listą etykiet 
wyboru wariantu, a każde var jest wykazem składowych wariantu 
o postaci 

list : Łype; 

ttisł : type; 

List : type; 
Cjak uprzednio ostatni z tych napisów może być zastąpiony 
deklaracją wariantów. 


Etykietą wyboru wariantu może być dowolne wyrażenie stałe 
typu wyróżnikowego, najczęściej literał albo symbol. 


De/ftntcje 


opis-typu-rekordowego: 
record wykaz-skladowych end 


wykaz-skladowych: 
wykaz-dekRlarac jt-pól 
dekRlarac ja—wartantów 
wykaz-deRlaracji-pól ; dekRlarac ja-vartantów 


wykaz—dekRtarac jt-póL: 
dekRlarac ja-pól 
wykaz-deklaracjti-pól ; deklarac ja-pót 


dekRlLarac ja-póL: 
Lista-nazw-pól : opts-typu 


Lista-nazv-pól: 

NAazwWa—-po La 

lista-nazw-pól , naezewa-pola 
nazwa—po La: 

tdentyfikator 
dekRlLarac ja—wartantów: 


case deklaracja-pola-wyróżnikowego of wykaz-wartantów 
case opis-typu-wyróżnikowego of wykaz-wartantów 
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dekRlLarac ja-pola-wyróżnikRowego: 
nazwa-pola-wyróżnikowego : opits-typu-wyróżni kowego 
Razwa-poLa"WYróŻRNI Rowvego: 
tdentyftitkator 
opis-tŁypu-wyróżnikRowvego: 
tdentyjfitkator-typu-porządkowego 
tdentyftkator-typu-porządkowego: 
tdentyjfjtkator 
wykaz wariantów: 
Lista-etykiet-wyboru-vartantu : 
C wykaz-skladowych-wartantu JD 
Lista-etykitet-wvyboru"wvartantu: 
etykieta—wyboru-wartantu 
Lista-etykiet-wyboru-wartantu , etykieta-wyboru-warianł U 
etykRieta-—wyboru-waritantu: 
wyrażenie—typu-wyróżnikowego 
wyrażenie-tŁypu-wyróżnikowego: 
wyrażenie-stale 


wykRaz-skRladowych-wartantu: 
wykaz-skladowych 


Przykład Deklaracje typówv t zmiennych rekordowych 


type 
Date = record 
Month : 1..12; 
Year : 18900..1999 
end; 
Gender = Cmale,female,alien); 
Person = record 
Name : stringl[20]; 
BirthPlace : string[301; 
case Sex : Gender of 
male,female : CBirthDate : Date); 
alien : CBirthDate : real; 
BodyData : record 
H : integer; 
W : real 
end) 
end; 
var 


MyBirthDay : Date; 
EarthMan,Galaxian : PerSon; 


Typ Date jest związany ze zbiorem danych rekordowych, Z któ” 


rych każda składa się z pary danych. Pierwsza z danych pary 
jest typu 1..12, a druga jest typu 1900..1999. Typ Person 
jest związany ze zbiorem danych, z których każda składa si< 
z co najmniej trzech danych o typach stringl20], string! 30) 
i Gender. Jeśli dana typu Gender ma wartość male albo femal"' 
to dodatkowo występuje za nią dana rekordowa składająć* szę 


z danych typu 1..12 i 1900..1999, a jeśli ma wartość alien, 
to dodatkowo występuje za nią dana typu real oraz dana rekor— 
dowa składająca się z danych typu integer i real Cliterały 
male, female i alien są typu wyróżnikowego Gender). Zmiennej 
typu MyBirthDay mogą być przypisywane dane typu Data, 

a zmiennym EarthMan i Galaxian mogą być przypisywane dane 
typu Person. Jeśli zmiennej EarthMan przypisano daną 
rekordową zawierającą daną typu Gender o wartości male, 


to nie ma sensu odwołanie się do pola EarthMan. BodyData. 


Deklarowanie zmiennych rekordowych może być połączone z ich 
inicjowaniem. Polega ono na tym, że w chwili utworzenia zmien— 
nej rekordowej jest jej przypisywana dana określona przez 
inicjator. Inicjator zmiennej rekordowej składa się z wykazu 
inicjacji pól ujętego w nawiasy okrągłe. Każda inicjacja pola 
składa Się z nazwy pola, znaku : CdwukropekD i inicjatora po- 
la. Rodzaj użytego inicjatora musi odpowiadać typowi pola. 
Kolejność wystąpienia inicjacji pól musi być zgodna z kolej- 
nością pól rekordu. Nie wymaga się wystąpienia inicjacji 
wszystkich pól, stawiając jedynie warunek, aby inicjacja pola 
Ćw ramach wybranego wariantu» była poprzedzona inicjacjami 
wszystkich pól je poprzedzających. 
Deftnicje 
inicjator-zmiennej-rekordowej: 
C wykaz-tinicjacji-pól 5 
wykaz-tnicjacjt-póL: 
inicjacja-pola 
wykaz—tnicjacji-pół ; tnicjacja-poła 
inicjacja pola: 
nazwa-pola : tnicjator-pola 


inicjator-pola: 
inicjator 


Przykład Przypisywanie danych początkowych zmiennym 


rekordowym 
type 
Colour = CRed,Black,FairD; 
Person = record 
Name : stringl51; 
Hair : Colour; 
Age : byte 
end; 


89 


Time = record 
Hour : O..23; 
Min,Sec :O..59 
end; 
Access = record 
Password : string.[7]; 
Login : Time; 
case Fail : boolean of 
true: CLogout : Time); 
false: CResult : longint. 


end; 
const 
JanB : Person = 
CName : "Janek"; Hair : Black; Age : 455); 
Run : Access = 
CPassword : "Izabela"; 


Login : CHour : 13; Min : 252; 
Fail : false; 
Result : 1OO0O00O03D; 


Zmiennej JanB przypisano daną początkową składającą się z da— 
nych "Janek, Black i 45. Zmiennej Run przypisano daną po- 
czątkową strukturalną składającą się z danych "Izabela, 13, 
25, z danej o wartości nieokreślonej i z danych o wartościach 
false i 1OO0O00O. 


5.7. Typy mnogościowe 


Typ mnogościowy jest typem złożonym. Mnogość jest zmienną 
strukturalną, której można przypisywać dane strukturalne 
składające się z dowolnych kolekcji danych wybranego typu 
porządkowego, nazywanego typem bazowym typu mnogościowego. 
Wymaga się, aby typ bazowy typu mnogościowego był związany ze 
zbiorem liczącym nie więcej niż 256 danych o liczbach 
porządkowych należących do przedziału O..255. 


Opis typu mnogościowego ma postać 


set of type 


w którym type jest opisem typu bazowego danego typu 
mnogości owego. 


Definicje 


opits-typu-mnogośc Lowego: 
set of opis-typu-bazowego-typu-mnogoścć LOvego 


opts-typu-bazowego-typu-mnogościowego: 
oplis-typu-porządkowego 
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Dane typu mnogościowego Są reprezentowane przez wyrażenia 
mnogościowe. Szczególnym wyrażeniem mnogościowym jest kons— 
truktor mnogościowy. Składa się on z ujętej w nawiasy kwadra— 
towe listy dowolnych wyrażeń typu bazowego typu mnogościowe— 
go. Jeśli pewna podlista wyrażeń reprezentuje dane o liczbach 
porządkowych z zakresu mtin..max, to może być zastąpiona napi — 
sem eMtin. .eMax, w którym eMtin jest wyrażeniem reprezentującym 
daną o liczbie porządkowej min, a eMax jest wyrażeniem repre— 


zentującym daną o liczbie porządkowej max. W szczególności 


konstruktor 

[”a”,z”,'c','z','b>] 
może być zastąpiony konstruktorem C['a'..'c','z']. 
Deftntcje 


konstruktor-mnogościowy: 
[ Łista-wyrażeń-bazowych J 


Ltista-wyrażeń-bazowych: 
vyrażente—bazowe 
Lista-wyrażeń-bazowych , wyrażenie bazowe 


wyrażenie-bazowe: 
wyrażentite-porządkowe 
wyrażenie-porządkowe .. wyrażenie-porządkowe 


Przykład DeRlaracje typóv ti zmiennych mnogośctiowych 


type 
Hue = CRed,Green,Blue); 
Colour = set of Hue; 
var 


Digits : set of O..S; 

Paint : Colour; 

ASCII : set of char; 
Typ Colour oraz nie nazwane typy set of O..9 i set of char są 
anonimowymi typami mnogościowymi. Zmiennej Digits można 
przypisywać dane mnogościowe składające się z kolekcji danych 
typu O..3 (w tym z kolekcji pustej). Zmiennej Paint można 
przypisywać dane składające się z kolekcji danych typu Hue 
Cjest ich 80. Zmiennej ASCII można przypisywać dane 
składające się z kolekcji znaków rozszerzonego kodu ASCII. 


Deklarowanie zmiennych mnogościowych może być połączone z ich 
inicjowaniem. W chwili utworzenia zmiennej mnogościowej zosta— 


nie jej przypisana dana określona przez inicjator. Inicjator 
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zmiennej mnogościowej składa się z konstruktora mnogościowe- 


go. Każde z jego wyrażeń porządkowych musi być literałem albo 
symbol em. 


Def tntcje 


tntcjator-zmiennej-mnogościowej: 
Rons truktor-—mnogośc itowy 


Przykład Przypisywanie danych początkowych zmiennym mnogos- 


ctowym 
type 
Hue = CRed,Green,Blue); 
Colour = set of Hue; 
const 


myShoes : Colour = [Red..Green]; 
Family : array[Cewa,iza)] of record 
Blouse,Pants : Colour 
end = 
CCBlouse : [Red]; Pants : [Red,Green]D, 
CBlouse : []; Pants : [Green..Blue]DD; 


Zmiennej myShoes przypisano daną początkową składającą się 
z zestawu danych o wartościach Red i Green. Polu o nazwie 


Family(fiza]j.Blouse przypisano pustą kolekcję danych. 


5.8. Typy plikowe 


Typ plikowy jest typem złożonym. Plik jest zmienną struktu- 
ralną składającą się z komponentów nazywanych elementami. 
Każdy element pliku jest takiego samego typu. Typ ten jest 
nazywany typem bazowym typu plikowego. Liczba elementów pliku 
nie wynika z deklaracji, lecz jest uzależniona od przebiegu 


wykonania programu. 
Opis typu plikowego ma jedną z następujących postaci 


file of type 
file 
text 


w których type jest opisem typu bazowego. 


Ło 
Jeśli opis typu plikowego nie zawiera opisu Łypu bazowego 


tów 
plik typu określonego przez ten opis składa się Z komponen 
nazywanych blokami. Z tego względu jest nazywany plikiem ne 
owa 
blokowym. Za jego pośrednictwem można wykonywać niebufor 


h 
operacje wejścia-wyjścia. Operacje na plikach pozostały” 
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typów są buforowane. Dotyczy to w szczególności plików 
predeklarowanego typu text, nazywanych tekstowymi oraz 
plików elementowych. 


Pliki tekstowe różnią się tym od plików elementowych o ele— 
mentach typu char, że można w nich wyodrębnić podział na gru- 
py znaków nazywane wierszami. Ogranicznikami takich grup zna— 
ków są znaki ©M Cer> albo CMJ Cer-lf). 


Uwaga: Deklaracje zmiennych plikowych nie mogą zawierać 


inicjatorów. 
Deftntcje 


opis-typu-pltitRowego: 
file of opis-typu-bazowego-—tŁypu-pltRowvego 
file 
text 

opis-typu-bazowego-typu-pltRowego: 
optis-typu 


Przykład Deklaracje typów i! zmiennych plikowych 


type 
Person = record 
FirstName : string.5]1; 
LastName : stringl1i2]; 
Age : 1..10OO 
end; 
Family = array(1..3] of Person; 
DataBaseType = file of Family; 
var 
DataBase : DataBaselType; 
Document : text; 
RawSet : file; 
Typ DataBaseType jest typem plikowym elementowym. Typem bazo- 
wym tego typu plikowego jest Family. Zmienna DataBase jest 
zmienną plikową typu DataBaseType. Zmienna Document jest 
zmienną plikową typu text. Może być użyta do identyfikowania 
pliku tekstowego. Zmienna RawSet jest zmienną plikową, która 


może być użyta do identyfikowania pliku blokowego. 


5.9. Zgodność typów 


Wykonanie operacji przypisania danej, zrealizowanie operacji 
dwuargumentowej, albo skojarzenie parametru i argumentu pro— 
cedury wymaga spełnienia pewnych warunków, które mogą być wy— 


rażone przez odwołanie się do pojęcia zgodności typów. 
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Najwyższą formą zgodności typów jest identyczność. Jest ona 
wymagana jedynie podczas kojarzenia parametru i argumentu 
procedury i to tylko wtedy, gdy skojarzenie odbywa się przez 
zmienną Ca więc wtedy, gdy parametr procedury występuje na 
liście rozpoczynającej się od słowa kluczowego var). Zwykła 
zgodność typów, nazywana dalej zgodnością operacyjną, dotyczy 
argumentów operacji dwuargumentowych, takich jak na przykład 


operacje arytmetyczne albo relacje. Zgodność w sensie przy- 


pisania jest natomiast wymagana podczas przypisywania danej - 


Identyczność typów 


Dwa typy są identyczne, gdy jest spełniony jeden z następuja” 
cych warunków 


1 Opisy typów są wyrażone za pomocą takiego samego identy- 
fikatora. 


e Opisy typów dają się wvywvteść od takiego samego identyfi- 
katora. 


3 Opisy typów są opisami typów wskazujących procedurowych, 
różniących się tylko identyfikatorami parametrów. 


Przykłady 
type 
Minute = O..SS; 
Second = O..59; 


INTEGER = word; 


Hues = array[boolean] of CRed,Green,BlueD; 
Colours = Hue; 
Colors = Hue; 


Shift1i = procedureCvar Arg : wordD; 
Shift2 = procedureCvar Par : word); 


Typy Minute i Second nie są identyczne. Typ INTEGER Ctzn. in- 


teger) jest identyczny z predeklarowanym typem standardowym 
word. Typ Colors jest identyczny z typem Colours, ponieważ 
każdy z nich wywodzi się od identyfikatora typu Hue Cjaki 

w istocie jest ten typ jest bez znaczenia). Identyczne SA 
również typy Shifti i Shift2, ponieważ ich opisy różnią się 
Jedynie identyfikatorem parametru. 


Zgodność operacyjna typów 
aj” 
Dwa typy są zgodne operacyjnie, gdy jest spełniony <9 ż 


mniej jeden z następujących warunków 
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1 Typy są 


type 
One 
Two 


WOT ad) > 


type 
One 
Two 


np. 


identyczne, np. 
= string; 
= stringl255]J; 
2 Typy są całkowite Cinteger, shortint, longint, byte, 
= shortint; 
= word; 
rzeczywiste Creal, single, double, extended, 


3 Typy są 
comp, 
type 

One 

Two 


np. 


4 Jeden typ 


type 
One 
Two 


5 Jeden typ 


type 
One 
Two 


6 Typy są 


type 
One 
Two 


7 Typy są 
tów, np. 
Łype 


One 
Two 


okrojeniami tego samego typu, 


single; 
comp; 


jest całkowity, a drugi jest rzeczywisty, np. 


longint; 
extended; 


jest okrojeniem drugiego, np. 


integer; 
30.. 400; 


np. 


false..true; 
true.. true; 


wektorami znakowymi o jednakowej liczbie elemen— 


8 Jeden typ 


kowy; 


type 
One 
Two 


9 Typy są 
np. 
type 


One 
Two 


albo jest wektorem znakowym, 


arrayl[boolean] of char; 
array[3..4] of char; 
a drugi jest łańcuchowy, zna— 


np. 


jest łańcuchowy, 


arrayl[char] of char; 
string; 


mnogościowe o zgodnych operacyjnie typach bazowych, 


set of byte; 
set of shortint; 
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10 Jednym typem jest pointer, a drugim jest dowolny typ 
wskazujący, np. 


Łype 
One = *extended; 
Two = pointer; 


Przykład 7ypy parami niezgodne operacyjnte 


type 
Onel = arrayli..4]) of char; 
Twoi = array[i..2£,1..2] of char; 
One2ż = set of 'a'..'b'; 
Two2ż = set of 1..3; 
One3 = *word; 
Two3 = word; 


Typ Onei jest niezgodny operacyjnie z typem Twoi ponieważ 
Twoi nie jest wektorem znakowym. Typ One2 jest niezgodny 
operacyjnie z typem Two2 ponieważ typy bazowe nie są okroje- 
niami tego samego typu. Typ One3 jest niezgodny operacyjnie Z 


typem Two3 ponieważ typy nie są identyczne, a żaden z nich 
nie jest typu pointer. 


Zgodność typów w sensie przypisania 


Dwa typy, oznaczone tu L i R, Są zgodne w Sensie przypisania, 


jeśli istnieje wykonalna operacja v := exp w której v jest 
nazwą zmiennej typu L, a exp jest wyrażeniem typu R. Ma to 
miejsce wtedy i tylko wtedy, gdy jest spełniony co najmniej 
jeden z następujących warunków 


1 Typy L i R są identyczne, a żaden z nich nie zawiera kompo— 
nentu identyfikującego plik, np. 


type 
Left = function(var Volume : real; Side : real) : byte; 
Right = functionCvar Vol : real; Side : real) : byte; 


2 Typy L 1 R są typami porządkowymi, są zgodne operacyjnie: 


a wartość każdej danej typu R należy do zbioru wartości 
danych typu L, np. 


type 
Left = shortint; 
Right = -20..40; 


3 Typy L i R są typami rzeczywistymi Creal, single, double, 
extended, compo>, np. 
type 
Left = single; 
Right = real; 
4 Typ L jest typem rzeczywistym Creal, single, double, exten— 
ded, comp», a typ R jest typem całkowitym Cinteger, shortint, 
longint, byte, word), np. 
type 


Left = double; 
Right = longint; 


5 Typy L i R są łańcuchowe, np. 


Łype 
Left = stringl3]; 
Right = string.[5]; 


6 Typ L jest łańcuchowy, a typ R jest znakowy CcharJ, np. 


type 
Left = stringl3]; 
Right = char; 


7 Typ L jest łańcuchowy, a typ R jest wektorowy-znakowy, np. 


type 
Left = string[(5]; 
Right = arraylshortint] of char; 


8 Typy L i R są zgodnymi operacyjnie typami wektorowymi -zna— 
kowymi, np. 


Łype 
Left = array[2..4] of char; 
Right = array[CRed,Green,Blue)] of char; 
8 Typy L i R są zgodnymi operacyjnie typami mnogościowymi, 
a wartość każdej danej typu R należy do zbioru wartości 
danych typu L, np. 
type 


Left = set of "A'..'Zz'; 
Right = set of 'Z'..'a'; 


10 Typy L i R są zgodnymi operacyjnie typami wskazują— 
cymi, np. 
type 


Left = "integer; 
Right = pointer; 
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Uwaga: Zgodność typów w sensie przypisania jest jedynie 
warunkiem koniecznym wykonalności przypisania. Przykładem 


tego może być bowiem instrukcja 
Short := $80; 


która w przypadku gdy Short jest typu shortint jest 
niepoprawna mimo iż typ lewej strony jest zgodny 


w sensie przypisania z typem prawej strony Clongint). 


Przykład Typy parami niezgodne v sensie przypisania 


type 
Left1i = integer; 
Right1 = real; 


Left2 = char; 
Right2 = string[i]; 


Left3 = arrayl[boolean] of char; 
RightŁ3 = stringil2]; 


Left4 = set of 1..3; 
Right4 = set of 2..4; 


Left5 = function : integer; 

Right5 = function : word; 
Następujące pary typów są niezgodne w sensie przypisania: 
Left1i z Right1, Left2z z Right2, Left3 z RightŁ3, Left4 z 
Right4 i Left5 z RightS. 


5.10. Typy literałów 


Zgodnie z przyjętą definicją, literał jest nazwą Stałej. Iyp 
tej stałej jest identyczny z typem reprezentującego ją lite— 
rału. Typ literału wynika z zapisu literału i z tego powodu 
literały nie wymagają deklarowania. Wyjątek od tej .zasady do- 
tyczy jedynie literałów logicznych i wyliczeniowych. Jeśli 
nie wystąpiły deklaracje przesłaniające, to literały false 

i true są typu boolean, a literały wyliczeniowe są tyPU wyni - 
kającego z opisu typu. 


Literały całkowite dziesiętne o wartościach z przedziału 
-32768..32767 są typu integer, a pozostałe literały cażkow: ve 
są typu longint. Literały rzeczywiste są typu real ćw grodo” 
wisku bez koprocesora arytmetycznego) albo extended Gw Śr 

dowisku z koprocesorem, a literały łańcuchowe sa ŁtYP" 


array[1..n] of char. Natomiast literały mnogościowe sa 
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takie" 


go typu mnogościowego, którego typ bazowy jest związany z 
najmniej licznym zbiorem danych zawierającym wszystkie dane 


reprezentowane przez elementy konstruktora literałowego. 


Przykłady Typy Llitteralów 


Literat Typ Ltteralu 

44 longint 

4.4 real albo extended 
"Kaja" array[1..4]) of char 
true boolean 

(2,4..7] set of 2..7 


Należy nadmienić, że literały szesnastkowe są także typu 
longint. Jeśli najbardziej znaczący bit danej reprezentowanej 
przez literał szesnastkowy bez znaku jest różny od zera, to 


literał reprezentuje daną o wartości ujemnej. 


Przykłady 


$TYYr — reprezentuje daną o wartości 65535 
$CLfrrrLL — reprezentuje daną o wartości —1i 
-$frr""""("  — reprezentuje daną o wartości +1 

Wszystkie wymienione literały są typu longint. Ostatni z nich 


jest literałem ze znakiem. 


5.11. Reprezentacje 


Każda z danych rozpatrzonych typów ma w konkretnej implemen— 


tŁacji ustaloną reprezentację. 


Dana całkowita zajmuje 1, 2 albo 4 bajty. Dane typu byte i 
shortint są jednobajtowe. Dane typu integer i word są dwubaj— 
towe, a dane typu longint są czterobajtowe. Dane typu okrojo— 
nego typu całkowitego, których wartości należą do przedziału 
O..255 albo —128..127 są jednobajtowe, a dane których warto— 
ści należą do przedziału —32768..32767 albo O..GS5S535 są dwu— 
bajtowe. Pozostałe dane takiego typu okrojonego są czterobaj- 
Łowe. Dane całkowite są reprezentowane w zapisie uzupełnie— 


niowym do 2. 
Dana znakowa zajmuje 1 bajt. 


Dana wyliczeniowa zajmuje 1 albo 2 bajty. Jeden bajt zajmuje 
dana typu wyliczeniowego związanego ze zbiorem nie więcej niż 
258 elementów. Pozostałe dane typu wyliczeniowego są dwubaj— 


tŁowe. 
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Dana rzeczywista zajmuje 4, 6, 8 albo 10 bajtów. Dane typu 
single są czterobajtowe, dane typu real są sześciobajtowe, 
dane typu double i comp Są ośmiobajtowe, a dane typu extended 
są dziesięciobajtŁowe. Dana typu single, real, double i exten- 
ded są zmiennopozycyjne. Dana typu comp jest stałopozycyjna, 
ale mimo iż jest daną rzeczywistą, ma reprezentację danej 


całkowitej ośmiobajtowej w zapisie uzupełnieniowym do 2. 


Dana łańcuchowa zajmuje od 2 do 256 bajtów. Pierwszy bajt da- 
nej zawiera licznik bajtów aktywnych. 


Dana typu wskazującego zajmuje 4 bajty. Pierwsze dwa bajty 
danej określają przemieszczenie w segmencie, a dwa następne 


numer segmentu. Wskazanie puste jest daną czterobajtową skła- 
dającą się z bitów O. 


Dana tŁablicowa zajmuje tyle bajtów ile łącznie zajmują Jej 
elementy. Jeśli jest więcej niż jednowymiarowa, to jej ele- 


menty są uporządkowane wierszami. 


Dana rekordowa zajmuje tyle bajtów ile łącznie zajmują jej 


pola. Pola są uporządkowane w kolejności ich zadeklarowania. 


Dana mnogościowa zajmuje od 1 do 32 bajtow. Każdy element da— 
nej zajmuje 1 bit. 


Dana typu plikowego Cdana reprezentowana przez nazwę zmiennej 
plikowej) zajmuje 256 albo 128 bajtów. Dana plikowa tekstowa 
zajmuje 256 bajtów. Pozostałe dane plikowe zajmują po 128 
bajtów. Dane plikowe tekstowe są typu TextRec Cjego deklara— 
cja zawiera odwołanie do typu TextBufD. 


type 

TextBuf = array[O..127] of char; 

TextRec = record 
Handle : word; 
Mode : word; 
BufSize : word; 
Private : word; 
BufPos : word; 


BufEnd : word; 

BufPtr : CTextŁBuf; 

OpenFunc : pointer; 

InOutFunc : pointer; 

FlushFunc : pointer; 

CloseFunc : pointer; 

UserData : arrayl[1..16] of byte; 
Name : array[O..79] of char; 


Buffer : TextBuf 
end; 
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Dane plikowe elementowe oraz dane plikowe blokowe są typu 


FileRec. 
type 
FileRec = record 
Handle : word; 
Mode : word; 
RecSize : word; 


Private : arrayl[1..26] of byte; 
UserData : arrayl[i..16] of byte; 
Name : array[O..79] of char 

end; 


Przykład Reprezentacja danych 


Wykonanie programu powoduje wyprowadzenie napisu Kaja. 


się, 


program Name; 
uses 
Dos; 
const 
Index : byte = O; 
var 
Doc : file; 
Contents : FileRec absolute Doc; 
begin 
Assign(Doc, 'Kaja'D; 
with Contents do 
while Name[Index] <> 40 do begin 
WriteCNamel[Index]D; 
IncCI ndex>o 
end 


end. 


Zaleca 


aby analiza programu nastąpila v drugim czytaniu książki. 


6. STAŁE I ZMIENNE 


Stałe i zmienne są obiektami programu wynikowego. Stała jest 
obiektem składającym się z danej, a zmienna jest obiektem, 
któremu mogą być przypisywane dane. W programie źródłowym 
stałe są reprezentowane przez nazwy stałych, a zmienne przez 
nazwy zmiennych. Najczęściej spotykanymi nazwami stałych są 
literały, a wśród nich liczby i łańcuchy. 


Przykład Stale, zmienne, dane 


program Example; 


var 

Fix : integer; 
begin 

Fix := 13; 

WriteCFi>O 
end. 


Napis Fix jest nazwą zmiennej. Zmienna ta zostanie utworzona 
przed podjęciem wykonywania bloku i będzie istnieć przez ca 
ły czas jego wykonywania. Napis 13 Cliczba) jest nazwą stałej. 
Stała ta składa się z danej o wartości 13. Wykonanie instruk- 
cji przypisania powoduje przypisanie zmiennej o nazwie F1X 
danej reprezentowanej przez liczbę 13. Wykonanie procedury 


Write powoduje wyprowadzenie liczby o wartości tej danej - 


en" 
Najprostszą nazwą zmiennej jest identyfikator. Nazwy zm 
nych mogą jednak przyjmować postaci bardziej złożone: 
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© Jeśli Name jest nazwą tablicy, to 
Namel Index] 

Jest nazwą elementu tej tablicy. 

© Jeśli Name jest nazwą rekordu, to 
Name.Fiteld 

jest nazwą pola tego rekordu. 

© Jeśli Name jest nazwą zmiennej łańcuchowej, to 
Namel Index] 

Jest nazwą elementu tej zmiennej. 

© Jeśli Name jest nazwą zmiennej typu różnego od pointer, to 
Name” 

Jest nazwą zmiennej wskazanej przez Name. 


© Jeśli Name jest nazwą zmiennej, a type jest nazwą typu, 
takimi że SizeOf(l type) =SizeOfCName>, to wyrażenie 


typel Name) 


jest nazwą zmiennej typu type, zajmującej ten sam obszar 
pamięci operacyjnej co zmienna Name CSizeOf jest funkcją 
standardową językaDJ. 


Uwaga: Operator typel...D będzie nazywany konvertorem. Rezul— 
tatem konwersji typeCName) jest zmienna typu type, o takiej 


samej reprezentacji jaką ma zmienna Name. 


Odrębnym rodzajem obiektów programu wynikowego są zmienne bez 
typu. Zmienną bez typu jest zmienna wskazywana przez daną 
typu pointer. Nazwą zmiennej bez typu jest dowolny napis o 
postaci Exp", w którym Exp jest wyrażeniem typu pointer. 


Ponieważ zmienne bez typu mają rozmiar O, nie można im 
przypisywać danych. Dlatego jedynym zastosowaniem zmiennych 


bez typu jest lokalizowanie obszarów pamięci operacyjnej. 


Przykład Przydzielanie, przenoszenie i zvalnianie obszarów 


program Areas; 


var 
Srec,lTrg : pointer; 
type 
wordPtr = word; 
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begin 
GetMemć Srce ,SizeOf l wordD.; 
GetMemć TIrg,1O00); 
wordPtŁriCSre)* := 13; 
MoveCSre*, Trg©,SizeOf lword)); 
Wri Łel wordPtrC TrgJ-02; 
FreeMemCSrc,SizeOf C word); 
FreeMemć Irg,1OOD 

end. 


Napisy Sre* i Trg* są nazwami. zmiennych bez typu. W wywołaniu 
procedury Move zmienne te lokalizują obszary przydzielone za 
pomocą funkcji GetŁMem. Dzięki użyciu konwertorów, początkowe 


fragmenty tych obszarów są traktowane jak zmienne typu word. 
Uwaga: Opisy użytych tu procedur znajdują się w rozdziale 13. 
Deftintcje 
nazwa-obiektu: 
RAZVA—ZMLeNNEJ 
nazwa—s tate j 
RAZWA—ZMIENNE J: 
tdentyjtkator 
nazwa—zmiennej kRvalitfikator 
nazewni R-funhkc Ji-udostępntającej-vskazanie wytluskante 
Ronwer tor 


kvalifikRator: 
tndehks 
selektor 
vyTluskante 


indeks: 

( Lista-podindeksów ] 
ltista-podtitndeksów: 

podindeks 

lista-podindeksóv , podtndeks 
podindeks: 

wyrażenie 
selektor: 

pole 


pole: 
tdentyfikator 


wytluskantie: 


nazewntk-funkc jt udostępnia jącej-wskazanie: 
nazewntiR-funkc ji 


Ronwer tor: 

nazwa-typu € nazwa-zmiennej ) 
nazva—łŁypu: 

tdenty/ftkRator 


nazwa-stalej: 
wyrażenie 
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nazwvawobszaru: 
nazva-zmtennej-typu-potinter wyluskanite 


nazwva-zmiennej-typu-potnter: 
nazwa-zmiennej 


Przykłady 


a Nazwy zmiennych z kwali/fikatorami indeksowania t selekcji 


Łype 
Pair = record 
Str : string[3)J; 
Num : byte 
end; 
Table = arrayl[boolean] of Pair; 
var 
Arr : Table; 
begin 
Arr[(false].Str := "”1'; 
Arr[trueJj. Num := 3; 


WriteCArr[false]j.Str(1], 
Arr[truel. Nuno 
end. 

W instrukcjach przypisania, nazwa Arr identyfikuje zmienną 
typu Table, Arr[falsel identyfikuje zmienną typu Pair, a naz— 
wa Arr(false]j.Str identyfikuje zmienną typu stringi3]. W wy- 
wołaniu procedury Write nazwa Arr reprezentuje daną tablico- 
wą, Arr[falsej reprezentuje daną rekordową, Arr[(false]l. Str 
reprezentuje daną łańcuchową, a Arr[false].Str[1]) reprezen— 
tuje daną znakową. Wykonanie programu powoduje wyprowadzenie 


napisu 13. 


b Nazwy zmiennych 2 kwvaltfitkatoramti wytluskania 


type 

Ref = integer; 
var 

PtŁr : Ref; 
begin 

NewCPtŁrJ; 

NewC PŁr ">; 

PŁr""c := 13; 

writeCPŁr*""J; 
end. 


Pierwsze wykonanie procedury New powoduje utworzenie zmiennej 
typu Ref. Drugie wykonanie procedury New powoduje utworzenie 
zmiennej typu integer. Wykonanie instrukcji przypisania powo— 
duje przypisanie zmiennej PtŁr"© danej o wartości 13. Wykonanie 
programu powoduje wyprowadzenie liczby 13. Napis Ptró© wystę— 
pujący w instrukcji przypisania identyfikuje zmienną, a taki 
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sam napis występujący w wywołaniu procedury Write reprezentu- 
je stałą. Wykonanie programu powoduje wyprowadzenie liczby 13. 


c Naswy smiennych wyrażone przez nazewvniki funkcji 


type 
ChrArr = array[boolean] of char; 
ChrArrPtr = *ChrArr; 

const 
Arr : ChrArr = '"Jjb'; 


var 
Brr : ChrArr; 
function FunCPar : byte> : ChrArrPtr; 
begin 
WriteCParD; 
Fun := AddrCBrrJ 
end; 
begin Ć main > 
FunC(1d*Ifalse] := Arr(falsej; 
FunC3)ltrue] := Arr[true]; 
Writeln; 
WriteCBrrJ 
end. 


Napis FunC1) jest nazewnikiem funkcji. Napis ten reprezentuje 
daną wskazującą Łypu ChrArrPtr. Napis FunC1J* identyfikuje 
zmienną typu ChrArr. Napis FunC(1D"lfalsel identyfikuje zmien— 
ną Łypu char. Addr jest funkcją standardową, której rezulta— 
tem jest wskazanie zmiennej reprezentowanej przez jej argu— 


ment. Wykonanie programu powoduje wyprowadzenie dwóch napi — 
sów: 13 i Jb. 


d Nazwy zmiennycA wyrażone przez konwertory 


type 
Table = arrayl[boolean] of byte; 
const 


Complex : record 
Re,Im : byte 
end = (Re : 10; 
begin 
TableCCompleO [true] := 3; 
WriteCTableCComplexOl[false], 


TableCComple>O [ true] 
end. 


Napis TableCComple>x0> występujący w instrukcji przypisania 
identyfikuje zmienną typu Table. Ten sam napis wydłużony © 
indeks [true] identyfikuje zmienną typu byte. Napis 
TableCComple>o występujący w wywołaniu procedury reprezen— 
tuje stałą typu Table. Ten sam napis wydłużony o indeks 


(false) reprezentuje stałą typu byte. Wykonanie programu po" 
woduje wyprowadzenie napisu 13. 
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7. WYRAZENIA 


Wyrażenie jest napisem określającym czynności, jakie mają być 
wykonane w celu utworzenia danej. Wykonanie tych czynności 


jest nazywane opracowaniem wyrażenia. 


W odróżnieniu od nazwy zmiennej, która reprezentuje zmienną, 
wyrażenie reprezentuje stałą. Ponieważ stała Składa się z 
danej, wygodnie jest przyjmować, że i wyrażenie reprezentuje 
daną. 


Elementami wyrażeń są nazwy zmiennych, nazwy stałych, nazew- 
niki funkcji i operatory. Nazwy zmiennych reprezentują dane 
przypisane zmiennym, nazwy stałych reprezentują dane, z któ- 
rych składają się stałe, a nazewniki funkcji reprezentują da- 
ne, które są rezultatami funkcji. Operatory dzielą się na 
Jjednoargumentowe i dwuargumentowe. Określają one operacje ja— 
kie będą wykonane na danych reprezentowanych przez ich argu- 


menty. 


Ważną właściwością operatora jest jego priorytet. Jeśli argu— 
ment występuje między operatorami o różnych priorytetach, to 
zostaje związany z operatorem o priorytecie wyższym. Oznacza 


to, że np. wyrażenie 
a+b »*c 
jest traktowane jak wyrażenie 


a + Cb % CJ 
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Jeśli argument występuje między dwoma operatorami o równym 
priorytecie, to zostaje związany Zz operatorem występującym 


z jego lewej strony Oznacza to, że np. wyrażenie 
a-b-c 

jest traktowane jak wyrażenie 
(a -DBD "ce 

a nie jak wyrażenie 
a-(b- c 


Operatory jednoargumentowe mają wyższy priorytet od operato- 


rów dwuargumentowych. Ma to taki skutek, że np. wyrażenie 


-1 shr 1 


jest traktowane jak wyrażenie 


(-10 shr i 


reprezentujące daną o wartości różnej od O, a nie jak wyra— 


żenie 
-C(1 shr 10) 


reprezentujące daną o wartości O. 


Operatory jednoargumentowe 


Operatorami jednoargumentowymi są: operator zachowania znaku 

C+), operator zmiany znaku C(-0, operator negacji (not), ope— 
ratory wskazania (© i ©©) i operatory konwersji CĆtyp(JDJ. Priorytet 
tych operatorów są identyczne. 


Uwaga: Niekiedy jest wygodnie traktować kwalifikatory inde— 
ksowania, selekcji i wyłuskania tak, jakby były operatorami o 


priorytecie wyższym od priorytetu operatorów jednoargumento— 
wych. 


Przykład Wyrażenie z operatorami jednoargunentowymi 


FunC3)0lfalse]. Name(5 — C-a + b] + *»%* 


Fun jest funkcją jednoargumentową, której rezultatem jest 


wskazanie tablicy rekordów, których pola Name są typu łańcu” 
chowego. 
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Operatory dwuargumentowe 


W kolejności malejącego priorytetu, operatory dwuargumentowe 


można podzielić na 
a operatory czynnikowe 
* / div mod and Shl Sshr 
b operatory składnikowe 
+ -— or xor 
c operatory relacyjne 


= 4 > (> <= >= in 


Przykład Wyrażenie z operatorami dwuargunentowymi 
a+b=3 or a %* b 
Przytoczone wyrażenie jest interpretowane tak jak wyrażenie 


CCa + b) = (3 or Ca % bDDJ) 


Przystępując do szczegółowego omówienia operatorów i związa- 


nych z nimi operacji, należy podać kilka definicji 
1 Typem całkowitym jest każdy z następujących typów: 
integer, Sshortint, longint, byte, word 


oraz okrojenia typów integer i longint. 


2 Typem rzeczywistym jest każdy z następujących typów: 


real, single, double, extended, comp 


3 Typem real/extended jest typ real w środowisku bez kopro— 
cesora arytmetycznego i typ extended w środowisku z kopro— 


cesor em. 


4 Typem wspólnym pary typów całkowitych jest typ całkowity 
standardowy integer albo longint, związany z najmniej licz— 
nym zbiorem danych, których zakres wartości obejmuje zakres 


wartości danych każdego z rozpatrywanych typów całkowitych. 


Pozostaje dodać, Że jeśli pewien argument operacji jest Łypu 
okrojonego, to jest traktowany tak, jakby był typu bazowego 
tego typu. 
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Przykład 


type 
Unsigned = word; 
Signed = -1..200; 
Typy Unsigned i Signed są typami całkowitymi. Typ Unsi gned 
jest synonimem typu standardowego word. Typ Signed jest typem 
okrojonym typu integer. Typem wspólnym typów Signed i Un- 
signed jest typ longint. 


7.1. Operatory arytmetyczne 


Jednoargumentowymi operatorami arytmetycznymi są: operator 
zachowania znaku C+) i operator zmiany znaku C-2. Dwuargumen” 
towymi operatorami arytmetycznymi są: operator dodawania C+), 
odejmowania C-), mnożenia CC), dzielenia CO, dzielenia cał - 
kowitego (div) i reszty (mod). Typy argumentów i rezultatów 
wymienionych operacji przedstawiono w tablicy 7.1. 


tablica 7.1 Operatory arytmetyczne 


całkowity całkowi Ły całkowi Ły 

całkowi Ły rzeczywisty rzeczywisty 
rzeczywisty całkowity rzeczywisty 
rzeczywisty rzeczywisty rzeczywisty 


całkowity 
całkowi Ły 

rzeczywisty 
rzeczywisty 


całkowity 
rzeczywisty 
całkowi Ły 

rzeczywisty 


całkowity 
rzeczywisty 
rzeczywisty 
rzeczywisty 


całkowity całkowity całkowity 

całkowity rzeczywisty rzeczywisty 
rzeczywisty | całkowity rzeczywisty 
rzeczywisty | rzeczywisty | rzeczywisty 


całkowity całkowity rzeczywisty 
całkowity rzeczywisty | rzeczywisty 
rzeczywisty | całkowity rzeczywisty 
rzeczywisty | rzeczywisty | rzeczywisty 


całkowi Ły całkowity całkowity 
całkowity całkowi Ły całkowity 
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Operatory + i - 


Rezultatem operacji arytmetycznej +arg jest dana reprezento- 
wana przez wyrażenie O+arg. Rezultatem operacji arytmetycznej 
-arg jest dana reprezentowana przez wyrażenie O-arg. Rezulta- 
tem operacji argLlL+argR jest dana o wartości równej sumie war— 
tości danych reprezentowanych przez argL i argR. Rezultatem 
operacji argLl-argR jest dana o wartości równej różnicy war- 


tości danych reprezentowanych przez argL i argkR. 


Argumentami dwuargumentowych operacji arytmetycznych + i -— 
mogą być wyrażenia całkowite i rzeczywiste. Jeśli przynaj— 
mniej jeden argument jest typu rzeczywistego, to rezultat 
operacji jest typu real/extended. Jeśli oba argumenty są typu 
całkowitego, to typ rezultatu jest typem wspólnym argumentów. 


Operatory % i 


Rezultatem operacji arytmetycznej argL%*argR jest dana o 
wartości równej iloczynowi wartości danych reprezentowa— 
nych przez argL i argR. Rezultatem operacji arytmetycznej 
argL/argR jest dana o wartości równej ilorazowi wartości 


danych reprezentowanych przez argL i argR. 


Argumentami operacji arytmetycznych % i / mogą być wyrażenia 
całkowite i rzeczywiste. Zabrania się, aby prawy argument 
ilorazu reprezentował daną o wartości O. Jeśli przynajmniej 
jeden argument jest typu rzeczywistego, albo gdy operacją 
jest dzielenie, to rezultat jest typu real/extended. Jeśli 
oba argumenty są typu całkowitego, a operacją jest %, to typ 
rezultatu jest typem wspólnym argumentów. 


Operatory div 1 mod 


Rezultatem operacji arytmetycznej arglL div argR jest dana o 
wartości równej wartości części całkowitej ilorazu argL/argR. 
Rezultatem operacji arytmetycznej argL mod argR jest dana o 
wartości równej reszcie z dzielenia argL przez argR, a dokład— 
niej 


argL mod argR = argL — Cargl div argO % arsR 


Wynika stąd w szczególności, że znak reszty jest taki sam jak 
znak lewego argumentu. 
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Argumentami operacji arytmetycznych div i mod mogą być tylko 
wyrażenia całkowite. Zabrania się, aby prawy argument tych 
operacji reprezentował daną © wartości O. Typ rezultatu jest 
typem wspólnym argumentów. 


7.2. Operatory bitowe 


Jednoargumentowym operatorem bitowym jest operator negacji 
bitów Cnot)>, a dwuargumentowymi operatorami bitowymi Są: 
operator przesunięcia bitów w lewo Cshl» i w prawo Cshr> oraz 
operator iloczynu bitowego Cand), sumy bitowej Cor. i sumy 
modulo dwa (xor). Typy argumentów i rezultatów wymienionych 
operacji przedstawiono w tablicy 7.2. 


Tablica 7.2 Operatory biłowe 


Typ Typ 


całkowity całkowity 


KCWECONECOWENEJ 
= 
= 


całkowity całkowity całkowity 
całkowity całkowity całkowity 


Operator not 


Rezultatem operacji bitowej not arg jest dana powstała z da- 


nej arg przez zanegowanie wszystkich bitów jej reprezentacji 


wewnętrznej. 


Argumentem operatora bitowego not może być tylko wyrażenie 
całkowite. Typ rezultatu jest identyczny z typem argumentu. 


Przykłady 
wyrażenie Rezultat 
not O -—1 
not S£rrr O 
not 2 1 
not 1 -2 
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Operatory Shl i shr 


Rezultatem operacji bitowej argL shl argR jest dana powstała 
z argL w następstwie przesunięcia wszystkich bitów jej repre— 
zentacji wewnętrznej o argR pozycji w lewo. Jeśli argR<O, to 
rezultatem jest dana o wartości O. Jeśli argR=0, to rezulta— 


tem jest dana o wartości argL. Przesuwanie jest logiczne. 


Rezultatem operacji bitowej argL shr argR jest dana powstała 
z argL w następstwie przesunięcia wszystkich bitów jej repre— 
zentacji wewnętrznej o argR pozycji w prawo. Jeśli argKR<O, to 
rezultatem jest dana o wartości O. Jeśli argR=0, to rezulta— 


tem jest dana o wartości argL. Przesuwanie jest logiczne. 


Argumentami operacji bitowych shl i shr mogą być tylko wyra— 
żenia całkowite. Typ rezultatu jest identyczny z typem lewego 


argumentu. 
Przykłady 
wyrażenie Rezultat 
2 shl i 4 
2 Shl O e 
2 shl -1 O 
64 shl 1 1 28 
8 Sshr 2 2 


Operatory and or xor 


Rezultatem operacji bitowej argL and argR jest dana powstała 
w następstwie równoległego wyznaczenia iloczynu logicznego 
dla każdej pary odpowiadających sobie bitów reprezentacji 
wewnętrznej danych reprezentowanych przez argL i argR. llo- 
czyn logiczny bitów ma wartość i wtedy i tylko wtedy, gdy oba 
bity mają wartość i. W pozostałych przypadkach ma wartość O. 


Zebrano Ło w nastepującym zestawieniu 


DŁŁŁL >DTUŁAR btitŁ and bLtR 
O O O 
O 1 O 
1 O O 
1 1 1 


Rezultatem operacji bitowej argL or argR jest dana powstała 
w następstwie równoległego wyznaczenia sumy logicznej dla 


każdej pary odpowiadających sobie bitów reprezentacji wewnęt-— 
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rznej danych reprezentowanych przez argl i argR. Suma logicz- 
na bitów ma wartość O wtedy i tylko wtedy, gdy oba bity mają 
wartość O. W pozostałych przypadkach ma wartość i. Zebr ano 


to w następującym zestawieniu 


dLŁL bitR bttL or bLtR 
O O | 
O 1 1 
1 O 1 
1 1 1 


Rezultatem operacji bitowej argL xor argR jest dana powstała 
w następstwie równoległego wyznaczenia sumy modulo 2 dla każ- 
dej pary odpowiadających sobie bitów reprezentacji wewnętrz-— 
nej danych reprezentowanych przez argL i argR. Suma modulo 2 
ma wartość 1 wtedy i tylko wtedy, gdy bity mają różne war— 
tości. W pozostałych przypadkach ma wartość O. Zebrano to w 
następującym zestawieniu 


DLL DLLR btitL xor bLitR 
0 O O 
O 1 1 
1 O 1 
1 1 O 


Argumentami operacji bitowych and, or i xor mogą być tylko 
wyrażenia całkowite. Jeśli argumenty nie są identycznych ty- 
pów, Ło wykonanie każdej z wymienionych operacji jest poprze- 
dzone niejawnym przekształceniem każdego z nich w argument 


typu wspólnego. Typ rezultatu jest typem wspólnym argumentów. 


Przykłady 


Wyrażenie Rezultat 


3 and 6 
3o0or 6 
3xor 6 
-1 xor -1 
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7.3. Operatory logiczne 


Jednoargumentowym operatorem logicznym jest operator negacji 
(not), a dwuargumentowymi operatorami logicznymi są: operator 
koniunkcji Cand), alternatywy Cor) i różnicy symetrycznej 
Cxor). Typy argunentów i rezultatów wymienionych operacji 
przedstawiono w tablicy 7.3. 
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Tablica 7.3 Operatory logiczne 


Typ Typ 
KZJEDNETE 
logiczny logiczny 

Typ Typ Typ 
logiczny logiczny logiczny 


logiczny logiczny logiczny 
| xor | logiczny logiczny logiczny 


Operator not 


Rezultatem operacji logicznej not arg jest dana logiczna. 
Jeśli argument reprezentuje daną o wartości false, to rezul— 
Łat jest daną o wartości true i odwrotnie. Zebrano to w nas— 


tępującym zestawieniu 


arg not arg 
false true 
true false 


Argumentem operacji logicznej not może być tylko wyrażenie 
typu boolean. Rezultat jest również tego typu. 


Przykłady 
Wyrażenie Rezultat 
not true false 
not C2 = 30) true 


Operatory and or xor 


Rezultatem operacji logicznej argL and argR jest dana lo— 
giczna. Jeśli argL i argR reprezentuje daną o wartości true, 
to rezultatem jest dana o wartości true. W przeciwnym razie 


jest nim dana o wartości false. Zebrano to w następującym 


zestawieniu 
argL argR argL and argR 
false false false 
false true talse 
true false false 
true true true 
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Przykłady 


wyrażenie Rezultat 
false and true false 
C2 = 22 and true true 


Rezultatem operacji logicznej argL or argR jest dana logicz- 
na. Jeśli argL lub argR reprezentuje daną o wartości Łrue, to 
rezultatem jest dana o wartości true. W przeciwnym razie jest 


nim dana o wartości false. Zebrano Ło w następującym zesta- 


wieniu 
argL argR argL or argR 
false false false 
false true true 
true false true 
true true true 


Rezultatem operacji logicznej argL xor argR jest dana logicz- 
na. Jeśli argL = not argR, to rezultatem jest dana o wartości 
true. W przeciwnym razie jest nim dana o wartości false. Zeb- 


rano Ło w następującym zestawieniu 


argL argR arglL xor argR 
false false false 

false true true 

true false true 

true true false 


Argumentami operacji logicznych and, or i xor mogą być tylko 
wyrażenia typu logicznego. Rezultat jest również tego typu. 


Przykłady 
Wyrażenie Rezultat 
false and true false 
false or true true 
C2 = 2) and true true 
C2 =2) or true true 
true xor true false 


Zasady wykonywania operacji logicznych 


Wartość danej reprezentowanej przez wyrażenie logiczne może 
być znana jeszcze przed opracowaniem całego wyrażenia. Wiado- 


mo na przykład, Że wyrażenie 


false and Exp 


reprezentuje Cniezależnie od podwyrażenia Exp) daną o war- 
Łości false. Z tego względu obrano w implementacji optymali- 
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zowany model opracowywania wyrażeń logicznych. W modelu tym, 
opracowywanie wyrażenia odbywa się od lewej do prawej, a po 
wykonaniu każdej operacji bada się, czy rezultat opracowania 
całego wyrażenia logicznego może być już określony na pods— 
tawie dotychczasowych działań. Jeśli tak, to rezygnuje się z 


opracowania pozostałej części wyrażenia. 


W istocie, wybór modelu optymalizowanego i rezygnacja z opra— 
cowania całego wyrażenia jest następstwem domniemania dyrek— 
tywy kompilatora C$B->. W zakresie dyrektywy <%B+> wyrażenia 
logiczne są opracowywane w całości. Oczywiście dyrektywy te 
(por. rozdział 110 mogą występować w programie wielokrotnie. 


Przykład Optymatizowany model opracowywania wyrażeń LlLogicz— 
nych 


const 
Arr : array[1i..3)] of byte = C1,O,2e); 
var 
1 : 1..4; 
begin 
<$B-> 
for i := 1 to 4 do 
if Ci 4 40 and Arr(i] <> O then 
WritelnCArr[i]D 
end. 
Wykonanie programu powoduje wyprowadzenie liczb 1 i 2. Gdyby 
dyrektywę <$B-> Cjej użycie jest zbędne, ponieważ zostałoby 
domniemane) zastąpiono dyrektywą <$B+>, to program zostałby 
skompilowany w modelu z pełnym opracowywaniem wyrażeń logicz— 
nych. Program taki byłby błędny, ponieważ dla i = 4 nastąpi — 
łoby opracowanie podwyrażenia Arr[i]l <> O i Łym samym odwo— 


łanie do nieistniejącego elementu Arr[(4]. 


7.4. Operator łańcuchowy 


Operatorem łańcuchowym jest dwuargumentowy operator złączenia 
C+>. Typy argumentów i rezultatów tego operatora przedstawio— 
no w tablicy 7.4. 


Tablica 7.4 Operator tańcuchowy 


Typy Typ 
operator | Pełamew | | Pata 
stringiln]J 
+ arrayl[ typel of char stringilm) 
char 
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Operator + 


Rezultatem operacji łańcuchowej argL+argR jest dana składa- 


jąca się z wszystkich znaków danej reprezentowanej przez argL 

i następujących po nich wszystkich znaków danej reprezentowa- 
nej przez argR. 

Argumentami operacji łańcuchowej + mogą być tylko wyrażenia 
łańcuchowe typu stringln], char i arrayl type) of char Cwektory 
znakowe). Typem rezultatu jest stringlm) o m równym liczbie 
złączonych znaków. Jeśli m255, to przyjmuje się m=255, a 


rezultat skraca do 255 znaków. 


Przykłady 
wyrażenie Rezultat 
—_ +4 5; > _8* 
J > + s + *b* * jb” 
'ewa.' + |iza' "ewa.iza"' 


7.5. Operatory mnogościowe 


Operatorami mnogościowymi są dwuargumentowe operatory : sumy 
mnogości C+), różnicy mnogości C-) i iloczynu mnogości C%). 
Typy argumentów i rezultatów wymienionych operacji przedsta” 
wiono w tablicy 7.5. 


Tablica 7.5 Operatory mnogościowe 


NENNCTEWCTENCKEM 
NKENETZNCTZEWCKZE 


Operatory + - $ 


Rezultatem operacji mnogościowej argL+argR jest dana mnogoś” 
ciowa składająca się z wszystkich składowych danej reprezen” 
towanej przez argL i wszystkich składowych danej reprezento” 


wanej przez argR. 
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Rezultatem operacji mnogościowej argL-argR jest dana mnogo— 
Śściowa składająca się z tych wszystkich składowych danej rep— 
rezentowanej przez argL, które nie występują w danej repre— 


zentowanej przez argR. 


Rezultatem operacji mnogościowej argLxargR jest dana mno— 
gościowa składająca się z tych wszystkich składowych danej 
reprezentowanej przez argL, które również występują w danej 
reprezentowanej przez argR. Jeśli dane reprezentowane przez 
argL i argR nie mają składowych wspólnych, to rezultatem jest 


dana mnogościowa pusta. 


Argumentami operacji mnogościowych mogą być tylko wyrażenia 
mnogościowe. Jeśli argumenty operacji mnogościowej są typu 
set of 71 i set of 72, a dla każdego elementu p zbioru zwią— 
zanego z 7f oraz zbioru związanego z 72 istnieje takie naj- 
większe min i takie najmniejsze max, że min <= p <= max, to 
typem rezultatu operacji jest set of 7, gdzie 7 jest typu 


okrojonego mtLn.. max. 


Przykłady 
wyrażenie Rezultat 
(1,2] + [2,3] [1,2,3] 
(1,2] — [2,3] [1] 
[1,2] * [2,3] Lej 


[1] %* [2] [] 


7.6. Operatory relacji 


Operatorami relacji są dwuargumentowe operatory: równe C=), 
nie równe C<>J), mniejsze C<D, większe C>>, mniejsze równe 
C<=>, większe równe C>=>, jest podmnogością (<=), jest nad— 
mnogością C>=D i jest elementem Cim. Typy argumentów i re- 
zultatów wymienionych operacji przedstawiono w tablicy 7.6. 
Określeniem typ arytmetyczny objęto typy całkowite i rzeczy— 
wiste, określeniem typ lańcuchowvy objęto typy Sstringln], 
array[ type] of char, char i okrojenia typu char, określeniem 
typ logiczny objęto typ boolean i jego okrojenia, a określe— 


niem typ wskazujący objęto typy pointer, Ctype i typy 
wskazujące procedurowe. 
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Porównania danych arytmetycznych 


Porównaniom mogą podlegać dowolne dane rzeczywiste i całko- 


wite z dowolnym danymi rzeczywistymi i całkowitymi. 


Przykłady 


const 
Short : shortint = -—20; 


Long : longint = 30; 

Float : double = 1.SE1; 
wyrażenie Rezultat 
Long = Float + 2 false 
Long >= Float true 
Short <> Long true 
Short >= -—20 true 


Tablica 7.6 Operatory relacji 


Typ Typ Typ 
KJEPWIEPWIJENH 


arytmetyczny arytmetyczny logiczny 
logiczny logiczny logiczny 
łańcuchowy łańcuchowy logiczny 
wskazujący wskazujący logiczny 


arytmetyczny 


arytmetyczny logiczny 


logiczny logiczny logiczny 
łańcuchowy łańcuchowy logiczny 
wskazujący wskazujący logiczny 


arytmetyczny 
logiczny 
łańcuchowy 


arytmetyczny 
logiczny 
łańcuchowy 


logiczny 
logiczny 
logiczny 


arytmetyczny 
logiczny 
łańcuchowy 


arytmetyczny 
logiczny 
łańcuchowy 


logiczny 
logiczny 
logiczny 


arytmetyczny 
logiczny 
łańcuchowy 


arytmetyczny 
logiczny 
łańcuchowy 


logiczny 
logiczny 
logiczny 


arytmetyczny arytmetyczny logiczny 
logiczny logiczny logiczny 
łańcuchowy łańcuchowy logiczny 
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Porównanta danych logicznych 


Porównania danych logicznych są sprowadzane do porównań ich 


liczb porządkowych. 


Przykłady 
Wyrażenie Rezultat 
false < true true 
C2 = 32 = false true 
(2 = 23 >= (3 = 23 false 


Porównania danych znakowych 


Porównania danych znakowych są sprowadzane do porównań liczb 
porządkowych znaków Cwartość liczby porządkowej znaku jest 


równa kodowi znaku). 


Przykłady 
wyrażenie Rezultat 
"a = ”b> false 
*b* = SuccCl'a'3J true 
"A > "a" false 
> >= » » true 


Porównania danych lańcuchowych 


Porównanie danych lancuchowych są sprowadzane do porównań zna— 
ków. Dwie dane łańcuchowe Są równe wtedy i tylko wtedy, gdy 
składają się z identycznych ciągów znaków. Jeśli nie są rów— 
ne, a żadna z nich nie składa się z pustego ciągu znaków, to 
relacja dotycząca danych jest równoważna relacji pierwszej 
pary odpowiadających sobie, ale różnych znaków. Jeśli para 
taka nie istnieje Cponieważ jeden ciąg znaków jest podciągiem 
drugiego), Ło mniejsza jest dana składająca się z mniejszej 
liczby znaków. Pozostaje dodać, że jeśli dane nie są równe, a 


Jedna składa się z pustego ciągu znaków, to jest mniejsza od 


drugiej. 

Przykłady 
Wyrażenia Rezultat 
"jan = "jan" true 
"jan <= * jane" true 
> = »>» true 
"2509* > "270 false 
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Porównania danych wskazujących 


Do danych wskazujących stosują się tylko operatory równe C=) 
i nie równe (<>). Dwa wskazania są równe wtedy i tylko wtedy, 
gdy mają równe numery segmentów i równe przemieszczenia w 
segmencie. Wynika stąd, Że dwa wskazania mogą być nie równe, 
a mimo to mogą wskazywać tę samą zmienną albo lokalizować ten 


sam obszar pamięci operacyjnej. 


Przykłady 
wyrażenie Rezultat 
PŁrC8$0,$620 = PtŁrC$6, $20 false 
nil <> PtrCO,OJ false 


Należy odnotować, że PtrC$0,8620 i PtŁrC($6,20 lokalizują ten sar 
obszar pamięci operacyjnej. 


Porównania danych mnogościowych 


Do danych mnogościowych stosują się tylko następujące opera- 
tory: równe C=), nie równe (<>), jest podmnogością C(<=D, jest 
nadmnogością (>=) i jest składową Cin). Dwie dane mnogościo- 
we są równe wtedy i tylko wtedy, gdy mają identyczne składo- 
we, albo gdy obie nie zawierają składowych. Dana jest podmno- 
gością innej danej, jeśli jej składowymi są wyłącznie składo- 
we tej drugiej, albo gdy nie zawiera składowych. Dana jest 
nadmnogością innej danej, jeśli jej składowymi są co najmniej 
wszystkie składowe tej drugiej, albo gdy druga nie zawiera 
składowych. 


Dana typu bazowego typu mnogościowego jest elementem danej 


mnogościowej, jeśli dana mnogościowa zawiera ten element 


Przykłady 
Wyrażenie Rezultat 
(1,2) = [2,3] false 
(1,2) <= [2,3,1) true 
() <= [] true 
"a? in ('A..'z*] true 


7.7. Operator wskazania 


Operatorami wskazania są jednoargumentowe operatory wyzna” 
czenia adresu (© i ©©), Typy argumentów i rezultatów opera- 
cji wskazania przedstawiono w tablicy 7.7. 
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Tablica 7.7 Operator wskazania 


Typ Typ 


Operator © 


Rezultatem operacji ©arg jest dana typu pointer, a więc dana 
lokalizująca obszar pamięci operacyjnej. Wymaga Się, aby argu— 


ment operatora wskazania był nazwą zmiennej albo procedury. 


Jeśli argumentem operatora © Cat)> jest nazwa zmiennej nie— 
procedurowej albo nazwa procedury, to rezultatem jest wskaza— 
nie tej zmiennej albo procedury. Jeśli jest nim nazwa zmien— 
nej procedurowej, to rezultatem jest wskazanie przypisane tej 


zmiennej. 


Uwaga: Jeśli Fun jest nazewnikiem funkcji udostępniającej 
wskazanie, to mimo iż Fun jest nazwą zmiennej, nie może być 


argumentem operatora wskazania. 
Przykłady 


a Adresovanie zmiennych nieprocedurowych 


const 
Name : Sstringl2] = 'jb'; 
type 
Triplet = arrayl[O..2] of char; 
var 
Ref : OTriplet; 
begin 
Ref := ©Name; 
WriteCRef"(1]J ,Ref0[2]10 
end. 


Wykonanie programu powoduje wyprowadzenie napisu jb. 


b Adresovanite zmiennej procedurowej t procedury 


var 
Base : function : byte; 
LC$F+> 
function Bin : byte; 
begin 
Bin :=2e 
end; 
begin 
Base := Bin; 
writelnC©Base = ©BinD 
end. 


Wykonanie programu powoduje wyprowadzenie napisu TRUE. 
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Operator €© 


Rezultatem operacji ©8arg jest dana Łypu pointer wskazująca 
zmienną arg. Wymaga się aby arg było nazwą zmi ennej procedu- 


rowej. 


Przykład Użycie operatorów © t ©© 


type 

 athType = function(a,b : integer) : integer; 
mathRef = "mathType; 

var 
Math : mathType; 
Fix : integer; 


($F+> 
function Add(a,b : integer) : integer; 
begin 
Add :za + b 
end; 
($F-> 


function IncCp : mathRef; q: integer» : integer; 
begin 


Inc := p*Cq,2) 
end; 


begin 
Math := Add; 
if ©Math = ©Add then 
Fix := IncCQC©Math,5); 
WritelnCFix0 <7 2 
end. 


Wykonanie programu powoduje wyprowadzenie liczby 7. 


7.8. Operator konwersji 


Operatorem konwersji (konwerterem jest operator type). któ- 
rego argumentem jest wyrażenie porządkowe albo wskazujące. 


Typy argumentów i rezultatów konwersji przedstawione w tab- 
licy 7.8. 


Tablica 7.8 Operatory konwersji 


Typ Typ 
typec) porządkowy type 
Y wskazujący type 
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Operator tŁypeC) 


Rezultatem operacji typeCD jest dana typu type. Jeśli type jest 
nazwą typu porządkowego, to argument musi być typu porządko— 
wego, a jeśli jest nazwą typu wskazującego, to argument musi 


być typu wskazującego. 


Konwersja przebiega w taki sposób, że jeśli rezultat jest 
reprezentowany w mniejszej liczbie bajtów niż argument, to 
następuje odrzucenie bajtów bardziej znaczących, a jeśli jest 
reprezentowany w większej liczbie bajtów, to następuje wydłu— 
żenie reprezentacji z powieleniem bitu znaku. Jeśli natomiast 
argument i rezultat są reprezentowane w takiej samej liczbie 
bajtów, to konwersja nie powoduje zmiany reprezentacji. Doty— 


czy to w szczególności wszystkich konwersji wskazujących. 


Przykład 
type 
Complex = record 
Re,Im : real 
end; 


Pair = array[(1..2] of real; 
Ref = Pair; 


const 

Number : Complex = CRe : 2.0; Im : 3.00; 
begin 

WritŁeCRefCENumber>"[2] :0:1) 
end. 


Wykonanie programu powoduje wyprowadzenie liczby 3.0 


7.9. Składnia wyrażeń 


Przytoczone uprzednio zasady interpretowania wyrażeń na 
podstawie priorytetów zawartych w nich operatorów dotyczą je- 
dynie wyrażeń poprawnych. Zasady konstruowania wyrażeń popraw 
nych wynikają natomiast z formalnego opisu ich składni. 


De/ftntcje 
wyrażenie: 
wyrażenie-relacyjne 
wyrażenie-relacyjne: 
wyrażenie-skladantkRowve 


wyrażenie-skladnikRove operator-relacji 
wyrażenie-skladntRowe 


operator-—relacji Cjedno 2): 
< <= > >== <> in 
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wyrażenie-skladntikowe: 


skladnik | 
znak-plus-albo-minus skRladntkR | | 
wyrażenie-skTadntikowe operator-skladnikowy skRladntitk 


znak-plus-albo-minus Cjedno z: 
+ - 


operator-skladnikowy (jedno z): 
+ -— or Xor 


skladntik: 
czynnik 
skladnik operator-czynnikowy czynnik 


operator-czynnikowy C jedno 2): 
w / div mod Sshl shr and 


czynnik: 
nazwa-zmiennej 
literal-bez-znaku 
symbol 
konstruktor 
konwvwers ja 
not czynnik 
adresac ja 
nazevnik-funkcjt 
C wyrażenie ) 


konwers ja: 
konwer ŁOT 
konwerter 


konwerter: 
nazwa-typu Ć wyrażenie ) 


adresac ja: 
© nazwa-zmiennej 
© nazva-procedury 
GQ nazwa-zmienne j-procedurowe j 


nazwa-procedury: 
tdenty/ftkRator 
nazva-zmienne j-procedurowej: 
nazva-zmtienne j 
nazewnikR-funkhc ji: 
nazewnikR-funkc ji-bezargumentowej 
nazewnik-funkc ji-z-argumentami 
nazewnik-funkc ji-bezargumentowej: 
tdentyftkator 
nazewnik-funkc ji-z-argunentamti: 
nazwa-junkcji € Llista-argumentów D 
Lista-argumentów: 
argumant 
tista-argumentów , argument 
argument: 
wyrażenie 
nazwa-funkc ji: 
Ldenty/f tkator 


Przykład Konstruowanie i tnterpretowanie wyrażeń 
Wyrażenie o postaci 
true = false = false 


nie jest wyrażeniem poprawnym. Wynika to stąd, że po obu 
stronach operatora relacji musi wystąpić wyrażenie składniko— 
we, tymczasem Cjak wynika z opisu składni), wyrażenie 

true = false nie jest wyrażeniem składnikowym. A zatem trak— 


towanie przytoczonego wyrażenia jak wyrażenia 
(true = false) = false 


jest błędne. 


7.10. Wyrażenia stałe 


wyrażeniami stałymi są wyrażenia, których wartość może być 
określona jeszcze przed podjęciem wykonywania programu. Wy- 
rażenie stałe nie może zawierać wywołań funkcji, ani opera— 
torów adresowania (© i ©©), ale może zawierać literały i 
symbole oraz odwołania do następujących funkcji standardo— 
wych 


Abs Chr Hi Length Lo Odd Ord 
Pred PtŁr Round SizeOf  Succ Swap Trunc 


Przykłady Wyrażenia stale wv dehklaracjach tdentyjtkatorów 


statych 
const 
Min = 1OO; 
Max = Min + 2O; 


Mid = CMax — Min) div 2; 

LetterA = ChrC6580D; 

Message = "Out" + ” of ” + "memory"; 
Len = LengthCMessage)D; 

TwoPi = 3.14 = 2; 

Digit = ['O'..'38']; 


8. INSTRUKCJE 


Instrukcje dzielą się na proste, strukturalne i kodowe. Ins- 
trukcjami prostymi Są: instrukcja przypisania, procedury, 
ins— 


przejścia i pusta, a instrukcjami strukturalnymi są: 
trukcja grupująca, warunkowa, wyboru, trzy instrukcje powta- 


rzające i instrukcja wiążąca. Każda instrukcja może być po- 
przedzona jedną, albo większą liczbą etykiet. 


Każde dwie sąsiadujące instrukcje są oddzielone od siebie 


znakiem ; Csrednik. 


Dejintc je 


wykaz-titnstrukcji: 
instrukcja 
tnstrukc ja-zaetykietowana 
wykaz tnstrukcjjit ; instrukcja 
wykaz-instrukcji ; tinstrukc ja-zaetykietowana 


instrukc ja-zaetykietowana: 
etykieta : instrukcja 
etykieta : titnstrukc ja-zaetykietowana 


etykieta: 
identyfikator 
liczba-calkowi ta-bez-znakRu 


instrukc ja: 
ins trukc ja-prosta 
ins trukc ja-strukturalna 
instrukc ja-kodowva 


instrukc ja-prosta: 
instrukc ja-przypisania 
tns truhc ja-procedury 
instrukc ja-prze jścia 
instrukc ja-pusta 
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instrukcja-strukturaLtna: 
tinstrukc ja-grupująca 
instrukc ja-—warunkowa 
tinsłrukc ja-wyboru 
tns trukc ja-povtarzająca 
tinstrukc ja-wiążąca 


8.1. Instrukcja przypisania 


Instrukcja przypisania ma postać 

Name := Exp 
w której Name jest nazwą zmiennej albo nazwą funkcji, a Exp 
jest wyrażeniem. Jeśli przed dwuznakiem := Cdwukropek, równa 
stę) występuje nazwa funkcji, to deklaracja tej funkcji musi 
bezpośrednio obejmować daną instrukcję przypisania. 


Deftntcje 
tnstrukcja-przypisanta: 
nazwa-zamiennej := wyrażenie 
nazwa-funkRcjit := wyrażenie 


Wykonanie instrukcji przypisania: powoduje wyznaczenie danej 
reprezentowanej przez Name i stosownie do przypadku, przy— 
pisanie jej danej reprezentowanej przez Exp albo określenie 
rezultatu funkcji określonej przez Exp. Wymaga się, aby typ 
wyrażenia Exp oraz typ zmiennej albo typ rezultatu funkcji 
Cokreślony w jej deklaracjiD były zgodne w sensie przypisa— 


nia. 


Przykłady Instrukcje przypisania 


type 
RGB = CRed,Green,Blue); 
Colour = set of RGB; 
Palette = array[O..3] of Colour; 


Composition = record 
Num : byte; 
Mono : boolean; 
Table : Palette 
end; 
var 
Hue : Colour; 


PaletteOne,Palettelwo : Palette; 
CompositOne,CompositTwo : Composition; 
xi ,x2,a,b,c : real; 


CIE" mmm mmmmammmommm mm mm 30 

Hue = [Green. .Blue]l; 

PaletteTwo := PaletteOne; 

xl := C-b + SqrtCb % b — 4 % a %* CD) / CZ w a) 
X2 :=c „ a—-_ xi; 

CompositOne := CompositTwo; 
Composi tŁOne. Table(2] := Red; 

CompositTwo. Mono := CompositOne. Num = 3; 
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8.2. Instrukcja procedury 


Instrukcja procedury ma postać 


SubCA1,A2, ... „AMD 
w której Sub jest nazwą procedury albo nazwą zmiennej prące- 


durowej, a Al, 42, ... „, An SĄ argumentami wywołania proce- 


dury. Jeśli lista argumentów jest pusta, Ło należy pominąć 


nawiasy okrągłe. 
Dejtnicje 


instrukc ja-procedury: 
instrukc ja-procedury-z-argumentamti 
tnstrukc ja-procedury-bez-argunentów 


tnstrukcja-procedury-z-argunentamti: 
nazwa-procedury Ć Lista-argumentów DJ 
nazwva-zmiennej-procedurowej € lista-argumentów 2 


instrukc ja-procedury-bez-argumentów: 
nazwa-procedury 
nazva-zmienne J-procedurowe j 


nazwa-procedury: 
tdentyftkator 

Wykonanie instrukcji procedury powoduje wykonanie czynności 
opisanych w jej deklaracji. Zanim to nastąpi, odbywa się Ssko- 
jarzenie argumentów i parametrów Cpor. punkt 9.10. Wymaga 
się, aby liczba argumentów procedury była równa liczbie Jej 
parametrów. Wyjątek od tej zasady dotyczy kilku procedur 
standardowych (takich jak np. Reset), które mogą być wywoły- 
wane ze zmniejszoną liczbą argumentów. W takich przypadkach 


stosuje się domniemania argumentów pominiętych w wywołaniu. 


Przykłady Instrukcje procedur 


AssignCDoc, ' Document 'D 

MoveCPtr", Trg,2) 

SubC poi nter CRef *) *) 

WriteCfalse, '* = FALSE'D) 
procVari*[2]C'a' ,5) 
procVare.FieldC(Beta + 4,'Hello'D 


8.3. Instrukcja przejścia 


Instrukcja przejścia ma postać 
goto Lab 


w której Lab jest nazwą etykiety. 


Wymaga Się, aby ta etykieta była zadeklarowana oraz aby wys” 
tąpiła w tym samym bloku co dana instrukcja przejścia. 
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Definicje 
tinstrukcja-przejścia: 
goto etykieta 
Wykonanie instrukcji przejścia powoduje kontynuowanie wykony—- 
wania programu od instrukcji opatrzonej etykietą o podanej 
nazwie. Zabrania się, aby akcja ta spowodowała przejście do 
wykonania instrukcji znajdującej się we wnętrzu instrukcji 


strukturalnej. 


Przykłady Instrukcje przejscia 


goto Quit 
goto O77 
goto Halt13 


8.4. Instrukcja pusta 


Instrukcja pusta jest jedyną instrukcją języka, której zapis 
nie wymaga użycia jednostek leksykalnych. Występuje ona w 
tych kontekstach, w których jest wymagane użycie instrukcji, 
ale chce się uniknąć wykonania jakiejkolwiek akcji. 


Deftntitcje 
tnstrukcja-pusta: 
puste 
puste: 


Wykonanie instrukcji pustej nie wywołuje żadnych skutków. 


Przykłady Instrukcje puste (miejsce wystąpienia instrukcji 
pustej oznaczono komentarzem zawierającym wykrzyk— 
nik) 


begin € ! > end 

while false do C ! > ; 

begin € ! > ; Lab: ( ! > end 
case true of true: ( ! > end 


8.5. Instrukcja grupująca 


Instrukcja grupująca ma postać 
begin 
Ins ; 
Ins 


Ins 
end 
w której każde Ins jest instrukcją. 
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Instrukcja grupująca jest używana wszędzie tam, gdzie skład- 
nia języka wymaga użycia jednej instrukcji, a jest niezbędne 


wykonanie ich kilku. 
Deftntcje 


tnstrukc ja-grupująca: 
begin wykaz-instrukcjit end 


Wykonanie instrukcji grupującej powoduje wykonanie podprog- 


ramu otwartego opisanego przez wykaz tnstrukc jt. 


Przykłady Instrukcje grupujące 


begin 
1 :=2; SubCi,i + JJ) 
end 
begin 
Assign( Doc, ' Document *'D); 
Rewri ŁeX Doc); 
CloseC( Doc) 
end 


8.6. Instrukcja warunkowa 
Instrukcja warunkowa ma postać 


if Exp then 
Ins 
albo 


if Exp then 
Ins 
else 
Ins 
w której każde Exp jest wyrażeniem logicznym, a każde Ins 


Jest instrukcją. 


Jeśli instrukcja występująca między słowami kluczowymi then i 
else jest instrukcją warunkową, to musi być instrukcją ze 


słowem kluczowym else. 


Deftntc je 


ins trukc ja-varunkowa: 
if warunek then tnstrukc ja 
1f warunek then tnstrukc ja else tnstrukcja 


varunek: 
wyrażenie-logiczne 


wyrażenie-logiczne: 
vyrażente 
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Wykonanie instrukcji warunkowej rozpoczyna Się od utworzenia 
danej reprezentowanej przez wyrażenie Exp. Jeśli dana ta ma 
wartość true, to jest wykonywana instrukcja /ns następująca 
po słowie kluczowym then. Jeśli ma wartość false, a 
instrukcja warunkowa zawiera słowo kluczowe else, to jest 
wykonywana instrukcja /Ins występująca po tym Słowie. 

w pozostałych przypadkach jest wykonywana instrukcja pusta. 


Przykłady Instrukcje warunkowe 


if a =b then c :=e 
if a = b then c:= 2 eęlse c := 3 
if b then if a then c :=e 
if b then if a then c := zelse c := 3 
1f b then if a then c := 2 else c := S else c :=4 
1f b then begin 
a := true; 
c :=e2e 
end 


8.7. Instrukcja wyboru 


Instrukcja wyboru ma postać 


case Exp of 


List : Ins 3 
List : Ins ; 
List : Ins 

end 

albo 

case Exp of 
Łist : Ins ; 
List : Ins ; 
łtst Ins 
else 

Ins 
end 


w których Exp jest wyrażeniem nazywanym wyrażeniem vyróżnit- 
kowym, każde Lisł jest listą etykiet wyboru, a każde Ins jest 


instrukcją. 


Wyrażenie wyróżnikowe musi być typu porządkowego związanego 
ze zbiorem danych których liczby porządkowe należą do prze- 
działu —32768..32767, a elementami listy etykiet wyboru mogą 
być tylko wyrażenia state, typu zgodnego operacyjnie z types. 
wyrażenia wyróżni kowego. 
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Liczby porządkowe danych reprezentowanych przez elementy lis- 
ty etykiet wyboru muszą należeć do przedziału —32768.. 32767. 
Jeśli liczby porządkowe pewnej podlisty listy etykiet wyboru 
tworzą ciąg arytmetyczny o rożnicy 1, Ło podlista może być 
zastąpiona napisem o postaci min..max, w którym min jest ele- 
mentem podlisty o najmniejszej, a max jest elementem podlisty 


o największej liczbie porządkowej. 


Jeśli bezpośrednio przed słowem kluczowym else występuje 
instrukcja warunkowa, to bezpośrednio za tą instrukcją musi 
wystąpić znak ; Cśredntko. 
Deftnicje 
instrukc ja-wyboru: 
case wyrażenie-wyróżnikowe of wykaz-wyboru end 
wyrażente-wyróżnikowe: 
wyrażenie-typu-porządkRowego 


wyrażentie-typu-porządkowego 
wyrażenie 


wykaz-wyboru: 
wykaz-tnstrukc ji-wyboru 
else wykaz-instrukc ji 
wykaz-instrukc ji-wyboru else wykaz-instrukcjt 
wykaz-instrukc ji-wyboru ; else wvykaz-titnstrukcji 


wykaz-tnstrukc ji-wyboru: 

tnstrukc ja-wyboru 

wykaz-itnstrukc ji-wyboru ; tnstrukcja-wyboru 
tns trukc ja-wyboru: 

lista-etykiet-wyboru : tnstrukcja 


lista-etykiet-wyboru: 

etykRieta-wyboru 

etykieta-wyboru .. etykieta wyboru 

lista-etykiet-wyboru , etykieta-wyboru 

lista-etykiet-wyboru , 

etykiteta-wyboru .. etykieta-wyboru 

Wykonanie instrukcji wyboru rozpoczyna się od utworzenia da- 
nej reprezentowanej przez wyrażenie wyróżnikowe. Następnie 
liczba porządkowa tej danej jest porównywana z liczbami po- 
rządkowymi danych reprezentowanych przez elementy kolejnych 
list etykiet wyboru. W przypadku stwierdzenia równości jest 
wykonywana instrukcja wyboru następująca bezpośrednio po liś- 
cie. Jeśli równość nie zostanie stwierdzona, to jest wykony- 
wany wykaz instrukcji następujący po słowie kluczowym else. 
Jeśli słowo to w instrukcji wyboru nie występuje, to jest wy- 
konywana instrukcja pusta. 
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Przykłady Instrukcje wyboru 


type 

RGB = CRed,Green, Blue); 
var 

Hue : RGB; 


a,i,j : integer; 
Str : string; 


case Hue of 


Green: a := 5; 
Red: begin 
1 :=2, JJ := 3 
end 
end 
case a = b of 
false: case SuccCHue) of 
Red: i :=2 
else goto Fin 
end; 
true: j := 3 
end 
case i of 
1..3: a :=2; 
2,3..5,0: b := 3 
end 
case CopyCStr „,j,1i0 of 
*+*”: IncCjD; 
»—». DecC |) 
end 


8.8. Instrukcje powtarzające 


Instrukcje powtarzające służą do organizowania cykli progra— 
mowych. Występują one w trzech odmianach, jako Łak zwane in-— 
strukcje dla, dopóki i dopóty. 


De/ftnticje 
tnstrukcja-powvtarza jące: 
instrukcja-dla 
instrukc ja-dopókti 
insłrukc ja-dopóty 
Instrukcja dla 


Instrukcja dla ma postać 


for Name := exgpF to exgp7 deo 
Ins 
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albo 


for Name := expF downto expI do 
Ins 
w których każde Name jest nazwą zmiennej, nazywanej zmienną 
sterującą, każde ExpF i każde ExpT jest wyrażeniem, a każde 
Ins jest instrukcją. 


Nazwa zmiennej sterującej musi być identyfikatorem zmiennej 
typu porządkowego, zadeklarowanym w bloku, w którym wystąpiła 
dana instrukcja dla, albo identyfikatorem zmiennej globalnej. 
Typy wyrażeń występujących po obu stronach słowa kluczowego 
to albo downto muszą być zgodne w sensie przypisania z typem 
zmiennej sterującej. Zabrania się, aby wykonanie instrukcji 
następującej po słowie kluczowym do spowodowało zmianę danej 


przypisanej zmiennej sterującej cyklu. 


Definicje 


tns trukc ja-dla: 
for nazwa : 
for nazwa : 


początek to koniec do ttnstrukcja 
początek downto koniec do tnstrukc ja 


Wykonanie instrukcji dla rozpoczyna się od wyznaczenia danych 
reprezentowanych przez wyrażenia ExpF i ExpT. Następnie, jeś- 
li w instrukcji występuje słowo kluczowe to, to zmiennej Name 
są przypisywane kolejne dane jej typu, o liczbach porządko- 
wych tworzących ciąg arytmetyczny o różnicy +1, począwszy od 
danej reprezentowanej przez ExgpF, a skończywszy na danej re- 
prezentowanej przez koniec. Po każdym takim przypisaniu, jest 
wykonywana instrukcja następująca po słowie kluczowym do. 


Jeśli w instrukcji dla występuje słowo kluczowe downto, to 
różnica polega jedynie na tym, że liczby porządkowe danych 
przypisywanych zmiennej Name tworzą ciąg arytmetyczny o 
różnicy -1. Jeśli zakres liczb porządkowych wyznaczony przez 
wyrażenia ExpF i ExpT jest pusty, to następuje wykonanie ins- 
trukcji pustej. Przyjmuje się, że po zakończeniu wykonywania 
instrukcji powtarzającej, zmiennej Name jest przypisana dana 
o wartości nieokreślonej. Wyjątek od tej zasady dotyczy za- 
kończenia spowodowanego wykonaniem instrukcji przejścia wio- 
dącej poza instrukcję dla. 
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Przebieg wykonania instrukcji 
for v := min to max do Ins 
można wyrazić w następujący sposób 


vMin := min; 

vMax := Max; 

v :=5 VUMLN: 

In: 

if v > vMax then goto Out; 
Ins; 
Inclv); 
goto In; 

Out: ; 


natomiast przebieg wykonania instrukcji 
for v := max downto min do Ins 
można wyrazić w następujący sposób 


vMax := max; 

vMtin := min; 

v :=5 vMax; 

In : 

if v < vMin then goto Out; 
Ins; 
DecClvJ; 
goto In; 

Out: ; 


W przytoczonych rozwinięciach instrukcji dla posłużono się 
funkcjami standardowymi Inc i Dec Cpor. rozdział 120). 


Przykłady Instrukcje dla 


type 

RGB = CRed,Green,Blue); 
var 

i,j : 2..S5; 

Colour : RGB; 

Flag : boolean; 


Letter : "a'..'z'; 
Arr : array(RGB,boolean,char] of byte; 
CIEN NN >O 
for i := 2 to 5 do WriteCi) 
for j := 5S downto 2 do WriteC JJ) 
for Colour := Red to Green do 
for Flag := true downto false do 
for Letter := 'a' to 'z” do begin 
Arr[(Colour ,Flag,Letter] := O; 
WritelnCOrdC(ColourJ,”',',Flag,',”,Letter> 
end 
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Instrukcja dopóki 
Instrukcja dopóki ma postać 


while Exp do 
Ins 


w której Exp jest wyrażeniem logicznym, a Ins jest instruk-— 
cją. 
Deftnicje 
instrukc ja-dopókt: 
while warunek do titnstrukcja 


Wykonanie instrukcji dopóki przebiega zgodnie z następującym 


algorytmem: 


1 Wyznacza się daną reprezentowaną przez Exp. 

2 Jeśli dana ta ma wartość false, to wykonanie instrukcji 
dopókRt uznaje się za zakończone. 

3 W przeciwnym razie, wykonuje się instrukcję Ins, a następ" 
nie wszystkie opisane czynności powtarza się od początku. 


Przebieg wykonania instrukcji 
while e do Ins 
można wyrazić w następujący sposób 
Lab: 
if e then begin 
Ins; 
goto Lab 
end 
Przykłady Instrukcje dopóki 
while Flag do FunCFlag) 
while not Ci = O) do begin 
DecC 1); 


WritelnC i) 
end 


Instrukcja dopóty 


Instrukcja dopóty ma postać 
repeat 
Ins ; 
Ins ; 
Ins 
until Exp 
w której Exp Jest wyrażeniem logicznym, a każde Ins jest ins” 


trukcja.- 
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Defintcje 
tnstrukcja-dopótłŁy: 
repeat wvyraz-instrukcji until warunek 


Wykonanie instrukcji dopóki przebiega zgodnie z następującym 
algorytmem: 


1 Wykonuje się instrukcje Ins zawarte między słowami kluczo— 
wymi repeat i until. 

2 Wyznacza Się daną reprezentowaną przez Exp. 

3 Jeśli dana ta ma wartość true, to wykonanie instrukcji 
dopóty uznaje się za zakończone. 

4 W przeciwnym razie, wszystkie opisane czynności powtarza 


się od początku. 
Przebieg wykonania instrukcji 

repeat Ins1l; Inse; ... ; Insn until e 
można wyrazić w następujący sposób 

Lab: 


Ins1; Ins2; ... ; Insn 
if not e then goto La» 


Przykłady Instrukcje dopóty 


repeat until KeyPressed 


repeat 
WritelnCiD; 
DecC 120 

until i =0O 


8.9. Instrukcja wiążąca 
Instrukcja wiążąca ma postać 


with Name,Name, ... „Name do 
Z7ns 


w której każde Name jest nazwą rekordu, a Ins jest instruk- 
cją. 
Przyjmuje się z definicji, że instrukcja o postaci 
with a,b, ... .z do t 
jest równoważna instrukcji 


with a do 
with b do 


with z do t 
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Dejtnicje 
instrukc ja-wvi th: 
with lis.a-nazvu-rekordóv do instrukcja 


lista-nazv-rekordów: 
nazwa rekordu 
lista-nazv-rekordów , nazwa-rekordu 


nazwa rekordu: 
nazwa-zmiennej 
Wykonanie instrukcji wiążącej powoduje odslonięcie tdentyft- 


katorówv pól rekordów Name, a następnie wykonanie instrukcji 
Ins. 


Odsłonięcie identyfikatorów powoduje, że nazwa pola nie musi 


być kwalifikowana nazwą rekordu. W Łym sensie, w zasięgu de- 
klaracji 


var 
V : record 
A : record 


B : integer; 
C : integer 
end; 
B : integer 


end; 


wykonanie instrukcji wiążącej 


with V.A,V do 
WritelnCB,C) 


ma taki sam skutek jak wykonanie instrukcji 
WritelnCV.B,V.A.C) 


Przykład Instrukcja viążąca 


var 
Alfa : record 
Beta : record 
Gamma : char; 
Delta : real 
end; 
Gamma : integer 
end; 
Beta : array[boolean] of record 
Chi,Tau : real 


with Alfa.Beta,Beta[i = j] do 
Delta := Tau; 

with Alfa.Beta,Alfa do begin 
Delta := 23.4; 
writelnC( Gamma) 

end 
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Instrukcja Delta := Tau jest traktowana tak jak instrukcja 
Alfa.Beta. Delta := Betali = j]. Tau 


Wywołanie procedury Writeln(Gamma) jest traktowane tak jak 


wywołanie procedury 
WritelnCAlfa. Gamma) 


Gdyby w drugiej instrukcji wiążącej przestawiono elementy 
listy nazw zmiennych rekordowych, to rozpatrywane wywołanie 


procedury byłoby traktowane jak wywołanie 
WritelnCAlfa. Beta. Gamma) 


Uporządkowanie elementów listy jest więc istotne. 


8.10. Instrukcja kodowa 


Niekiedy zachodzi potrzeba włączenia do programu napisanego 
w języku wysokiego poziomu, instrukcji asemblerowych. zadanie 
Ło ułatwia instrukcja kodowa. Instrukcja ta składa się ze 
słowa kluczowego inline, bezpośrednio po którym następuje, 
ujęty w nawiasy okrągłe, ciąg elementów Rodu. Elementy kodu 
są od siebie oddzielone kreskami ukośnymi, a każdy z nich 


składa się w ogólnym przypadku 


C z wyrażenia stałego, 

C z operatora < Cmniejsze) albo > Cwviększe) po którym nas— 
Łępuje wyrażenie stałe, 

c z identyfikatora zmiennej, 

c z identyfikatora zmiennej, po którym następuje znak 

+ (plus albo -— (minus) i wyrażenie stałe nie rozpoczynające 


się od takiego znaku. 


Deftntcje 


tnstrukcja-—kodowa: 
inline C ciąg-elementówv-kodu ) 


ctiqąs-elementóv-kodu 
element-—Rodu 
ciąg-elementów=kodu / element-kRodu 


element—Rodu: 
wyrażenite-stale 
znakR-mniejsze-albo-wviększe wyrażenie-stale 
nazwa-zmtiennej 
nazwamzmiennej + wyrażenie-stałe 
nazwa-zmtennej — wyrażenie stałe 
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znak-mniejsze-albo-większe (jedno z): 
<> 


nazwa-zmiennej: 
tdenty/fitRator 


Każde wyrażenie występujące w elemencie kodu reprezentuje da- 
ną całkowitą. Jeśli wyrażenie jest poprzedzone operatorem 

< (mniejsze) albo > (większe), Ło utworzona dana jest podda- 
wana odpowiednio konwersji byteC) albo wordC(>. W przeciwnym 
razie, jeśli jej wartość należy do przedziału O. .255, to jest 
poddawana konwersji byteC(). W pozostałych przypadkach jest 


poddawana konwersji wordC). 


Jeśli w elemencie kodu występuje identyfikator zmiennej glo- 
balnej, to reprezentuje on przemieszczenie adresu tej zmien- 


nej, w segmencie którego numer znajduje się w rejestrze DS. 


Jeśli w elemencie kodu występuje identyfikator zmiennej lo- 
kalnej, to reprezentuje on przemieszczenie adresu tej zmien- 


nej względem adresu określonego przez SP: BP. 


Jeśli w elemencie kodu występuje identyfikator parametru pro” 
cedury, to reprezentuje on przemieszczenie adresu argumentu 
umieszczonego na stosie procesora, względem adresu określo"” 


nego przez SP: BP. 


Przykład 
Następujący program ilustruje użycie instrukcji kodowych 


var 
Fix : integer; 
procedure AddC(var Count : integer; Step : integer); 
var 
Loc : integer; 
begin 
« Loc := Count + Step >» 


inline($c4/$be/Count); les di,[bp + 6] > 
inline(8$26/$8b/$05); < mov ax,[(es : dil > 
inlinec$03/$86/Step); < add ax,[(bp + 4] > 
inline($89/$86/Loc) ; < mov [bp - Z],ax > 
<« Fix := Loc ) 
i nline($8b/$86/Loc) ; < mov ax,l[bp — 2] > 
inline($a3/F1x0; < mov [Fix],ax > 
end; 
begin 
Fix := 1O; 
AddCFix,3); 
WritelnCFi:0 
end. 
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Program ten jest równoważny programowi 


var 
Fix : integer; 
procedure AddCvar Count : integer; Step : integer); 
var 
Loc integer; 
begin 
Loc := Count + Step; 
Fix := Loc 
end; 
begin 
Fix := 10; 
AddCFix,33); 
WritelnCFiO 
end. 


Uwaga: Ponieważ przyjmuje się, że element kodu zawierający 


identyfikator zmiennej jest typu word, niepoprawne byłoby 


na przykład zastąpienie 4-bajtowego rozkazu 


inline $c4/$be/Count); < les di,(bp + 6] > 


2-bajtowym rozkazem 


inlinel($c4/$7e/CountD; ( les di,(bp + 61 >» 


ale poprawne byłoby na przykład użycie rozkazu 


inlinel$c4/$7e/60; < les di,C[bp + 61 > 


3. PROCEDURY 


Procedury dzielą się na procedury funkcyjne i niefunkcyjne. 
Podobnie jak zmienne, procedury wymagają deklarowania. De- 
klaracje procedur mogą być umieszczone w programie, albo mogą 
znajdować się w modułach dołączonych do programu. W każdym 
przypadku wymaga się, aby wywołanie procedury wystąpiło 

w zasięgu jej deklaracji. 


Deklaracja procedury składa się z nagłówka procedury, ciała i 
znaku ; (średnik). Deklaracje procedur dzielą się na deftntu- 
jące, zapowiadające i uzupelniające. Deklaracje definiujące 

są deklaracjami kompletnymi, łączącymi w sobie cechy dekla- 

racji zapowiadających i uzupełniających. Deklaracje zapowia” 
dające i uzupełniające muszą występować parami. Kompletny na” 
główek procedury musi wystąpić w deklaracji zapowiadającej, a 


ciało w deklaracji uzupełniającej. 


Deklaracje definiujące i zapowiadające procedur funkcyjnych 
mają jedną z następujących postaci 


deklarac ja definiująca: 
function Namel par) : type; 
body; 

albo 
function Name : type; 
body; 

deklarac ja zapowiada Jąca: 


function NameC par) : type; 
forward; 
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albo 
function Name : type; 
forward; 
Deklaracje definiujące i zapowiadające procedur niefunkcyj— 
nych mają jedną z następujących postaci 
deklaracja defintująca: 
procedure NameCl par); 
body; 
albo 
procedure Name; 
body; 
deklarac ja zapoviadająca: 
procedure Name(l par); 
forward; 
albo 
procedure Name; 
forward; 
Deklaracja uzupełniająca procedury ma albo taką samą postać 
jak deklaracja definiująca, albo różni się od niej tylko tym, 


że jej nagłówek jest uproszczony 

dla procedury funkcyjnej do 
function Name; 

dla procedury niefunkcyjnej do 
procedure Name; 


We wszystkich przytoczonych konstrukcjach, Name jest nazwą 
procedury, par jest wykazem jej parametrów, type jest identy— 
fikatorem Łypu określającym typ rezultatu procedury funk— 
cyjnej, a body jest ciałem procedury. 


Ciałem deklaracji zapowiadającej jest słowo kluczowe forward, 
natomiast ciałem deklaracji definiującej może być: 

© blok, 

© blok poprzedzony słowem kluczowym interrupt i oddzielony 
od niego znakiem ; Csredntiko, 

© słowo kluczowe external, 


e instrukcja kodowa. 


Jeśli ciało procedury zaczyna Się od słowa kluczowego inter— 


rupt, to procedura musi być procedurą niefunkcyjną. Procedura 
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taka może być użyta do obsługiwania przerwań, ale nie może 
zostać wywołana za pomocą instrukcji procedury. Jeśli ciało 
procedury składa się ze słowa kluczowego external, to przyj- 
muje się, że kod procedury znajduje się w zbiorze o nazwie 
określonej przez dyrektywę kompilatora C$L Object>. W dyrek- 
tywie tej Object jest nazwą zbioru z rozszerzeniem .OBJ za- 
wierającego procedurę w postaci przemieszczalnej. Wymieniona 
dyrektywa może wystąpić w dowolnym miejscu programu albo mo- 
dułu, byle tylko przed instrukcją grupującą stanowiącą ich 
część wykonawczą. Jeśli ciało procedury składa się z ins— 
trukcji kodowej, Ło każde wywołanie procedury powoduje wyge- 
nerowanie kodu określonego przez tę instrukcję. Z tego powodu 
kod procedury zawierającej instrukcję kodową będzie nazywany 


podprogramem otwartym. 


Istotna różnica między deklaracją procedury funkcyjnej i nie- 
funkcyjnej polega na tym, że w pierwszej z nich jest określo- 
ny typ rezultatu — danej udostępnianej w miejscu wywołania 
funkcji. 


Rezultat procedury funkcyjnej jest określany w instrukcji 

przypisania, w której przed dwuznakiem := Cdwukropek, równa 
stę) występuje identyfikator funkcji. Jeśli podczas wykony- 
wania funkcji rezultat nie zostanie określony, to przyjmuje 


się, że jest nim dana o wartości nieokreślonej. 


Deftnicje 


deklarac ja-deftniująca: 
naglówek-definiujący cialo-deftniujące 


deklarac ja-zapowtada jąca: 
naglówek-zapowiadający ctalo-zapowiadające ; 


deklarac ja-uzupelnta jąca: 
naglówek-uzupelniający c taloruzupelniające ; 


naglówek-definiujący: 
naglówek-procedury 


naglówek-zapowviada jący: 
naglówek-procedury 


naglówek-procedury: 
nag lówek-procedury- funkcyjna j 
nag lówek-procedury-niefunkc yJnej 


naglówek-procedury-f unkcy jne j: 
function nazwa-procedury wykaz-parametrów DJ 
: typ”rezultatu :; 


function nazwa-procedury : typ-rezultatu ; 
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nagtówek-procedury-niefunkcyjnej: 
procedure nazwa-procedury C wykaz parametrów D) ; 
procedure nazwva-procedury 


naglówek-uzupelniający: 
nag lówek-uzupelniający-procedury-funkcyjnej 
naglówekR-uzupelniający-procedury-niefunkcyjnej 


naglówek-uzupelniający-procedury-funkcyjnej: 
function nazwva-procedury ; 
function nazwa-procedury Ć wykaz-parametrów ) 
typ"rezulłatu ; 


nag lówekR-uzupelniający-procedury-niefunkcyjnej: 
procedure nazwva-procedury ; 
procedure nazwa-procedury C wykaz-parametrów J) 


nazwva—procedury: 
tdentyjitkator 


typ-rezułltatu: 
tdentyftkator 


ctalo-dejftnitujące: 
blok 
interrupt ; bLokR 
external 
tns trukc ja-—kodowva 


citalo-zapowiada jące: 
forward 


ctalo—uzupelniające: 
ctalo-de/tniujące 


9.1. Skojarzenia parametrów z argumentami 


W chwili wywołania procedury następuje skojarzenie jej para— 
metrów z argumentami jej wywołania. Po ewentualnym zastoso— 
waniu domniemań, liczba argumentów wywołania musi być równa 
liczbie parametrów. Skojarzenia parametrów z argumentami do— 
konują się w kolejności ich wystąpienia w nagłówku procedury 
i w wywołaniu Cpierwszy z pierwszym, drugi z drugim, itd.). 


Skojarzenie parametru z argumentem może dokonać Się na zasa— 
dzie skojarzenia ze zmienną albo ze stalą. Skojarzenie przez 
wskazanie może mieć charakter referencyjny albo lokRalizacyj- 
ny. 

Skojarzenie ze zmienną ma miejsce wtedy, gdy nazwa parametru 
występuje w zestawie parametrów rozpoczynającym się od słowa 
kluczowego var. W pozostałych przypadkach ma miejsce skoja-— 
rzenie ze stałą. Jeśli ma miejsce skojarzenie ze zmienną, a 
zestaw parametrów w którym wystąpił rozpatrywany parametr za— 
wiera opis typu parametrów, to skojarzenie ma charakter re— 


ferencyjny. W przeciwnym razie ma charakter lokalizacyjny. 
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Uwaga: Określenia sko jarzenie ze zmienną i skojarzenie ze 
stalą biorą się stąd, że w pierwszym przypadku argumentem mo- 
że być tylko nazwa zmiennej, a w drugim może być wyrażenie, 


które zgodnie z przyjętą uprzednio interpretacją, jest nazwą 
stałej. 


Przykłady Naglówki procedur 


type 
Tiny = O..15; 
Hue = CRed,Green,Blue); 
Nibble = O..15; 


CHEN 000 x) 

procedure Movelvar Source, Target : Hue); 

procedure Comp; 

function Comparelvar Source, Target) : boolean; 

function MyAge : byte; 

procedure Sum(First,Second : real; var Result : real); 


function SetCCol : Hue; var Num : NibbleD> : Tiny; 


Argumentami procedury Move muszą być nazwy zmiennych typu 

Hue. Procedura Comp jest bezargumentowa. Argumentami funkcji 
Compare mogą być nazwy zmiennych dowolnego typu. Rezultat 
funkcji jest daną typu boolean. Funkcja MyAge jest bezargu- 
mentowa. Rezultat funkcji jest daną typu byte. Pierwsze dwa 
argumenty procedury Sum mogą być dowolnymi wyrażeniami typu 
zgodnego w sensie przypisania z typem real. Trzeci argument 
musi być nazwą zmiennej typu real. Pierwszym argumentem 
funkcji Set może być dowolne wyrażenie typu zgodnego w sensie 
przypisania z typem Hue. Drugim argumentem musi być nazwa 


zmiennej typu Nibble. Rezultat funkcji jest daną typu Tiny. 


Parametr skojarzony ze stałą jest traktowany tak jak lokal- 
na zmienna procedury, której w chwili rozpoczęcia wykonywa- 
nia procedury (dla danego jej wywołania) przypisano daną re- 
prezentowaną przez argument. Z tego względu wymaga się, aby 
Łyp argumentu był zgodny w sensie przypisania z typem para- 
metru. W szczególności oznacza to, że np. parametr może być 
typu real, a argument może być wyrażeniem całkowitym, albo 
parametr może być typu łańcuchowego, a argument może być 


nazwą wektora znakowego. 


Sposób traktowania parametru skojarzonego przez zmienną zale- 
ży od tego, czy skojarzenie ma charakter referencyjny, czy 
lokalizacyjny. W pierwszym przypadku wymaga się, aby typ ar- 


gumentu był identyczny z typem parametru, a parametr trak— 
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tuje się tak, jakby reprezentował argument. Ma to taki sku- 
Łek, Że każda operacja wykonana na parametrze jest realizo— 
wana tak, jakby dotyczyła argumentu. W drugim przypadku nie 
stawia się Żadnych wymagań co do typu argumentu, przyjmując, 
że stanowiąca go nazwa zmiennej jedynie lokalizuje obszar 
pamięci operacyjnej. Powoduje to, że każdorazowe potrakto— 
wanie nazwy parametru jako nazwy zmiennej wymaga zastosowa— 
nia konwertora. Należy zaznaczyć, że o ile w przypadku sko— 
Jjarzenia przez ze stałą, argumentem może być '"dowolne' wyra— 
żenie różne od nazwy zmiennej plikowej, o Łyle w przypadku 
skojarzenia przez zmienną argumentem może być tylko nazwa 


zmiennej. 
Przykłady SRojarzenia parametróv z argumentami 


a Skojarzenite ze stalą 


program Value; 
var 
Fix : byte; 


procedure IncAndO0utCPar : byte); 


begin 
Par := Par + £; 
WritelnCParDJ 
end; 
begin 
Fix := 13; 
IncAndOutCFix); 
WritŁelnCFix) 
end. 


Wykonanie programu powoduje wyprowadzenie liczb 15 i 13. 
Parametr Par jest traktowany jak lokalna zmienna procedury. 
W ramach skojarzenia parametru Par z argumentem Fix, zmien- 


nej tej jest przypisywana dana o wartości 13. 


b Skojarzenie ze zmienną (referencyjne) 


program Ref; 
var 
Fix : byte; 
procedure IncAndO0utCvar Par : byte); 


begin 
Par := Par + ©; 
writelnCParD) 
end; 
begin 
Fix :7 13; 
IncAndO0utC Fi; 
WritelnCFi x 
end. 
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Wykonanie programu powoduje wyprowadzenie liczb 15 i 15. 


Każda operacja na parametrze Par jest zastępowana operacją 


na skojarzonym z nim argumencie Fix. 


c Skojarzenie ze zmienną Clokaltzacy Jne» 


program Loc; 


var 
Fix : byte; 
procedure IncAnd0utCvar Par); 
begin 
byte(ParJ := byteCPar) + 2; 
WritelnCbyteCPar)) 
end; 
begin 
Fix := 13; 
IncAndOutCFi20; 
WritelnCF1xo 
end. 


Wykonanie programu powoduje wyprowadzenie liczb 15 i 15. Każ— 


da operacja na parametrze wymaga zastosowania konwertora. 


d Skojarzenie lokalizacyjne tt zmienna nakTladana 


program Overlay; 


var 
Fix : byte; 
procedure Outlvar Par); 
var 
Loc : byte absolute Par; 
begin 
WritećLoc) 
end; 
begin € main > 
Fix := 13; 
QutCF1>0 
end. 


Wykonanie programu powoduje wyprowadzenie liczby 13. Zmiennzą 


Loc znajduje się w obszarze pamięci zajmowanym przez Fix. 


9.2. Procedury rekurencyjne 


Jeśli wykonanie procedury przebiega w taki sposób, że jest 
ona wywoływana ponownie, jeszcze przed zakończeniem poprzed 
niego wywołania, to procedura jest wywoływana rekurencyjnie są 
Warunkiem koniecznym rekurencyjności jest wystąpienie zam” 
kniętego łańcucha wywołań procedur Cnp. a wywołuje b, b wy wę 
łuje c, c wywołuje a). Łatwo jest jednak skonstruować progn z 
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zawierający zamknięty łańcuch wywołań, którego wykonanie nie 


powoduje rekurencyjnego wywoływania jego procedur. 


Posłużenie się rekurencją nie wymaga specjalnych zabiegów. 
Wynika to stąd, że rekurencyjność jest nieodłączną cechą opi — 
sywanego języka i jego implementacji. Procedury wywoływane 
rekurencyjnie są z zasady bardziej przejrzyste i krótsze niż 
iteracyjne, często jednak zużywają więcej pamięci operacyjnej 


i są wolniejsze. 
Przykłady Rekurenc ja a titerac ja 


Definicja ciągu Fibonacciego: 


a, = a_ = 1 
a = a + a Cdla > 2) 
4 *J-1 * *j-2 J 


a Wersja rekurencyjna 


function FiboCIndex : byte) : longint; 


begin 
if Index € 38 then 
Fibo :=1 
else 
Fibo := FiboCIndex — 10 + FiboCIndex — €3) 
end; 


b Wersja titteracyjna 


function FiboCIndex : byte) : longint; 


var 
i,j.t : longint; 
begin 
1 := 1; 
J := 1; 
for Index := 1 to Index — 1 do begin 
Ł := 1; 
i :=J; 
J:=J*+t 
end; 
Fibo := 1 
end; 


c Wersja analttyczna 
function FiboCIndex : byte»> : longint; 


var 
SqrtŁ5 : real; 
begin 
SqrtŁ5 := SqrtCS5.OJD; 
Sqrt5 := 1 / SqrtS % CPowCC1l + Sqrt5) „ 2, Indexo — 
PowCCi — SqrtSd> z 2, Index; 
Fibo := TruncCSqrt5D + 1 
end; 
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W procedurze posłużono się pomocniczą procedurą Pow, użytą do 


wyznaczenia funkcji potęgowej 


function PowCBase : real;Power : byte) : real; 
begin 
case Power of 
O: Pow := 1; 
1: Pow := Base; 
else 
Pow := Base % Pow(Base,Power — 1) 
end 
end; 


9.3. Procedury obsługi przerwań 


Deklaracje procedur do obsługiwania przerwań zawierają słowo 
kluczowe interrupt. Słowo Ło następuje bezpośrednio po na- 
główku procedury, który musi mieć następującą postać 
procedure NameC(Flags,CS,IP, 
AX,BX,CX,DX,SI,DI,DS,ES,BP : word); 
Poprawne są również nagłówki, w których opuszczono wszystkie 


albo kilka początkowych parametrów. 


Przykłady Naglówki procedur obslugi przerwań 


procedure Inc; 
procedure SumC(AX,BX,CX,DX,SI,DI,DS,ES,BP : wordJ; 
procedure TraceCBP : word); 


Wykonanie procedury obsługi przerwań składa się z zapamięta— 
nia na stosie wszystkich rejestrów procesora Cniezależnie od 
postaci nagłówka, ale w kolejności od AX do BPD, wykonania 
instrukcji procedury, a następnie odtworzenia rejestrów pro- 
cesora w kolejności odwrotnej (tj. od BP do AXJ. Jeśli pod- 
czas wykonywania procedury pewnej zmiennej reprezentowanej 
przez parametr zostanie przypisana dana, to przypisanie to 
będzie dotyczyć tej zmiennej na stosie, w której Jest prze” 


chowywana zawartość rejestru. 


Należy ostrzec przed używaniem w procedurze do obsługi przer — 
wań funkcji systemu DOS oraz procedur bibliotecznych do za” 
rządzania pamięcią operacyjną i wykonywania operacji wejścia 
wyjścia, ponieważ nie są wielobieżne. 


Uwaga: Procedura do obsługi przerwań nie może być procedurą 
zewnętrzną (external) ani kodową (inline), a jej wywołanie 
może być spowodowane tylko przerwaniem systemowym. 
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Przykład Procedura obslugi przerwań 


Wykorzystano fakt, że w systemie DOS, w przybliżeniu co około 
55 milisekund (ściśle 18.2 razy na sekundę) jest generowane 
przerwanie o numerze $1iC. 


program ReactionTi me; 
uses 
Crt ,Dos; 
var 
Ref : pointer; 
Count : word; 
Drop : char; 
<$F+> 


procedure Timer; 

interrupt; 

begin 
IncClcount) 

end; 

L$F-> 


begin € main > 

CirScer; 

WriteC0GD; <€ Ready! > 

GetIntVecl$1C,RefD; 

Randomize; 

DelayC2O000 + RandC 30000) ; 

Count := O; 

if KeyPressed then 

Drop := ReadKey; 

WritŁeC"G); <« Go! > 

Setl ntVecC($1C,©TimerD; 

repeat until KeyPressed; 

SetI ntVecCl$1C,Ref); 

WriteC "Reaction time: », 

Roundl(Count / 18.2 % 1OOO2,' ms") 

end. 


Przytoczony program umożliwia dokonanie pomiaru czasu reak— 
cji. Załadowanie programu jest sygnalizowane sygnałem dźwię— 
kowym. Pomiar czasu reakcji zaczyna się po następnym sygna— 
le. Wynik pomiaru jest podawany w milisekundach. Opisy pro—- 
cedur bibliotecznych GetIntVec, SetIntVec i innych znajdują 
się w rozdziale 12. Ważnym elementem programu jest dyrektywa 
kompilatora <$F+>. Jej użycie zapewnia, że wywołanie proce— 


dury Timer jest realizowane jako dalekie Cpor. rozdział 115). 


8.4. Procedury kodowe 


Ciało procedury kodowej składa się z instrukcji kodowej. 

W instrukcji tej mogą występować identyfikatory zmiennych, 
ale nie mogą występować identyfikatory parametrów. Procedu— 
ry kodowe są reprezentują podprogramy otwarte. Każde wywoł a— 


153 


nie procedury kodowej powoduje wygenerowanie kodu określo- 


nego przez instrukcję kodową. Uzasadnia to sensowność porów- 


nania procedury kodowej do makrodefinicji. 


Przykłady 


a Procedura z instrukcją kodową 


procedure Inc; 
begin 
inlinel 
SA1.-F1x/ < MOV AX,Fix >» 
8407 < INC AX > 


SA3.F1 x < MOV Fix,AX > 
D 


end; 


Wykonanie procedury Inc powoduje inkrementację zmiennej Fix. 


b Procedura Rodowa 


procedure Inc; 

inline( 
S$A1.-Fix/ < MOV AX,Fix > 
$40/ < INC AX > 
SA3.F1x < MOV Fix,AX > 


2; 


Wykonanie procedury Inc powoduje inkrementację zmiennej Fix. 


Mimo iż w procedurach kodowych nie mogą wystąpić jawne odwo- 
łania do ich parametrów, a więc i do skojarzonych z nimi ar” 
gumentów, dostęp do nich jest możliwy poprzez stosy: Stos 


procesora i stos koprocesora arytmetycznego. 


Przykład Program z funkcją kodową 
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program Multiply; 
var 
Result : integer; 
function Mult9OC(p : integer) : integer; 


inlineC 
8557 < push bp > 
$89/$ES/ < mov bp,Sp > 
$8B/$46/802  € mov ax,[bp+2] > 
$89/$C3/ < mov bx,ax > 
$D1 /$EO0/ < shl ax,1 > 
$D1 /<$E0/ < shl ax,1i > 
$D1 /$EO/ < shl ax,i > 
$01 /$DB8/ < add ax,bx > 
$D1 ./$E0/ < shl ax,1 > 
$89/$C3/ < mov bx,ax > 


$D1 „$EO07 < shl ax,1 > 
$D1 „$EO/ <« shl ax,1i > 
$01 „$D8/ < add ax,bx > 
$5D < pop bp > 

>; 

begin 
Result := Mult90C4); 
WriteCResult) 

end. 


Wykonanie programu powoduje wyprowadzenie liczby 360. 


39.5. Reprezentacje wywołań procedur 


Implementacja wywołania procedury jest realizowana w taki 
Sposób, że argumenty są opracowywane od lewej do prawej, a 
opracowanie kończy się umieszczeniem na stosie odpowiedniej 


danej. 


Jeśli skojarzenie parametru i argumentu odbywa się przez 
zmienną, to na stosie jest umieszczana dana typu pointer lo— 
kalizująca zmienną, której nazwą jest argument. Jeśli skoja— 
rzenie odbywa się przez stałą, to następuje utworzenie da— 
nej reprezentowanej przez argument, a następnie poddanie jej 
konwersji na daną o typie parametru. Po wykonaniu tej czyn— 
ności odbywa się przesłanie na stos. Na stos może być prze— 
słana utworzona dana albo wskazanie typu pointer lokalizujące 
zmienną pomocniczą, której przypisano daną. Obowiązują tu 


następujące zasady: 


1 Dane typu single, double, extended i comp są umieszczane 

na stosie koprocesora arytmetycznego Cogranicza to ich liczbę 
do 8). 

2 Dane jednobajtowe są uzupełniane jednym bajtem dodatkowym 

i umieszczane na stosie procesora. Dana znajdująca się w 
bajcie dodatkowym ma wartość nieokreśloną. 

3 Dla danych typu łańcuchowego i mnogościowego oraz danych 
Łypu tablicowego i rekordowego o rozmiarze równym 3 albo 
przekraczającym 4 bajty, na stosie procesora jest umieszczane 
wskazanie danej. 


4 Dane pozostałych typów są umieszczane na stosie procesora. 


Rezultat funkcji jest pozostawiany w rejestrach procesora. 
Rezultat jednobajtowy jest pozostawiany w rejestrze AL, re— 


zultat dwubajtowy jest pozostawiany w rejestrze AX, a rezul-— 
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tat czterobajtowy jest pozostawiany w "rejestrze' DX-AX 
(część bardziej znacząca w DX, część mniej znacząca w AX). 
Rezultat typu real jest pozostawiany w 'rejestrze' DX-BX-AX, 
a rezultat dowolnego z pozostałych typów rzeczywistych jest 
pozostawiany na szczycie stosu koprocesora. W specjalny spo— 


sób jest pozostawiany rezultat łańcuchowy. Jest on przypisy— 


wany specjalnej zmiennej pomocniczej. Wskazanie tej zmiennej 


jest umieszczane na stosie procesora przed odesłaniem na sto- 


sy danych reprezentowanych przez argumenty procedury. 


W celu zapewnienia dostępu do zmiennych lokal nych procedur 
obejmujących daną procedurę, przed każdym wywołaniem procedu— 


ry zagnieżdżonej, jest przesyłany na stos procesora rejestr 
BP. 


Przykład Implementacja procedur zagnieżdżonych 
program z procedurami zagnieżdżonymi 


program Main; 
var 
MainA : integer; 
procedure Uno; 
var 
UnocA : integer; 
procedure Due; 
var 
DueA : integer; 
procedure Tre; 
var 
TIreA : integer; 
begin ( Tre > 


IreA := 3; 
UnoA := TreA + DueA + UnoA 
end; 
begin € Due > 
DueA := 2. 
Tre 
end; 
begin € Uno > 
UnoA := 1; 
Due 
end; 
begin € Main > 
MainA := 0; 
Uno 
end. 


rozwinięcie asemblerowve kodu programu CTurbo 
MAIN. UNO. DUE. TRE: 
cs: 000055 
cs: 0001 89E5 


Debugger Log 


begin € Tre » 
push bp 
Mov bp,sp 
; < Check » 
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MATIN. 
Cs: 
MAIN. 
cs 
CS: 


Cs: 
CS: 
CS: 
CS: 


CS 


cs: 
CS: 
MAIN. 
cs: 


CS 


CS: 
MAIN. 
CS: 
CS: 


MAIN. 
cs 


MATIN. 
CS: 
CS: 

MAIN. 
CS: 
CS: 
cs: 

MAIN. 
cs: 
cs: 


MAIN. 
cs: 
MATIN. 
cs: 
cs: 
MATN. 
CS: 
CS: 
ES: 


MATN. 


cs: 
cs: 
MATN. 
CS: 
cs: 
MAIN. 
cs: 
MATN. 


Cs: 
CS: 


14: TreA := 3; 

OOOE C746FE0300 mov 
15: UnocA := TreA + DueA + 
:0013 8B46FE MOV 
0016 8B7E04 mov 
0019 360345FE add 
001D 8B7E04 mov 
O020 368B7DO4 mov 
0024 360345FE add 
: 0028 8B7E04 mov 
OO2B 368B7DO4 MOV 
OO2F 368945FE MOV 
16: end; 

0033 BSEC MOV 
:0035 SD pop 
0036 C20200 ret 
UNO. DUE: begin € Due > 
0039 55 push 
OO3A S8SES5 MOV 
18: DueA := 8; 

:0047 C746FEO200 MOV 
19: Tre; 

004C 55 push 
O004D EB8BOFF call 
20: end; 

OO5O S8SEC mov 
O0O52 S5D pop 
0053 C20200 ret 
UNO: begin Ć Uno > 

0056 55 push 
0057 8SES MOV 
22: UnoA := 1; 

0064 C746FE01 OO MOV 
23: Due; 

O068 55 push 
OO6A EB8CCFF call 
24: end; 

OO6D SSEC MOV 
OO6F 5D pop 
0070 C3 ret 
25: begin Ć Main > 

0076 55 push 
0077 89E5 MOV 
26: MainA := O; 

00798 31CO XOTr 
007B A33C0O MOV 
27: Uno; 

007E EB8DSFF call 
28: end 

OO8i SSEC MOV 
0083 SD pop 


word ptr (bp-02] „,OO0O3 
UnoA; 

ax, [bp-O02] 

di ,[bp+04] 
aX,SS: [d1i-O2] 
di,[bp+04] 

di ,Ss: (di +04] 
ax,SS: [di -O02] 
di ,[bp+04] 

di ,ss: [di +04] 
ss:[(di-02],ax 


<« Check > 


word ptr (bp-02] „,OOO02 


bp 
MAIN. UNO. DUE. TRE 


<« Check > 
word ptr [bp-O02] „OOO1 


bp 
MAIN. UNO. DUE 


sp,bp 
bp 


<« Prolog > 


ax,ax 
(MAIN. MAINAJ „ax 


MATIN. UNO 


< Epilog >» 
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10. MODUŁY 


Moduł jest zestawem deklaracji: deklaracji typów, symboli, 
zmiennych i procedur. Może zawierać część wykonawczą, której 
instrukcje są wykonywane przed podjęciem wykonywania progra” 
mu. Poszczególne moduły biblioteczne są kompilowane rozłącz” 
nie z programem i innymi modułami. Umożliwia to tworzenie 
kolekcji modułów skompilowanych, które bez potrzeby ponownego 
kompilowania mogą być włączane do różnych programów wykony” 


walnych. 


Ponadto jest możliwe utworzenie biblioteki modułów standar- 
dowych, łatwo dostępnej dzięki temu, iż jest ładowana do 
pamięci operacyjnej wraz z kompilatorem. Biblioteka ta może 
być tworzona za pomocą programu usługowego i zawiera najczęś” 
ciej takie moduły standardowe jak System, Crt, Printer, DoS. 


Struktura modułu nie odbiega istotnie od struktury programu. 
Podobnie jak program, moduł składa się z nagłówka, deklara” 
cji 1 części wykonawczej zakończonej kropką. W odróżnieniu 

od programu, część deklaracyjna modułu jest rozbita na część 
publiczną t prywatną. Część publiczna charakteryzuje się tym 
że wszystkie zadeklarowane w niej obiekty są znane poza mo” 
dułem. Natomiast obiekty zadeklarowane w części prywatnej Sa 
znane tylko w obrębie modułu. Z podziału tego wynika jedna 
bardzo ważna właściwość modułów, a mianowicie: jeśli pewien 
moduł A korzysta z zasobów modułu B, to po skompilowaniu naj” 


pierw modułu B, a potem modułu A i ewentualnym dokonaniu 
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zmian w części prywatnej modułu B, nie trzeba już kompilować 
modułu A. O implementacji mającej tę właściwość mówi się, że 


zapewnia Romptilację rozlączną. 


Przykład Program odwolujący się do modulów 


program Main; unit Lib; 
uses interface 
Lib,Crt; procedure SubCvar Par : byteD; 
var implementation 
Fix : byte; procedure Sub; 
begin begin 
CirSer; Par := Par + 7 
Fix :=>6; end; 
SubCFi1ix0; end. 
WriteCFi1x0 
end. 


Program Main zawiera wyszczególnienie modułów 


uses 
Lib, Crt; 
w którym deklaruje zamiar posłużenia się przytoczonym wcześ— 
niej modułem Lib oraz modułem bibliotecznym Crt Czawartym 
w bibliotece modułów TURBO. IPL>. Moduł Lib składa się z częś— 
ci publicznej 
interface 
procedure SubCvar Par : byte); 
w której podano zewnętrzne właściwości procedury Sub oraz z 
części prywatnej 
implementation 
procedure Sub; 
begin 
Par := Par + 7 


end; 
end. 


zawierającej szczegóły implementacyjne tej procedury. 


W ogólnym przypadku deklaracja modułu ma postać 


unit Name; 
interface 
uses ModList; 
dec tł 
implementation 
uses ModList; 
bloch. 
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w której Name jest identyfikatorem modułu, każde ModLtst jest 


listą identyfikatorów modułów, decl jest zestawem deklaracji 


obiektów eksportowanych przez moduł Name, a block jest 


blokiem. 


Deklaracje decl mogą być deklaracjami stałych, typów, zmien- 
nych i procedur. Deklaracje procedur mogą być 

e deklaracjami nagłówkowymi. 

e deklaracjami definicyjnymi procedur kodowych. 


Deklaracje nagłówkowe są deklaracjami zapowiadającymi z któ- 
rych usunięto napis 

forward; 
Należy nadmienić, że użycie słowa kluczowego forward jest 


zabronione również w części prywatej modułu. 


Jeśli w części publicznej modułu występuje pewna deklaracja 
nagłówkowa, to w części prywatnej modułu musi wystąpić od- 


powiadająca jej deklaracja uzupełniająca. 


Jeśli blok stanowiący część wykonawczą modułu składa się wy” 
łącznie z jednostek leksykalnych begin i end, to słowo klu- 
czowe begin może być pominięte. 


Dejftnicje 
modul: 


naglówek-modulu część-publiczna-modulu 
część -prywatna-modulu . 


naglówek-moduTu: 
unit nazwa-modulu ; 


nazva-modulu: 
identyfikator 


część publ iczna-modulu: 
interface wyszczególnienie-modulów 
część -deklaracyjJna-modutlu 
interface część-deklaracyjJna-moduTu 


część-prywatna-moduTu: 
implementation dlok . 


część -deklaracy Jjna-moduTu: 
deklarac je-moduTu 
część-deklaracy jna-moduTu deklarac Jje-moduTu 


deklarac je-moduTu: 
deklarac je-etyktiet 
deklarac je-typów 
deklarac je-zmiennych-niezatnic jowanych 
deklarac je-zmiennych-zatnic jowanych-ti-symboLt 
deklarac je-nagTówvkowe 
deklarac je-kodove 
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dekRLarac je-naglówkowe: 
dekRlarac ja-naglówkowa 
deRlarac je-naglówkowe deklarac ja-naglówkowa 


deklarac ja-naglówkowa: 
naglówek-procedury 


dektarac je-—kodowe: 
deklarac ja-Rodowa 
deklarac je-kodove deklarac Jja-Rodowa 


deklarac ja-kodowa: 
naglówek-procedury tnstrukc ja-kodova 


Przykład Deklaracje modulowe 


unit myModule; 
interface 


var 
Fix : integer; 


function Count : word; 
procedure Addl(var Par : integer); 
implementation 
var 
Loc : word; 


function Count; 
begin 

Count := Loc 
end; 


procedure AddCvar Par : integer); 

begin 
Par 
Loc 

end; 


Par + Fix; 
Loc + 1 


begin 
Fix := 13; 
Loc := 
end. 


W części publicznej modułu myModule zadeklarowano zmienną 
Fix, funkcję Count i procedurę Add. Każdy z tych obiektów 

i tylko one będą dostępne spoza modułu. W części prywatnej 
zadeklarowano zmienną Loc oraz podano deklaracje definiują— 
ce procedur Count i Add. Deklarację definiującą funkcji 
Count uproszczono, usuwając z niej dwukropek i określenie 


typu rezultatu. 


Podział modułu na część publiczną i prywatną jest wcieleniem 
idei udostępnienia użytkownikom modułu Cprogramom i innym 
modułom tylko tych obiektów, które są zadeklarowane w części 
publicznej. Jeśli obiektami są procedury to umożliwia to 


dokonanie ewentualnych zmian tych obiektów bez konieczności 
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ponownego kompilowania użytkowników danego modułu. Dzięki 
takiej koncepcji, ponowne skompilowanie modułu będzie ko- 
nieczne jedynie wtedy, gdy nastąpi zmiana pewnego obiektu w 
części publicznej tego modułu. Wynika stąd w szczególności, 
że jeśli w części publicznej modułu jest zadeklarowana pewna 
procedura która nie jest kodowa, Ło nawet całkowita zmiana 
jej deklaracji znajdującej się w części prywatnej modułu 
Cpod warunkiem, że nie będzie dotyczyć nagłówka) nie spowo- 
duje konieczności ponownego skompilowania użytkownika modułu 


(chyba, że jest nim moduł główny). 


Jeśli program albo moduł korzysta z innych modułów, to ich 
nazwy muszą być wymienione w wyszczególnieniu modułów. Wysz- 
czególnienie modułów nie może zawierać nazwy modułu System. 
Wynika to stąd, iż domniemywa się, że nazwa ta jest wymie- 
niona jako pierwsza na liście nazw modułów. Jeśli lista taka 
nie występuje, ponieważ nie użyto wyszczególnienia modułów, 
to domniemywa się wyszczególnienie 


uses System; 


Tym samym można przyjąć, że każdy program oraz moduł Cz wy- 
Jątkiem modułu System zawiera wyszczególnienie modułów. 


W ogólnym przypadku, wyszczególnienie modułów zawiera listę 
nazw modułów. Z każdą nazwą tej listy jest związany zakres 
dostępności obiektów zadeklarowanych w części publicznej 
danego modułu. Zakres ten obejmuje zakres związany z następ” 
nym elementem listy. Zakres związany z ostatnim elementem 
listy obejmuje zakres dostępności obiektów zadekl arowanych 
w bloku programu. Z tego względu, kolejność elementów listy 
jest istotna. Ponieważ w hierarchii zakresów, wyznaczonej 
przez uporządkowanie elementów listy, program zajmuje osta"” 
tnią pozycję, odwołanie do pewnej nazwy zadeklarowanej w 
programie 1 w module jest traktowane tak, jak odwołanie do 


nazwy zadeklarowanej w programie. 


Jeśli z pewnych względów jest przydatne odwołanie się do tej 
samej nazwy występującej w różnych modułach, albo do nazwy 
której deklaracja została przesłonięta, to należy ją kwali- 
fikować nazwą modułu. Kwalifikator taki składa się z nazwy 
modułu i znaku . Ckropko). 
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Przykład Zakresy it zasięgi deklaracji 


program Jan; 


uses 
Ewa ,lza; 
const 
Age : byte = 45; 
begin 
WritelnCEwa. Age — Iza. Age); 
Writeć Age) 
end. 
CIE————————— 
unit Ewa; 
interface 
const 
Age : byte = 39; 
implementation 
end. 
—————————— +00 
C€367————————— 
unit Iza; 
interface 
const 
Age : byte = 4; 
implementation 
end. 
u—u==m—=——=—=m—=——m— 1) 


Wykonanie programu Ćw komentarzach przytoczono moduły Ewa 

i Iza) powoduje wyprowadzenie liczb 35 1 45. Gdyby z programu 
usunięto deklarację zmiennej Age, to nastąpiłoby wyprowadze— 
nie liczb 35 1 4. Wynika to stąd, że zakres nazw modułu Ewa 
obejmuje zakres nazw modułu Iza, a zatem nazwa Age bez kwali— 


fikacji dotyczyłaby modułu Iza. 


Ponieważ część prywatna modułu zawiera blok, a blok zawiera 
część wykonawczą, z każdym modułem jest związana pewna in— 

strukcja grupująca Cjak już wyjaśniono, instrukcja ta może 

występować niejawnie, uproszczona do słowa kluczowego end.. 
Bezpośrednio przed podjęciem wykonywania programu, instru— 

kcje grupujące modułów są wykonywane w kolejności w Jakiej 

nazwy modułów wystąpiły w Cjawnym albo niejawnyno wyszcze- 

gólnieniu modułów programu. Umożliwia to wykonanie pewnych 

czynności inicjujących. 


Należy zaznaczyć, że jeśli pewien moduł MI zawiera odwołanie 
do modułu M2, to czynności inicjujące modułu Mi są poprze— 
dzone czynnościami inicjującymi modułu M2. Każdy zestaw czyn- 
ności inicjujących jest wykonywany tylko jeden raz. 
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Przykład Wykonywanie czynności tntcju jących 


program Start; 
uses 
First, Second; 
begin 
WriteCCommon. F1X0 
end. 


unit First; 
interface 
uses 

Common; 
implementation 
begin 

Writeln( "First"; 

Common.Fix := +13; 
end. 


unit Second; 
interface 
uses 
Common; 
implementation 
begin 
WritelnC'Second'); 
Common. Fix = -13 


end. 
———=——m—=—=— 3) 
(37—————————— 
unit Common; 
interface 
var 

Fix : integer; 
implementation 
begin 

WritelnC' Common '3J 
end. 
z waze R) 


Wykonanie programu powoduje wyprowadzenie następujących napi — 
sów: Common, First, Second, -13. Gdyby wyszczególnieniu modu— 
łów nadano postać 
uses 
Second, First, Common; 
to wykonanie programu spowodowałoby wyprowadzenie następuja" 
cych napisów: Common, Second, First, 13. 


Wyszczególnienie modułów może występować zarówno w części PU— 
blicznej Jak i w części prywatnej modułu. Jeśli zestaw wysz— 
czególnień jest taki, że moduł M1 odwołuje się poprzez swoje 
wyszczególnienie Cbezpośrednio albo pośrednio) do modułu M2. 
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Ło jest to dozwolone tylko wtedy, gdy w zamkniętym łańcuchu 
wyszczególnień nie występują wyszczególnienia pochodzące z 
części publicznej modułu. Nic jednak nie stoi na przeszkodzie 
tworzenia zamkniętych łańuchów wyszczególnień pochodzących 
wyłącznie z części prywatnych modułów. 


Przykład Zamknięty lańcuch wyszczególnień 


program 
program Iza; 
uses 
Ewa ,Jan; 
begin 
Jan. GreetCl true); 
Ewa. Greet( true) 
end. 


modut 
unit Ewa; 
interface 
procedure GreetCFlag : boolean); 
implementation 
uses Jan; 
procedure Greet; 
begin 
if not Flag then 
WritelnC'Ewa'D 
else begin 
WriteCl 'Greetings from '); 
Jan. GreetC(false) 
end 
end; 
end. 


modul 
unit Jan; 
interface 
procedure GreetCFlag : boolean); 
implementation 
uses Ewa; 
procedure Greet; 
begin 
if not Flag then 
WritelnC'Jan') 
else begin 
WriteC "Greetings from 'D; 
Ewa. GreetC(false. 
end 
end; 
end. 


Wykonanie programu powoduje wyprowadzenie napisu 


Greetings from Ewa 


Greetings from Jan 
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Ponieważ moduł Jan zawiera odwołanie do modułu Ewa, a moduł 
Ewa zawiera odwołanie do modułu Jan, nie jest możliwe zasto- 
sowanie odrębnej kompilacji tych modułów. Przytoczony program 


może być kompilowany tylko w całości. 


Zasady kompilowania modułów nie odbiegają od zasad kompi lowa— 
nia programów. Po przygotowaniu tekstu modułu należy poddać 
go kompilacji. Jeśli kompilacja zakończy się sukcesem, to w 
katalogu modułów zostanie umieszczony zbiór z rozszerzeniem 
.„.TPU . Część główna nazwy tego zbioru będzie identyczna z 
nazwą modułu, a jeśli nazwa modułu liczy więcej niż 8 znaków, 
to będzie identyczna z jej pierwszymi ośmioma znakami. Auto- 
matyczny wybór nazwy zbioru zawierającego skompilowany moduł 
może być anulowany za pomocą dyrektywy kompilatora <$U Name», 
w której Name jest nazwą zbioru. Jeśli taka dyrektywa poprze- 
dza nazwę modułu (występującą po słowie kluczowym unit albo 
po słowie kluczowym uses), to uważa się, że skompilowany mo- 
duł ma zostać umieszczony albo że znajduje się w zbiorze o 


podanej nazwie, zazwyczaj różnej od nazwy modułu. 


Przykład Nazwy modutlów a nazwy zbiorów 


unit <$U JANB> myUnit; 
interface 
uses 

4$U EWAB> herUnit; 
procedure Out; 
implementation 
procedure Out; 
begin 

Wri teCherUni t. Her Age) 
end; 
end. 


Skomplilowany moduł myUnit zostanie umieszczony w zbiorze 


JANB. TPU. Podczas konsolidowania modułu myUnit, moduł herUnit 
będzie poszukiwany w zbiorze EWA. TPU. 


Częściej używane moduły wynikowe są zwykle grupowane w 
bibliotekę modułów TURBO. TPL. Biblioteka ta jest ładowana 
do pamięci operacyjnej wraz z kompilatorem i przeszukiwana 
w pierwszej kolejności. Oznacza Ło, że jeśli na dysku znaj- 
duje się zbiór Name. TPU, a w programie albo w module wy— 
stępuje odwołanie do modułu Name znajdującego się również 
w TURBO. IPL, to uznaje się, że odwołanie dotyczy modułu 
znajdującego Się w bibliotece modułów. 
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Biblioteka modułów może być formowana za pomocą programu 
usługowego IPUMOVER.EXE. Zazwyczaj składa się ona z nastę— 
pujących modułów: 


System — biblioteka procedur standardowych 

Crt — biblioteka procedur zarządzających konsolą 

Printer — biblioteka procedur zarządzających drukarką 

Dos — biblioteka procedur odwołujących się do 
systemu DOS 

Graph — biblioteka graficzna 


Części publiczne wymienionych modułów przytoczono w Dodat— 
ku D. Pozostała część niniejszego rozdziału jest poświęcona 
krótkiemu omówieniu modułów standardowych i zawartych w nich 


deklaracji. 


10.1. Moduł System 


Moduł System zawiera m.in. deklaracje procedur arytme— 
tycznych i łańcuchowych, procedur zarządzania pamięcią 
operacyjną i procedur wejścia-wyjścia. Jeśli kompilacja 
odbywa się w zakresie jawnej albo domniemanej dyrektywy 
<$N->, to rezultaty funkcji udostępniających dane rzeczy— 
wiste są typu real. W zakresie dyrektywy C$N+> są natomiast 
typu extended. W module System są ponadto zadeklarowane 
zmienne identyfikujące pliki standardowe: wejściowy CInput) 

i wyjściowy COutput) oraz zmienna RandSeed przeznaczona do 
przechowywania danej typu longint, której wartość jest pierw- 


szym elementem ciągu liczb pseudolosowych. 


10.2. Moduł Crt 


Moduł Crt zawiera m. in. procedury do współpracy z ekranem 
i klawiaturą konsoli, procedury do tworzenia okienek teks— 
towych, procedury do określania koloru i tła wyprowadzanych 
znaków oraz procedury do generowania dźwięku. Poza nimi 


moduł zawiera szereg deklaracji zmiennych. 


Zmienna CheckBreak 


Deklaracja var CheckBreak : boolean; € domniemanie: true » 
Opis Jeśli CheckBreak = true, to naciśnięcie klawisza 


Ctrl-Break powoduje zaniechanie wykonywania pro-— 
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gramu (nastąpi to podczas najbliższej operacji 
wyprowadzania na ekran). Jeśli CheckBreak = 
false, Ło naciśnięcie klawisza Ctrl-Break nie 


wywołuje żadnego skutku. 


Zmienna CheckEo/f 


Deklaracja var CheckEof : boolean; € domniemanie: false >» 


Opis 


Jeśli CheckEof = true, to naciśnięcie klawisza 
Ctrl-Z powoduje domniemanie, że plik skojarzony 
z klawiaturą znajduje się w pozycji końcowej. 
Jeśli CheckEof = false, Ło naciśnięcie klawisza 
Ctrl-Z nie wywołuje żadnego skutku. 


Zmienna CheckSnov 


Deklaracja 
Opis 


var CheckSnow : boolean; € domniemanie: true » 
Jeśli CheckSnow = true, to bezpośredni zapis do 
pamięci ekranu będzie odbywać się jedynie podczas 
poziomego powrotu wiązki elektronów. Dzięki temu 
na ekranie nie wystąpi efekt "śnieżenia'. Jeśli 
CheckSnow = false, to zapis będzie dokonywany 

w dowolnym momencie. W przypadku kart EGA i Her— 
cules (dla których Śśnieżenie nigdy nie występuje) 


może to spowodować przyśpieszenie. wyprowadzania 
na ekran. 


Zmienna DtrectVtdeo 


Deklaracja 
Opis 


var DirectVideo : boolean; € domniemanie: true >» 
Jeśli DirectVideo = true, to wyprowadzanie znaków 
na ekran będzie się odbywać bezpośrednio do pa- 

mięci ekranu, a nie przez BIOS. Jeśli DirectVideo 


= false, to wyprowadzanie na ekran będzie znacz— 
nie spowolnione. 


Zmienna TextAttr 


Deklaracja var TextAttr : byte: € domniemanie: $07 > 


Opis 
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Zmienna TextAttr składa się z trzech pól bito— 
wych: Blink C1 bit — migotanie), Background 

C3 bity — tło) i Foreground (4 bity — pierwszy 
plan). Kolejne pola określają kolor znaku i tła 


oraz to, czy znak będzie migotać. Wymienione 
pola bitowe są brane pod uwagę podczas każdego 


wyprowadzania znaku na ekran. 


Zmienna WinaMin 


Deklaracja 
Opis 


var WindMin : word; 

Zmienna WindMin określa współrzędne lewego-—górne— 
go narożnika bieżącego okienka tekstowego. Bajt 
mniej znaczący zawiera Cpomniejszoną o 10 współ — 
rzędną X, a bajt bardziej znaczący zawiera C(po— 


mniejszoną o 10 współrzędną Y. 


Zmienna WinaMax 


Deklaracja 
Opi s 


var WindMax : word; 

Zmienna WindMax określa współrzędne prawego"dol — 
nego narożnika bieżącego okienka tekstowego. Bajt 
mniej znaczący zawiera (pomniejszoną o 10 współ— 
rzędną X, a bajt bardziej znaczący zawiera Cpo- 


mniejszoną o 12 współrzędną Y. 


Zmienna LastMocde 


Deklaracja 
Opis 


var LastMode : word; 

Zmienna określa ten tryb tekstowy, który obowią— 
zywał przed ostatnim wykonaniem procedury lText— 
Mode Cprzed pierwszym wykonaniem tej procedury 
określa ona tryb jaki obowiązywał przed podjęciem 
wykonywania programu). 


Przykład Wyprowadzenie tekstu na ekran 


program Hello; 


uses 
Grt; 
begin 


CirScer; 
WriteCl "Hello, I am JanB'D 


end. 


10.3. Moduł Printer 


Moduł Printer zawiera deklarację zmiennej plikowej Lst iden- 
tyfikującej plik tekstowy skojarzony z drukarką. 
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Przykład Wyprowadzenie tekstu na drukarkę 


program Hello; 


uses 
Printer; 


begin 
Writeln(Lst,'Hello, I am JanB*'D 
end. 


10.4. Moduł Dos 


Moduł Dos zawiera procedury do wykonywania operacji syste— 
mowych, takich jak przeszukiwanie katalogów, określanie daty 
i czasu, określanie pojemności dysków i wykonywanie funkcji 
systemu Dos. Zawiera również deklarację zmiennej DosError, 
której po wykonaniu pewnych procedur jest przypisywana dana 
typu integer. Jeśli dana ta ma wartość równą O, to uważa się, 
że wykonanie procedury było pomyślne. W przeciwnym razie war- 
tość danej określa rodzaj błędu. 


Przykład Wyprowadzenie tekstu na ekran 


program Hello; 


uses 
Crt ,Dos; 


var 
Regs : Registers; 


const 
Name : stringl17] = "Hello, I am JanB$'; 


begin 
ClrScer; 
Regs.DS : 
Regs. DX := OfsCName) + 1; 
Regs.AH := $9; 
MsDosCRegs); € Hello, I am JanB > 
end. 


DSeg; 


10.5. Moduł Graph 


Moduł Graph zawiera obszerną bibliotekę procedur graficz— 
nych. Wykonanie programu odwołującego się do modułu Graph 
wymaga wystąpienia w środowisku tego programu zbioru zawiera- 
jącego sterownik graficzny odpowiadający użytej karcie gra- 
ficznej oraz ewentualnie zbiorów zawierających definicje 


czcionek kreskowych. 
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Załadowanie sterownika do pamięci operacyjnej zapewnia pro— 
cedura InitGraph. Jeśli procedura ta zostanie wywołana 

z pierwszym argumentem Detect, to rozpoznanie Środowiska 
graficznego Ckarty) będzie automatyczne. W przeciwnym razie 
pierwszy argument powinien określać numer sterownika, a drugi 
argument powinien określać numer trybu pracy. Optymalny dobór 
tych numerów zapewnia procedura DetectOraph. Po wykonaniu 
procedury InitGraph system znajduje się w trybie graficz— 
nym. Powrót do trybu tekstowego zapewnia m. in. procedura 


CloseGraph. 


Przykład Wykreślenie tekstu gotykiem 


program Hello; 


uses 
Crt,Graph; 


var 
Driver ,Mode : integer; 


begin 
Driver := Detect; 
InitGraphCDr iver ,Mode, ' "2; 
SetTextStŁyleCGothicFont ,HorizDir ,5); 
Out TextC "Hello, I am JanB'D; 
repeat until KeyPressed; 
CloseGraph 

end. 


10.6. Moduł Overlay 


Moduł Overlay zawiera procedury do zarządzania nakładkami. 
Zawiera on również deklaracje symboli umożliwiających stwier — 
dzenie, .czy wykonanie tych procedur zakończyło się w sposób 
pomyślny. Szczegółowy opis modułu Overlay znajduje się w 
rozdziale 12.6. 


10.7. Moduły Graph3 i Turbo3 


Moduły Graph3 i Turbo3 zawierają procedury, które umożli — 
wiają wykonywanie Coczywiście po drobnych przeróbkach pro— 
gramów uruchomionych w wersji 3.0. Dotyczy to w szczególności 
programów graficznych, a zwłaszcza programów posługujących 


się grafiką żólwtitową. 


Nie wdając się w opis zasad przekształcania programów urucho- 


mionych w wersji 3.0 w programy zgodne z wymaganiami wersji 
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4.0 należy podać, że jedną z istotnych przeróbek jest usunię- 
cie dyrektywy włączenia zbioru <$1 Graph.p > i zastąpienie 
jej wyszczegól :ieniem modułów z nazwą modułu Graph3. 


Przykład Wykreślenie tekstu w trybie dużej rozdzielczości 


program Hello; 
uses 
Graph3, Crt; 
begin 
Hi Res; 
WriteC'Hello, I am JanB'J; 
TextModeC( LastMode) 
end. 


11. DYREKTYWY 


Jeśli po znaku rozpoczynającym komentarz występuje znak 

$ Cdolar), to komentarz jest dyrektywą. Dyrektywy dzielą się 
na: przełączające, parametryczne i kompilacji warunkowej. 
Umożliwiają one m.in.: określanie sposobu generowania kodu 
wynikowego i nazw zbiorów specjalnego przeznaczenia oraz 


selektywne kompilowanie fragmentów tekstu źródłowego. 


11.1. Dyrektywy przełączające 

Dyrektywa przełączjąca ma postać 
L$P+> 

albo 


L$p-> 


Użyta w pierwszej postaci powoduje włączenie, a użyta w 
drugiej wyłączenie przełącznika p. Stan przełącznika jest 


brany pod uwagę podczas generowania kodu wynikowego. 


Dyrektywy przełączające, nazywane w Skrócie przelącznikRamt, 
dzielą się na globalne i lokalne. Dyrektywy globalne muszą 
wystąpić przed częścią deklaracyjną programu albo modułu. 
Ich zakresem jest odpowiednio: program albo moduł. Dyrektywy 
lokalne mogą wystąpić w dowolnym miejscu programu albo modu— 
łu. Zakresem każdej z nich jest fragment tekstu źródł owego 
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między jej kolejnymi wystąpieniami. Plerwsze wystąpienie dy- 
rektywy lokalnej jest niejawne i wynika z przyjętego domnie- 
mania. Dyrektywy przełączające mogą być łączone w listy. W 
szczególności ciąg dyrektyw 


<S$B+> C$I-> <$R+> 


może być przedstawiony prościej jako dyrektywa 


($B+,I -,R+>. 


Przykład 


program Directives; 
€$D+> 
const 

Fix : integer = 13; 
begin 

WriteCFixo; 

SI -> 

WriteCFi>O 

(SI +> 


if IOResult <> O then Halt; 
WriteC' Done! ') 
end. 


Pierwsza z użytych dyrektyw jest globalna, a dwie następne są 
lokalne. Pierwsza instrukcja procedury Write należy do zakre- 


su domniemanej dyrektywy <$I+>, a druga do zakresu jawnej 
dyrektywy <$I-. 
Przelącznik A CAlign Dat 


Domniemanie A+ 
Typ Lokalny 
Opis 


A+ powoduje, że zmienne są rozmieszczane na gra- 
nicy Słowa. 


A- powoduje, że są rozmieszczane na granicy baj- 
Łu. 
Przelącznik B CBoolean Evaluation) 


Domniemanie B- 
Typ Lokalny 


Opis B- powoduje opracowywanie tylko niezbędnych 
części wyrażeń logicznych Cod lewej do prawej). 


B+ powoduje opracowywanie całych takich wyrażeń. 
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Przelącznik D CDebug InformattonoD 


Domniemanie D+ 

Typ Globalny 

Opis D+ powoduje że są generowane informacje warunku— 
jące symboliczne uruchamianie programu wyniko— 


wego. 


D- nie powoduje generowania takich informacji. 


Przelącznik E CEmulattonD 


Domniemanie E+ 


Typ Globalny 
Opis E+ powoduje emulowanie operacji zmiennopozycyj— 
nych. 


E- powoduje, że operacje zmiennopozycyjne są wy- 


konywane za pomocą koprocesora 808780287. 


Przelącznik E CForce FAR Calls. 


Domniemanie F-— 

Typ Lokalny 

Opis F- powoduje, że wywołania procedur zadeklaro— 
wanych w części publicznej modułu są traktowane 
jako dalekie, a pozostałe wywołania są traktowane 


jako bliskie. 


F+ powoduje, że wywołania są traktowane jako da- 


lekie. 


Przelącznik I CInput-/Output Checking» 


Domniemanie I+ 
Typ Lokalny 
Opis I+ powoduje, że niepomyślne wykonanie procedury 


wejścia-—wyjścia kończy wykonywanie programu. 
I- powoduje, że wykonywanie programu jest konty— 
nuowane. 

Przelącznik L CLocal Symbol Informattono 


Domniemanie L+ 
Typ Globalny 


Opis L+ powoduje, że są generowane informacje 
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umożliwiające posługiwanie się podczas urucha- 


miania programu symbolami lokalnymi. 


L- nie powoduje generowania takich informacji. 


Przelącznik N C(Numertc Processtng» 


Domniemanie 


lyp 
Opis 


N- 

Globalny 

N- powoduje, że operacje zmiennopozycyjne mogą 
dotyczyć tylko danych Łypu real i że są wyko- 


nywane bez użycia koprocesora arytmetycznego. 


N+ powoduje udostępnienie dodatkowych typów 
zmiennopozycyjnych i wykonywanie operacji na da- 


nych tych typów za pomocą koprocesora albo emu- 


latora. 


Przelączntik O (Overlay Code Generation) 


Domniemanie 
Typ 
Opis 


O-— 
Globalny 
O- powoduje uniemożliwienie nakładkowania modułu 


w którym występuje dany przełącznik. 


O+ powoduje umożliwienie nakładkowania. 


Przelącznik R CRange Checking> 


Domniemanie 
Typ 
Opis 


R-- 
Lokalny 
R- powoduje, że nie przeprowadza się kontroli 


indeksów i wykonalności przypisań danych 
porządkowych. 


R+ powoduje przeprowadzanie wymienionych 
kontroli. 


Przelącznik S C(Stack-Over/flowv Checking 


Domniemanie 
Typ 
Opis 
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S+ 

Lokalny 

S+ powoduje kontrolowanie przed każdym wywoła 
niem procedury, czy wystarcza miejsca na 
stosie. W przypadku stwierdzenia braku miejsca 


wykonywanie programu jest przerywane. 


S- powoduje wyłączenie kontroli. 


Przelącznik Y (Var-Strtng Checking> 


Domniemanie V+ 

Typ Lokalny 

Opis V+ powoduje sprawdzanie zgodności typu argumen— 
Łów i parametrów łańcuchowych kojarzonych przez 


wskazanie. 


V- nie powoduje sprawdzania zgodności. 


Dyrektywy parametryczne 


Dyrektywa parametryczna ma postać 
L$p Name» 
albo 
(SM s,mtin, max> 
Użyta w pierwszej postaci zawiera jednoliterowy identyfika-— 
tor p i nazwę zbioru Name. Użyta w drugiej określa roz— 


miar stosu (s) oraz minimalny (min) i maksymalny (max) roz— 
miar sterty. 


Dyrektywa I 


Definicja  <S$I Name» 


Typ Lokalny 

Opis Włączenie w miejscu wystąpienia dyrektywy zawar — 
tości zbioru Name. 

Uwagi Dyrektywa nie może wystąpić w obrębie części wyko- 


nawczej. Dyrektywy I mogą być zagnieżdżone. Dom— 


niemanym rozszerzeniem nazwy Name jest .PAS. 


Dyrektywa L 


Definicja  <$L Name» 

Typ Lokalny 

Opis Określenie nazwy zbioru z rozszerzeniem .OBJ, 
w którym znajdują się podprogramy zewnętrzne 
(słowo kluczowe external. 


Uwagi Domniemanym rozszerzeniem nazwy Name jest .OBJ. 
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Dyrektywa M 


Definicja <$M Stack,Min, Max> 

Typ Globalny 

Opis Określenie rozmiaru stosu (Śtacko i zakresu 
rozmiarów sterty CMin.. Mao. 

Uwagi Rozmiar stosu musi być liczbą z przedziału 
1024..65520, a zakres rozmiarów sterty musi 
być tak dobrany, aby 

O C= Min <= Max <= 655360 
Domniemaną dyrektywą M jest 
($M 16384,0, 655360 


11.2. Dyrektywy kompilacji warunkowej 


W celu wyjaśnienia mechanizmu kompilacji warunkowej wygodnie 
jest posłużyć się pojęciem preprocesora. Preprocesor jest 
filtrem, który przekształca tekst źródłowy w tekst wynikowy. 
Tekst źródłowy składa się z napisów źródłowych i dyrektyw 
kompilacji warunkowej. Zarówno napisy jak i dyrektywy podle- 
gają interpretacji. Zinterpretowanie napisu źródłowego powo- 
duje wygenerowanie identycznego z nim napisu wynikowego. Zin- 
terpretowanie dyrektywy kompilacji warunkowej powoduje wyko” 
nanie czynności określonych w jej opisie. Po zakończeniu 
interpretacji powstaje tekst wynikowy, w którym nie ma już 
dyrektyw kompilacji warunkowej. Ponieważ tekst ten jest kie- 
rowany do kompilacji, powinien mieć postać poprawnego progra” 
mu źródłowego, ewentualnie zawierającego dyrektywy przełącza” 


jące i parametryczne. 


Dyrektywy bezwarunkowe 


Dyrektywami bezwarunkowymi są DEFINE i UNDEF. Dyrektywa 
DEFINE umożliwia zdefiniowanie, a dyrektywa UNDEF anulowanie 
definicji symbolu preprocesora. Symbolem preprocesora może 
być dowolny identyfikator. Dopuszcza się definiowanie symbolu 
już zdefiniowanego; ignoruje się anulowanie definicji symbolu 
nie zdefiniowanego. 
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Przykłady Dyrektywy bezwarunkowe 


<$DEFINE Debug» 
C*$DEFINE Ansi 02) 
<$UNDEF Debug» 


Dyrektywy warunkowe 
Najczęściej używaną dyrektywą warunkową jest dyrektywa 


<$IFDEF symboL> 
text1 
($ELSE> 
text2 
L$ENDI F> 
Jeśli symboł jest zdefiniowany, to zinterpretowanie podanej 
dyrektywy warunkowej ma taki sam skutek jak zinterpretowanie 
napisu text1. W przeciwnym razie ma taki skutek jak zinter— 
pretowanie napis' text2. Każdy z wymienionych napisów może 
zawierać dowo'.ne dyrektywy bezwarunkowe i warunkowe. Jeśli 
napis tekst2 jest pusty, to rozpatrywana dyrektywa może być 
zapisana w postaci 
<$IFDEF symboLŁ> 
text1 
<$ENDI F> 
Zabrania się, aby w obrębie dyrektywy warunkowej występował 
znak . CkropkRo0 kończący program albo moduł. 


Przykład Dyrektywy warunkowe 


C$DEFINE Debug 
<$UNDEF Ansi> 
<$IFDEF Ansi> 


type 
RGB = CRed,Green,Blue.; 
<$ELSE> 
<$IFDEF Debug» 
Num = 1..20; 
<$ENDI F> 
<$ENDI F> 
Ponieważ symbol Debug jest zdefiniowany, a Symbol Ansi jest 
nie zdefiniowany, zinterpretowanie przytoczonego napisu powo- 


duje wygenerowanie napisu 


Num : 1..20O; 


w ogólnym przypadku, nagłówek dyrektywy warunkowej może mieć 
jedną z następujących postaci: 
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<$IFDEF symboł> zbadanie czy symboł jest zdefiniowany 


<$IDNDEF symboł> — zbadanie czy symbol jest nie zdefiniowany 


<S$IFOPT p+> — zbadanie czy jest włączony przełącznik p 
<S$SIFOPT p-> — zbadanie czy jest wyłączony przełącznik p 


Przełączniki mogą być włączane albo wyłączane za pomocą dyre- 
kŁyw przełączających. 


Przykład Dyrektywy warunkowe z przelącznikamt 


SI +> 
<$IFOPT I+> 
WritelNum ; 
<$ENDI F> 
Ponieważ przełącznik I jest włączony, zinterpretowanie przy” 


toczonego napisu spowoduje wygenerowanie napisu 


WritećCNum ; 


11.3. Symbole specjalne 


Symbolami specjalnymi są te symbole, których stan zdefiniowa- 
nia zależy od środowiska, w którym odbywa się kompilacja. 
Symbolami takimi są: 


VERS50 — zdefiniowany jeśli kompilacja odbywa się za pomocą 
kompilatora wersji 5.0; 


MSDOS — zdefiniowany jeśli kompilacja odbywa się pod nadzo- 
rem systemu MSDOS; 


CPU86 — zdefiniowany jeśli kompilacja odbywa się za pomocą 


procesora rodziny i£APX86 (8088, 8086, 80166, 80286, 
80386) ; 


CPU87 — zdefiniowany jeśli kompilacja odbywa się w środowi - 


sku z koprocesorem arytmetycznym. 


Przykład 


program Display; 


<S$IFDEF CPU87)> 
<S$N+> 
<$ELSE> 
<$N-> 
<$ENDIF> 
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type 
L$IFOPT N+> 
float = double; 
L$ELSE> 
float 
<$ENDI F> 
Num : float; 
begin 
Num := 12.4; 
writeCNum 
end. 


real; 


W środowisku z koprocesorem arytmetycznym przytoczony napis 
generuje program, w którym zmienna Num jest typu double. W 


środowisku bez koprocesora zmienna ta jest typu real. 


CZĘŚĆ ll. BIBLIOTEKI 


12. ZASADY KORZYSTANIA Z BIBLIOTEK 


Bibliotekę tworzy kolekcja procedur wchodząca w skład mo— 
dułu. Należą do niej oczywiście tylko te procedury, które 
zadeklarowano w jego części publicznej. Ze względu na rozmal- 
tość usług świadczonych przez procedury, sklasyfikowanie 

ich jest dość trudne. Z tego względu podzielono je umownie 
na: procedury obliczeniowe, zarządzania pamięcią operacyj- 


ną, wejścia-wyjścia, graficzne i systemowe. 


12.1. Procedury obliczeniowe 
Procedurami obliczeniowymi Są: 


e procedury arytmetyczne 

Cnp. Sqrt — wyznaczenie pierwiastka), 

© logiczne 

np. Odd — stwierdzenie nieparzystościJ, 

e znakowe 

Cnp. UpCase — przekształcenie litery małej w dużą), 
e łańcuchowe 

Cnp. Copy — wybranie podciągu), 

© wskazujące 


Cnp. Ptr — utworzenie danej wskazującejD. 


Tylko nieliczne z procedur obliczeniowych są procedurami nie” 


funkcyjnymi (np. Inc — inkrementacja argumentu. 
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Jeśli wykonanie procedury obliczeniowj okaże się niemożliwe, 
to powstaje sytuacja wyjątkowa, która powoduje przymusowe 
zakończenie wykonywania programu. Na monitorze pojawia się 


wówczas komunikat 
Runtime error nnn At SSSS: OO0O 


w którym nnn jest numerem błędu, a Sssss:0oooo jest adresem te— 
go rozkazu maszynowego, którego wykonanie zostało zaniechane. 
W celu umożliwienia podjęcia akcji poprzedzającej przymusowe 
zakończenie wykonywania programu (spowodowane nie tylko błę— 
dem obliczeniowyno, można posłużyć Się zmienną ExitProc wcho— 
dzącą w skład modułu System. Jeśli zmiennej tej zostanie 
przypisane dalekie wskazanie bezparametrowej procedury koń— 
czącej (wymaga to poprzedzenia deklaracji procedury dyrektywą 
($F+>, to zakończenie wykonywania programu zostanie poprze— 


dzone wywołaniem tej procedury. 


Umożliwi to wykonanie odpowiedniej akcji. W ramach tej akcji 
można sprawdzić, jaka jest przyczyna zaniechania wykonywania 
programu. Sprawdzenie polega na analizie wartości danych 


przypisanych zmiennym ExitCode i ErrorAddr. 
W przypadku normalnego zakończenia wykonywania programu 


Exi ŁCode=O 


ErrorAddr=nil. 


W przypadku zakończenia spowodowanego wykonaniem procedury 


HaltCa) 


Exi ŁCode=a 


ErrorAddr=nil. 


W przypadku zakończenia przymusowego spowodowanego błędem o 


numerze nn, 


Exi ŁCode=n 


Er ror Addr=PtrClssss: OO00O03D) 


Uwaga: Kody błędów wymieniono w Dodatku C. 
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Przykład Zakończenie wykonywania programu 
program Finish; 
uses 
Crt; 


var 
Fix : integer; 


<$F+> 
procedure LastChance; 
begin 
if ErrorAddr > nil then 
if ExitŁCode = 207 then 
WriteC 'Negative argument") 
end; 
($F-> 


begin 
CirSer; 
ExitProc := ©LastChance; 
ReadCF10; 
WriteC(SqrtC(F1xX0) 


end. 


Jeśli wprowadzona dana ma wartość nieujemną, to jest wyzna” 
czany jej pierwiastek. W przeciwnym razie jest wyprowadzany 


napis Negative argument. 


12.2. Procedury zarządzania pamięcią 


Najważniejszymi procedurami do zarządzania pamięcią opera- 
cyjną są New i Dispose. New przydziela pamięć na stercie, 

a Dispose zwalnia ją. Sterta jest obszarem pamięci operacyj- 
nej rozrastającym się w kierunku adresów wyższych. wskazanie 
pierwszego wolnego bajtu poza stertą jest automatycznie przy” 
pisywane zmiennej HeapPtr. Wskazanie to jest znormalizowane 
(przemieszczenie w segmencie należy do przedziału O..155). 
Rozmiar jakiejkolwiek zmiennej przydzielonej na stercie nie 
może przekroczyć 65521 bajtów. 


W celu uniknięcia przymusowego zakończenia wykonywania pro” 
gramu, spowodowanego brakiem miejsca na stercie, można zains” 
talować własną funkcję, wywoływaną każdorazowo w opi sywanej 
sytuacji. W tym celu należy zmiennej HeapError przypisać da” 
lekie wskazanie takiej funkcji. Instalacja wymaga skompi lowa” 
nia funkcji w zasięgu dyrektywy <$F+> i przypisania jej wska” 
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zania zmiennej HeapError. Funkcja powinna być tak napisana, 
aby jej rezultatem była dana typu integer o wartości O, 1 
albo 2. Jeśli na stercie zabraknie miejsca, a rezultatem fun— 
kcji jest O, to nastąpi przymusowe zakończenie wykonywania 
programu. Jeśli rezultatem jest 1, to zmiennej, której nazwa 
jest argumentem procedury New zostanie przypisane wskazanie 
puste. Jeśli rezultatem jest 2, to próba przydzielenia pa— 
mięci będzie ponowiona. 


Przykład ObsTużenie sytuacji wywolanej brakiem miejsca na 
stercte 
program Heap; 


uses 
Crt; 


const 
Count  : shortint = —1; 
Ref : pointer = nil; 


L$F+> 
function HeapServerCDrop : word» : integer; 
begin 
HeapServer := 1 
end; 
L$F—-2> 


begin 
CirScer; 
HeapError := ©HeapSer ver ; 
repeat 


IncCl Count); 
GetMemćC Ref , 500002 


until Ref = nil; 
writŁelCount>; (CC 7 >» 


end. 


Wykonanie programu powoduje wyznaczenie liczby obszarów o 
rozmiarze 50000 bajtów każdy, jakie mogą być przydzielone 


na Sstercie. 


12.3. Procedury wejścia-wyjścia 


w języku nie występują instrukcje wejścia-wyjścia. Z tego 
względu, wszystkie operacje wejścia-—wyjścia są wykonywane 
przez procedury. Przetwarzanie danych zawartych w zbiorach 


i dostępnych poprzez urządzenia odbywa się za pośrednictwem 
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plików. Plik jest obiektem programowym identyfikowanym przez 
nazwę zmiennej plikowej. Plik jest ustanawiany za pomocą pod— 
programu Assign, otwierany za pomocą procedury Reset, Rewrite 
albo Append, przetwarzany za pomocą procedur Read, Write, 
BlockRead, BlockWrite i innych, a zamykany za pomocą procedur 


Close. Pliki dzielą się na tekstowe, elementowe i blokowe. 


Pliki tekstowe 


Plikiem tekstowym jest plik identyfikowany przez zmienną ty- 
pu text, składający się ze znaków podzielonych na wiersze. 
znacznikiem końca wiersza jest znak ©M (cr albo para 

znaków "MJ C(er-lf). Najczęściej używanymi zmiennymi pliko- 
wymi identyfikującymi pliki tekstowe Są predeklarowane 
zmienne Input i Output. Jeśli program zawiera wyszczególnie- 
nie modułu Crt, to plik identyfikowany przez Input jest 
skojarzony z klawiaturą, a plik identyfikowany przez Output 
jest skojarzony z ekranem konsoli. W przeciwnym razie pliki 
te mogą być kojarzone z dowolnymi zbiorami, stanowiąc odpo- 
wiednio: standardowy plik wejściowy CInput) i standardowy 
plik wyjściowy COutput). 


Ustanawianie, otwieranie i zamykanie tych plików jest automa- 
tyczne. Przyjmuje się przez domniemanie, że jeśli w wywołaniu 
procedury Read i Readln oraz Write i Writeln nie występuje 


nazwa pliku, to operacja dotyczy pliku standardowego. 


Pliki tekstowe mogą być kojarzone z takimi m.in. urządzeniami 
systemu DOS jak CON Ckonsolo0, PRN Cdrukarko, AUX Cport kRo- 
munikacyjny) i NUL Cpseudourządzenie). Z urządzeniem CON może 
być skojarzony zarówno plik wejściowy jak i wyjściowy. Znaki 
pobierane z tego urządzenia są buforowane wierszowo. Oznacza 
Ło, że przed naciśnięciem klawisza Enter można je poddawać 
edycji. Znaki kierowane do tego urządzenia pojawiają się na 
ekranie natychmiast. Znaki kierowane do urządzenia PRN są 
drukowane, a znaki wymieniane z urządzeniem AUX są przekazy” 
wane przez porty szeregowe. Pseudourządzenie NUL ma specjalne 
właściwości. Nie istnieje ono fizycznie. Przyjmuje dowolne 
znaki i ignoruje je, a użyte jako urządzenie wejściowe za- 
chowuje się tak, że skojarzony z nim plik zawsze znajduje 


się w pozycji końcowej. 
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Przykład Operacje na plikach tekstowych 
program TextFile; 


var 
Lpt : text; 


begin 


AssignCLpt, "'PRN*D; 
RewriteCLptD; 


WritelnC(Lpt, "Hello, I am JanB'J; 
CloseCLptD 


end. 


Program ilustruje użycie pliku tekstowego. Na drukarkę jest 
wyprowadzany napis Hello, I am JanB. 


Pliki elementowe 


Plikami elementowymi Są pliki identyfikowane przez zmienne 
plikowe typu 


file of type 


w którym type jest opisem typu. Pliki te składają się z ele- 
mentów typu type. 


Jeśli typem elementów jest char, to plik elementowy jest pli-— 
kiem znakowym. Plik taki nie jest plikiem tekstowym, ponieważ 
ewentualnie występujące w nim znaki *©M i CMJ nie są trakto- 


wane jak znaczniki końca wiersza. 


Pliki elementowe mogą być przetwarzane sekwencyjnie i wyryw- 
kowo. Niezależnie od tego, czy plik został otwarty za pomocą 
procedury Reset czy Rewrite, może być ustawiany w dowolnej 
pozycji i w zależności od potrzeby traktowany jako wejściowy 
lub wyjściowy. Zmiana pozycji pliku jest realizowana za pomo— 
cą procedury Seek. Ustalanie jego pozycji i rozmiaru zapew— 
niają procedury FilePos i FileSize. 


Przykład Operacje na pliku elementowym 


program ElementFile; 


var 
Lpt : file of char; 
Ind : byte; 


const 
Greeting : String = "Hello, I am JanB'; 
CR : char = ©M; 
LF : char = CJĘ 
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begin 


Assign(Lpt, 'PRN'D; 
Rewrite(Lpt); 


for Ind := i to LengthC(Greeting) do 
WriteCLpt,Greetingl[Ind]1); 

WriteCLpt ,CRJ; 

WriteC(Lpt ,LFD; 


CloseC(Lpt) 


end. 


Program ilustruje użycie pliku elementowego. Na drukarkę jest 


wyprowadzany napis Hello, I am JanB. 


Pliki blokowe 


Plikami blokowymi są pliki identyfikowane przez nazwy Zzmien- 
nych plikowych typu file. Pliki blokowe umożliwiają przetwa- 
rzanie zbiorów bez uwzględniania ich struktury wewnętrznej. 

W szczególności za pośrednictwem plików blokowych można prze” 
twarzać zbiory, utworzone za pośrednictwem plików tekstowych 


i elementowych. 


Podobnie jak pliki elementowe, pliki blokowe mogą być przet- 
warzane sekwencyjnie i wyrywkowo. Pomocne są w tym proce- 
dury Seek, FilePos i FileSize. Zamiast procedur Read i wri— 
te, w odniesieniu do tych plików są używane procedury Block- 
Read i BlockWrite. Umożliwiają one transmisję porcji bloków © 
dowolnym rozmiarze. W szczególności jedno wykonanie procedury 
BlockRead umożliwia wprowadzenie do pamięci operacyjnej za” 


wartości całego pliku. Operacje na plikach blokowych są 
niebuforowane. 


Przykład Operacje na pliku blokowym 
program BlockFile; 


var 
Lpt : file; 
const 


Greeting : array[i..18] of char = 
"Hello, I am JanB'"MJ; 


begin 


Assign(Lpt, *PRN'); 
RewriteCLpt ,10; 


BlockWriteCLpt,Greeting,LengthCGreeti ng); 
CloseCLpt) 


end. 
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Program ilustruje użycie pliku blokowego. Na drukarkę jest 


wyprowadzany napis Hello, I am JanB. 


Obsługiwanie błędów wejścia-wyjścia 


Jeśli wykonanie procedury wejścia-wyjścia okaże się niepo— 
myślne, to nastąpi przymusowe zakończenie wykonywania progra- 


mu i wyprowadzenie opisanego już komunikatu 
Runtime error nnn at SSSS: oooo 


W celu uniknięcia przymusowego zakończenia, można posłużyć 
się dyrektywą <$I->. W jej zasięgu kończonym dyrektywą <$I+> 
niepomyślne wykonanie procedury wejścia-wyjścia nie powodu— 
je zakończenia wykonywania programu. Zbadanie jaki był skutek 
wykonania operacji wejścia-wyjścia nie poddanej kontroli po— 
zostawia się programującemu. Zadanie to ułatwia funkcja 
IOResult. 


Jeśli wykonanie procedury wejścia-wyjścia było pomyślne, to 
rezultatem funkcji IOResult jest dana o wartości O. W prze- 


ciwnym razie jest nim dana o jednej z następujących wartości: 


Wartość Opts 


2 Nie znaleziono zbioru 
CFile not found) 
3 Nie znaleziono ścieżki 
CPath not found) 
4 Zbyt wiele otwartych plików 
CToo many open files) 
5 zabroniony dostęp 
(File access denied) 
6 Niewłaściwy uchwyt 
CInvalid file handle) 
12 Niewłaściwy dostęp 
CInvalid file access code) 
15 Niewłaściwy numer stacji 
CInvalid drive numberD 
16 Niewykonalne usunięcie katalogu 
CCannot remove current directory) 
17 Niewykonalne przemianowanie 
CCannot rename acceross drives. 
1 OO Błąd odczytu 


CDisk read error.) 


101 Błąd zapisu 
CDisk write error.» 
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102 Brak skojarzenia pliku ze zbiorem 
(File not assigned) 


103 Plik nie otwarty 
(File not open) 


104 Plik nie otwarty do wprowadzania 
(File not open for input) 


105 Plik nie otwarty do wyprowadzania 
(File not open for output) 


106 Dana wejściowa nie jest liczbą 
(Invalid numeric format 
Kolejne wywołanie funkcji IOResult Cbez wykonania w między- 
czasie procedur wejścia-wyjścia) udostępnia daną o wartości 
O. Z tego względu, rezultat funkcji IOResult przypisuje się 


zazwyczaj zmiennej pomocniczej. 


Przykład Użycie funkcji IOResult 
program Check_IOResult; 


Doc : text; 
Float : real; 
Result : word; 


begin 
ClrScer; 


AssignC Doc, * WORK” D; 
Rewri Łeć Doc); 


WriteCDoc,'13. '3J; 
CloseC Doc) ; 
ResetC Doc) ; 


SI -> 
Read( Doc ,Float0) ; 
<SI -> 


CirSer; 
Result := IOResult; 


if Result © O then 
WriteC*Error : ',Result) 
else 
WriteCFloat :0:23 


end. 


Wykonanie programu powoduje wyprowadzenie na ekran napisu 


Error : 106 


Liczba 106 jest numerem błędu spowodowanego tym, iż dana 
wejściowa nie jest liczbą Cbrak części ułamkowej po kropcejJ. 
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12.4. Procedury graficzne 


Procedurami graficznymi są procedury zawarte w modułach 

Graph i Graph3. Umożliwiają one rozpoznawanie Środowiska gra— 
ficznego Cnp. DetectGraph, inicjowanie grafiki pikselowej 

i znakowej Cnp. InitGraph, TextMode), przełączanie między 
trybem graficznym i tekstowym Cnp. RestoreCrtMode), ustana— 
wianie okienek graficznych i tekstowych Cnp. SetViewPort 

i Window), a ponadto: wyprowadzanie tekstów Cnp. Write), wy— 
kreślanie tekstów Cnp. OutlTextD i wykreślanie podstawowych 
obiektów graficznych Cnp. CircleJ. 


Tryb tekstowy 


Wykonywanie każdego programu rozpoczyna Się w trybie teksto- 
wym. Znaki wyprowadzane na ekran mogą być białe na czarnym 
tle, czarne na białym tle, migoczące i kolorowe. Wyprowadza— 
nie znaków odbywa się za pośrednictwem plików skojarzonych 


z konsolą. 


ORienko tekstowe 


Po rozpoczęciu wykonywania programu domniemanym okienkiem 
tekstowym jest cały ekran. Lewy-górny narożnik ekranu teksto- 
wego ma współrzędne (1,10, a prawy-dolny ma współrzędne ĆCcot, 
Lin) gdzie coł jest liczbą kolumn, a Łtn jest liczbą wierszy 
ekranu. Na przykład dla karty CGA w trybie C40 są to współ- 
rzędne (40,250. Z okienkiem jest związany widoczny kursor, 
którego położenie może być zmieniane za pomocą procedury 
GotoXY. Zmiana okienka Łekstowego może być dokonana za pomo 
cą procedury Window. Argumentami procedury są współrzędne 
ekranowe. Najmniejsze okienko ma wymiary 1 x 1. Wszystkie 
operacje tekstowe dotyczą bieżącego okienka tekstowego, 

a współrzędne kursora tekstowego są zawsze liczone względem 
lewego-górnego narożnika okienka. Okienko ma wszystkie wła— 
ściwości zwykłego ekranu monitora. W szczególności zachodzi 


w nim przewi janie pionowe. 


Przykład Przewi jante pionowe 


program Secrolling; 


uses 
Crt; 
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begin 
C1rSer; 


WindowCi ,1,5,3D; 
WritelnC'Jan'); 
WritelnC'Izabela'D 


end. 
Program ilustruje przewijanie pionowe. Na ekranie pojawia się 
wiersz zawierający napis Izabe i wiersz zawierający napis la. 


Na skutek przewinięcia, napis Jan znika z okienka tekstowego. 


Kolory 


Jeśli użyta karta oraz monitor zapewniają wyprowadzenie kolo- 
rowe, to mogą być niezależnie określone atrybuty koloru znaku 
i koloru tła Cnp. czerwony znak na zielonym tle). Ponadto 
można spowodować migotanie znaku oraz zwiększyć jego jasność. 
Atrybuty migotania, koloru tła, jasności i koloru znaku Są 
dla każdego wyprowadzonego znaku określane na podstawie pól 
bitowych zmiennej TextAttr. Pola migotania i jasności są 
1-bitowe, a pola koloru tła i koloru znaku są 3-bitowe. Usta- 
wianie wymienionych pól może odbywać się bezpośrednio, pop” 
rzez operacje na zmiennej TextAttr, albo pośrednio, za pomocą 
procedur TextBackground i TextColor. Pierwsza z tych procedur 
umożliwia określenie koloru tła, a druga umożliwia określenie 
koloru znaku, jego jasności i migotania. Argumenty wymienio- 
nych procedur są zwykle wyrażane za pomocą symboli, takich 

. jak np. Red (czerwony), Blink Cmigotanie). 


Jeśli posłużono się kartą Hercules i monitorem monochromaty- 
cznym, to ustawianie atrybutów powinno odbywać się poprzez 
zmienną TextAttr. W rozpatrywanym przypadku jej najbardziej 
znaczący bit określa migotanie, trzy następne dotyczą tła, 
kolejny bit określa jasność, a trzy najmniej znaczące dotyczą 
znaku. Poza migotaniem i zwiększoną jasnością CĆwyrażonymi za 


pomocą bitów 1) mają sens jedynie następujące zestawy atrybu- 
Łów: 


Znak TTo Skutek 

7 O Białe znaki na czarnym tle 

1 O Białe-podkreślone znaki na czarnym tle 
O 7 Czarne znaki na białym tle 

(0 O Czarne znaki na czarnym tle 


(oczywiście niewidoczneJ) 
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Przykład Wyprowadzenie znaków v kolorach 


program TextColors; 


uses 
Crt; 


begin 
CirSer; 


TextColorCRed); 
TextBackground( Green); 


WwriteC 'Kajusia'J 


end. 


Na monitorze kolorowym sterowanym przez odpowiednią kartę 
graficzną Cnp. EGA albo CGAD pojawia się czerwony napis Kaju-— 


sia na zielonym tle. 


Tryb graficzny 


Przełączenie systemu do trybu graficznego wymaga wykonania 
procedury InitGraph Cjeśli posłużono się modułem Graph) 

albo wykonania procedury GraphMode, GraphColorMode albo 
HiRes Cjeśli posłużono się modułem Graph3, a w systemie jest 
zainstalowana karta CGA albo karta stanowiąca jej rozszerze— 
nie, np. EGAJ). Dalsze rozważania zostaną ograniczone do pos— 


łużenia się modułem Graph. 


Przykład Ustanowienie trybu graficznego 


program Initialize; 


uses 
Crt ,Graph; 


var 
Driver ,Mode : integer; 


begin 


Driver := Detect; 
InitGraphCDriver „Mode, 'D; 


PutPixelCO,O,10; 
repeat until KeyPressed; 
CloseGraph 


end. 


Wykonanie programu powoduje automatyczne rozpoznanie środo- 
wiska graficznego, przełączenie systemu do trybu graficznego 


i wykreślenie na ekranie jednego piksela. 
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Okienko graficzne 


Po ustanowieniu trybu graficznego domniemanym okienkiem gra- 
ficznym jest cały ekran. Lewy-górny narożnik ekranu graficz- 
nego ma współrzędne (0,00, a prawy-dolny ma współrzędne 


€ GetMaxX , GeŁMaxY) 


Zmiana okienka graficznego może być dokonana za pomocą pro- 
cedury SetViewPort. Jej argumentami są współrzędne okienka 
oraz wyrażenie logiczne, określające czy wykresy wykraczające 
poza okienko mają być obcinane czy nie. Wszystkie operacje 
graficzne dotyczą bieżącego okienka graficznego, a współrzęd- 
ne kursora graficznego są zawsze liczone względem lewego— 
górnego narożnika okienka. Kursor graficzny jest niewidoczny, 
ale jego bieżące współrzędne mogą być określone za pomocą 
procedur GetX i GetY. Współrzędne te są wartościami danych 
typu integer i mogą być zarówno dodatnie jak i ujemne. Jeśli 
współrzędna X nie mieści się w przedziale O..GetX lub współ- 
rzędna Y nie mieści się w przedziale O..GetY, to kursor znaj” 
duje się poza okienkiem graficznym. 


Przykład Obcinanie na granicach okienka 


program Clipping; 
uses 
Crt ,Graph; 
var 
Driver ,Mode : integer; 
begin 


Diver := HercMono; 
Mode := HercMonoHi; 
InitGraphCDriver ,Mode, '*); 


SetViewPortC1 ,1,GetMaxX, GetMaxY,C1lipOn); 
PutPixelC—-1,-1,1); 
repeat until KeyPressed; 
CloseGraph 
end. 


Ponieważ procedurę SetViewPort wywołano z argumentem C1ipOn 
Cobcinaj), wykonanie procedury PutPixel nie ma żadnych skut- 
ków. Gdyby argument ClipOn zastąpiono argumentem C1ipOff Cnie 
obcinaj”, w pobliżu lewego-górnego narożnika okienka graficz- 
nego Cale poza okienkiem zostałby wykreślony jeden piksel. 
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Wykreślanie tekstów 


Teksty wyprowadzane na ekran graficzny są na nim wykreślane. 
Teksty mogą być dwóch rodzajów: bitowe i kreskowe. Każdy znak 
tekstu bitowego jest prostokątem o wymiarze podstawowym 8 * 8 
bitów. Znak taki po powiększeniu nie wygląda zbyt dobrze. 
Znacznie lepszy efekt wizualny daje powiększony znak kresko— 
owy. Jest on tworzony w sposób wektorowy i czytelność znaku 
nie zależy od jego rozmiaru. Przewidziano 4 kroje znaków 
kreskowych: indeksowy, potrójny, bezszeryfowy i gotycki. Zna— 
ki Łych krojów mogą być nie tylko powiększane, ale również 
rozciągane w poziomie i w pionie. Teksty składające się ze 
znaków dowolnego kroju mogą być wyprowadzane w poziomie Cod 
lewej do prawej) albo w pionie Cod dołu do góry). Alfabety 
krojów obejmują znaki podstawowego kodu ASCII. Kroje kreskowe 
są przechowywane na dysku i ładowane dynamicznie do pamięci 
operacyjnej. W każdej chwili w pamięci może znajdować się co 
najwyżej jeden automatycznie załadowany krój kreskowy. Zzapew- 
niono Środki umożliwiające ładowanie krojów na żądanie Cpro- 
cedura RegisterBGIFont) oraz instalowanie ich w programie na 


stałe. 


Przykład Wykreślanie tekstu 


program Texts; 
uses 

Crt ,Graph; 
var 


Driver ,Mode : integer; 


begin 
Driver := HercMono; 
Mode := HercMonoHi ; 


InitGraphC Driver „Mode, "2; 


Set TextStŁyleC(SmallFont ,HorizDir ,10D; 
Out Textt "Jan ”); 


Set TextStŁyleCGothicFont ,HorizDir „80; 
Out TextC 'Ewa "); 


SetTextStŁyleCTriplexFont „,HorizDir ,8); 
Out TextC 'Iza'D; 


DelayC2000); 
CloseGraph 


end. 
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Wykonanie programu powoduje wykreślenie trzech tekstów: pier- 
wszy jest wykreślany czcionką o kroju indeksowym. a następne 
odpowiednio gotykiem i krojem potrójnym. Znaki tekstu Jan są 
powiększone 1O0-krotnie, a pozostałe znaki są powiększone 


8-krotnie. Teksty są wyprowadzane w poziomie CHorizDir). 


Wykreślanie obiektów graficznych 


Biblioteka procedur graficznych zawiera procedury do 
wykreślania pikseli Cnp. PutPixel), odcinków Cnp. Line., łu- 
ków Cnp. Arc), okręgów Cnp. Circle), Elips Cnp. Ellipse), 

a ponadto łamanych, wielokątów, słupków itp. Linie mogą być 
wykreślane jako grube albo cienkie, ciągłe albo przerywane, 


a obszary mogą być wypełniane wzorami standardowymi i projek- 


tŁowanymi. 


Przykład Wykreślenie wypelnionego okręgu 


program Objects; 


uses 
Crt „Graph; 


var 
Driver ,Mode : integer; 


begin 


Driver := HercMono; 
Mode := HercMonoHi ; 
InitGraphC Driver „Mode, '”J; 


CircleC(GetŁMaxX div 2,GetMaxY div 2,3000; 
FloodFillCGetMaxX shr 1,GetŁMaxY shr 1 ,GetŁMaxColor); 
repeat until KeyPressed; 

CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie okręgu o promieniu 
200 pikseli i środku w pobliżu środka ekranu, a następnie wy” 
pełnienie go wzorem domniemanym. Wykreślony obiekt jest ob- 


cięty na granicach okienka graficznego. 


Kolory 


Wykreślanie obiektów graficznych może być czarno-białe albo 
kolorowe. Wykreślanie czarno-białe dotyczy zazwyczaj kart 


graficznych nie uwzględniających koloru, np. karty Hercules. 


196 


Oczywiście w takim przypadku kolor biały zależy od użytego 
luminoforu i może być w istocie np. zielony albo bursztynowy. 


Jeśli jest możliwe wyświetlanie kolorowe Cnp. karta EGA albo 
CGAD, Ło podczas instalowania sterownika graficznego można 


określić tryb jego pracy, a tym samym dostępną paletę kolorów. 


Kolory palety Cnie istnieje ona np. dla karty Hercules), są 
ponumerowane od O do GetMaxColor. Kolory te mogą być ustalone 
sprzętowo Cnp. karta CGAD> albo dowolnie zmieniane Cnp. karta 
EGA0. Jeśli kolory mogą być zmieniane, to przypisanie pozycji 
palety obranego koloru odbywa się za pomocą procedury Set— 
Palette. Wybór numeru koloru do wykreślania obiektów zapew— 
nia procedura SetColor. Po wykonaniu procedury SetColorCn) 
wszystkie linie są wykreślane w kolorze związanym (sprzętowo 
albo programowo) z pozycją nr n palety kolorów. Programowe 
przypisanie tej pozycji identyfikatora koloru powoduje na— 
tychmiastową zmianę zmianę koloru wszystkich punktów wykreś— 


lonych po wykonaniu procedury SetColor z argumentem n. 


Przykład Wyświetlanie v kolorach 


program GraphColors; 


uses 
Crt ,Graph; 
var 
Driver „Mode : integer; 
Palette : Paletterlype; 
i : shortint; 
Drop : char; 
Color : byte; 
begin 
Driver := EGA; 
Mode := EgaLo; 


InitGraphCDriver „Mode, ' "2; 
if GraphResult <> grOK then Halt; 


SetPaletteC1 ,Red); 


SetColorC1D; 

LinecO,O,GetMaxX „OD; < Red line > 
repeat until KeyPressed; 

Drop := ReadKey; 

SetŁPaletteC1 ,Green); <« Green line ) 


Out TextŁXYCO,O, Press a key'D; < Green text > 


repeat until KeyPressed; 
Drop := ReadKey; 
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GetPaletteC(Palette); 
Color := GetColor; 


RestoreCrtMode; 
WritelnC'Palette '); 


with Palette do 
for i := O to Size — 1 do 
writelnC"No. ”,„i :2,* => *,Colorsli]D 


end. 


Program ilustruje zasadę posługiwania się paletą kolorów kar- 
ty EGA. Po ustanowieniu trybu graficznego i związaniu z pozy” 
cją nr 1 palety koloru czerwonego (Red) jest wykreślany po- 

ziomy odcinek linii prostej. Po naciśnięciu dowolnego klawi- 
sza klawiatury, następuje zmiana koloru związanego z pozycją 
nr i palety na zielony (Green). Powoduje to, że zarówno Już 

wykreślony odcinek, jak i tekst Press a key jest wyświetlany 
w tym kolorze. Na zakończenie wykonywania programu następuje 
przełączenie systemu do trybu tekstowego i wyprowadzenie tab- 
licy określającej identyfikatory kolorów przyporządkowane po” 
szczególnym pozycjom palety. Dokładniej analizę programu po” 


winno ułatwić sięgnięcie do opisów procedur bibliotecznych 
(rozdział 13). 


Obslugiwanie blędów operacji graftcznych 


Jeśli argumenty procedury graficznej są dobrane niewłaś— 
ciwie Cnp. argument procedury Window reprezentuje daną © 
wartości ujemnej), to wykonanie procedury nie wywołuje żad- 
nych skutków. Jeśli argumenty są dobrane właściwie, ale wy- 
konanie procedury okaże się niepomyślne, to wykonywanie pro” 
gramu jest kontynuowane. Zbadanie jaka była przyczyna nie- 
pomyślnego wykonania operacji graficznej pozostawia się prog” 
ramującemu. Zadanie to ułatwia funkcja GraphResult. 


Jeśli wykonanie procedury wejścia graficznego było pomyśl — 
ne, to rezultatem tej funkcji jest dana o wartości O. W prze” 
ciwnym razie jest nim dana o jednej z następujących wartości: 


Wartość Opis 


—_1 Nie ustawiono trybu graficznego 
CBGI graphics not installed) 
-2 Nie wykryto karty graficznej 


(Graphics hardware not detected) 
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-3 Brak zbioru zawierającego program sterownika 
graficznego 
(Device driver file not found) 


-4 Niewłaściwy program sterownika graficznego 
CInvalid device driver file 

-5 Brak pamięci do załadowania sterownika 
CNot enough memory to load driver) 

—6 Brak pamięci do wypełnienia obszaru metodą scan 
COut of memory in scan fi11) 

—7 Brak pamięci do wypełnienia obszaru metodą flood 
COut of memory in flood fi112 

-8 Brak zbioru zawierającego definicję kroju czcio- 
nek 


(Font file not found) 


-9 Brak pamięci do załadowania czcionek kroju kres— 
kowego 
CNot enough memory to load font) 


-—10 Niewłaściwie dobrany tryb graficzny 
CInvalid graphics mode for selected driver. 


-11 Inne błędy; np. liczba zgłoszonych krojów czcio— 
nek przekracza 10O 
CGraphics error. 


-12 Błąd operacji wejścia-wyjścia 
CGraphics I/O error. 

-13 Niewłaściwy krój czcionek 
CInvalid font file. 

-14 Niewłaściwy numer kroju czcionek 
CInvalid font number. 

-15 Niewłaściwy numer urządzenia 


CInvalid device numberD 


Kolejne wywołanie funkcji GraphResult Cbez wykonania w mię— 
dzyczasie procedury graficznej) udostępnia daną o wartości 
O. Z tego względu rezultat funkcji GraphResult przypisuje się 


zazwyczaj zmiennej pomocniczej. 


Przykład Użycie funkcji GraphResuLlt 


program Check_GraphResult; 


uses 
Crt ,Graph; 


var 
Driver „Mode : integer; 
Result : integer; 


begin 
Detec tŁGr aphC Dr i ver , Mode); 
Result := GraphResult; 
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1f Result <> grOK then begin 
WritelnCGraphErrorMsgl Result); 
HaltC1) 

end; 


InitGraph(Driver ,Mode, ''D; 
if GraphResult <> grOK then 
HaltC2); 


PutPixelCO0,0,10); 
repeat until KeyPressed; 
CloseGraph 


end. 


Program ilustruje zalecany sposób posłużenia się funkcją 
GraphResult. Jego wykonanie składa się z rozpoznania środo 
wiska graficznego, ewentualnego wyprowadzenia komunikatu 
identyfikującego błąd wykonania procedury DetectGraph, za— 


inicjowania systemu graficznego i wykreślenia jednego pik- 
sela. 


12.5. Procedury systemowe 


Procedurami systemowymi są procedury usuwania i przemia— 

nowywania zbiorów Cnp. Erase), podawania i ustawiania czasu 
utworzenia albo ostatniej modyfikacji zbioru Cnp. GetFTime), 
tworzenia i zmieniania katalogów Cnp. MkDirJ, udostępniania 
danych przypisanych rejestrom procesora Cnp. CSeg), określa” 
nia pojemności dysku Cnp. DiskSize), zarządzania programami 
(np. Exec), przeszukiwania katalogów Cnp. FindNextD>, podawa- 
nia i ustawiania daty i czasu Cnp. GetTime) oraz rozpoznawa” 


nia parametrów programu Cnp. ParamStrJ. 


Przykład Rozpoznawanie parametrów programu 


program Parameters; 


uses 
Crt; 


var 
Par : byte; 


begin 
C1rScr; 


for Par := 1 to ParamCount do 
WritelnC"No. ”,Par,': *,ParamStrCPar>); 


if ParamCount =0O then 
WritelnC "No parameters”) 


end. 
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Wykonanie programu powoduje wyprowadzenie w osobnych wier-— 


szach, parametrów wywołania programu. 


12.6. Procedury nakładkowe 


Mimo iż rozmiar kodu programu wykonywalnego jest ograniczony 
tylko rozmiarem dostępnej pamięci operacyjnej, może zaistnieć 
sytuacja, w której tej właśnie pamięci jest za mało. W takim 
przypadku pojawia się konieczność posłużenia się nakladkowa-— 


ntem. 


Nakładkowanie polega na takim przydzieleniu pamięci opera— 
cyjnej programowi wykonywalnemu, aby pewne jego części były 
wykonywane w tym samym obszarze pamięci. Rozwiązanie takie 
umożliwia co prawda pisanie programów, których rozmiar prze— 
kracza pojemność dostępnej pamięci operacyjnej, ale wiąże się 
z koniecznością wielokrotnego ładowania do pamięci operacyj— 


nej fragmentów aktywowanego programu. 


Uwaga: W systemie Turbo Pascal nakładkowanie może dotyczyć 
Łylko kodu modułów, a jedyną dostępną jednostką nakładkowania 


Jest moduł. 


Każdy moduł , który ma podlegać nakładkowaniu musi być skom- 
pilowany w zasięgu dyrektywy kompilatora 
L$BO0+> 


a każda procedura nakładki oraz każde odwołanie do niej, musi 
być skompilowane w zasięgu dyrektywy 
L$F+> 


Oznacza to tyle, że procedury wywoływane z nakładek muszą być 


traktowane jako dalekie. 


zarządzanie nakładkowaniem odbywa się za pomocą procedur 
moduł u Overlay. W każdym programie nakładkowanym, nazwa tego 
modułu musi być wymieniona jako pierwsza w wyszczgólnieniu 
modułów. Bezpośrednio pod nim musi być umieszczony zestaw 


dyrektyw o postaci 


L$O names) 
<$O name» 


L$O name 


w której każde name jest nazwą modułu nakł adkowanego. 
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Uwaga: Ponieważ wśród modułów standardowych, jedynie moduł 
Dos jest skompilowany z opcją <$O0+>, co najwyżej on może 


znależć się w wymienionym zestawie. 


Produktem kompilacji programu nakładkowanego są dwa zbiory 
e zbiór z rozszerzeniem .EXE zawierający program 
wykonywalny; 


© zbiór z rozszerzeniem .OVL zawierający nakładki. 


Wymaga się aby kompilacja takiego programu odbyła się po 
wybraniu opcji 


Compile / Destination Disk 
gdyż w przeciwnym razie zostanie zaniechana. 


Bezpośrednio po aktywowaniu programu nakładkowanego należy 
zainicjować nakładkowanie, wywołując procedurę OvrInit, 
której argumentem jest nazwa zbioru nakładek. Po wykonaniu 
tej czynności, można spowodować załadowanie zbioru 
nakładkowego do pamięci rozszerzonej COvrInitŁEMS> oraz 
zmienić rozmiar bufora nakładek w pamięci operacyjnej 
COvrSetBuf). W trakcie wykonywania programu można opróżnić 
bufor nakładek COvrClearBuf) co spowoduje, że kolejne 


nakładki będą ładowane od nowa. 


Po każdym wywołaniu procedury modułu Overlay można sprawdzić, 
czy zostało ono wykonane poprawnie. Odbywa się to na 
podstawie wartości zmiennej OvrResult, której po 

wywołaniu każdej z wymienionych procedur jest przypisywana 


dana reprezentowana przez jeden z następujących symboli 


ovrOK ="0 ; operacja wykonana pomyślnie 
ovrError = -1 ; błąd zarządcy nakładek 
ovrNotFound = ; brak zbioru nakładkowego 

ovr NoMemory = -3 ; brak miejsca na bufor nakładek 
ovr IOer ror = -4 : błąd odczytu zbioru nakładkowego 


ovrNoEMSdriver = -5 ; brak sterownika pamięci EMS 


ovrNoEMSmemory = -56 ; brak pamięci EMS 


Gw odróżnieniu od IOResult, odwołanie do OvrResult nie 
powoduje zmiany wartości tej zmiennej). 


Uwaga: Posłużenie Się pamięcią rozszerzoną nie wyklucza 


konieczności użycia bufora nakładek w pamięci operacyjnej: 


202 


Bufor ten jest przydzielany niejawnie i umieszczany pomiędzy 
stosem i stertą. Jego rozmiar jest tak dobrany, że mieści się 
w nim największa nakładka. Oczywiście zwiększenie rozmiaru 
bufora przyczynia się do zredukowania liczby przepisań 
nakładek z pamięci zewnętrznej albo rozszerzonej. Bieżący 
rozmiar bufora nakładek można określić za pomocą funkcji 
OvrGetBuf. Zmiana rozmiaru bufora może nastąpić jedynie 
wtedy, gdy sterta jest jeszcze pusta. 


Przykład Program nakladkowany 


modul glówny 
program Greet; 
uses 
Overlay,Crt,Over1i „Overe; 


<$O Overi> 
L$O Over2> 


($F+> 
var 
OvrName : String; 
begin 
OvrName := '"GREET. OVR'; 
OvrInitCOvrName); 


if OvrResult <> ovrOK then begin 
WritelnC'Overlay manager error"); 
HaltC13) 

end; 

while not KeyPressed do begin 
Subl ; 
Del ayC SOO) ; 
Sub2; 
DelayCS00) 

end 


end. 


piervszy modul nakRTladkowy 


L$0+,F+> 
unit Over1i; 


interface 
procedure Subl; 


implementation 


procedure Subl; 


begin 
WritelnC'Hello from Overlayi'D 


end 


end. 
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drugi modul nakladkovwy 


($O0+,F+> 
unit Overo?; 


interface 
procedure Sube; 


implementation 


procedure Sube; 
begin 

WritelnC'Hello from Overlaye') 
end 


end. 
Wykonanie programu powoduje wyprowadzanie napisów 


Hello from Overlayi 


Hello from Overlaye 


pochodzących z pary nakładek. 


13. BIBLIOTEKA PODSTAWOWA 


W ogólnym przypadku, elementami przytoczonych tu opisów pro— 


cedur są: 


Nazwa 

Nazwa krótka charakterystyka procedury 

Deklaracja nieformalny nagłówek procedury 

Modul nazwa modułu zawierającego procedurę 

Opis opis skutków wykonania procedury 

Uwagi szczegółowy komentarz na temat wykonania pro- 
cedury 

Porównaj nazwy procedur pokrewnych 

PrzykTad kompletny program posługujący się opisywaną pro- 
cedurą 
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Abs 


Nczwvwa Abs — odrzucenie znaku 
Deklaracja function 
AbsCO : type 


Hodut System 
Opis Utworzenie danej o wartości bezwzględnej x 
Uvagi Argumentem funkcji Abs może być dowolne wyraże- 


nie rzeczywiste albo całkowite. Typ rezultatu 


jest identyczny z typem argumentu. 


Przyklad 


< Abs 5) 


var 
Fix : integer; 
Float : real; 


begin 


Fix := AbsC-8); 
Float := AbsC-4.00D; 


WritelnCAbsC(Float — Fi>0 :5:20; (C 4.00 > 
end. | 


Wykonanie programu powoduje wyprowadzenie liczby 4. OO 


NL JLJLMII .1.”«óóóóóó”QóÓQóÓQ.”__ 
Addr 


NNNNNNNLorDcwccc >. 


Nazwa Addr — wyznaczenie wskazania obiektu 
Deklaracja function 


AddrC>O : pointer 


Modut System 

Opis Utworzenie danej typu pointer, wskazującej 
obiekt reprezentowany przez argument funkcji. 

Uwagi Argumentem funkcji Addr może być nazwa zmiennej 


albo identyfikator procedury. Jeśli arg jest 


nazwą zmiennej, to AddrCarg) jest równoważne 


©arg. 


Przyklad 


< Addr > 


var 
Ref : integer; 
Fix : integer; 
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begin 


Fix := 13; 

Ref = AddrCFix>; 

WritelnCRef"D; < 13 >» 
end. 


Wykonanie programu powoduje wyprowadzenie liczby 13. 


Append 


Nazwa Append — otwarcie pliku w trybie do rozszerzania 

Deklaracja procedure 
AppendClvar f : text 

Modut System 

Opts Otwarcie pliku identyfikowanego przez f i usta— 
wienie go w pozycji końcowej. 

Uvagi Plik identyfikowany przez f musi być plikiem 
tekstowym skojarzonym z istniejącym zbiorem da— 
nych. Jeśli plik jest otwarty, to zostanie zam- 
knięty, a następnie otwarty ponownie. Plik ot- 
warty za pomocą procedury Append zawsze znajduje 
się w pozycji końcowej. Niepomyślne wykonanie 
procedury Append powoduje powstanie błędu wejś— 
cia-wyjścia. 

Porównaj Assign, Reset, Rewrite 


Przyklad 


< Append > 


var 
Out : text; 


begin 


AssignCOut, 'JanB. doc *2; 
Rewr i tŁelOut); 


WriteCOut, "Jan "2; 
CloselOut); 


AppendC Out); 


WritelnCOut, 'Bielecki"'D; 
CloseCOutD>;  < Jan Bielecki > 


end. 


Wykonanie programu powoduje umieszczenie w zbiorze JanB. doc 


napisu Jan Bielecki. 
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Arc 


Nazwa wykreślenie łuku okręgu 

Deklaracja procedure 
ArcCx,y : integer; 

angb,ange : word; 
radius : word) 

Hodut Graph 

Opis Wykreślenie łuku okręgu o środku w punkcie Cx,y) 
i promieniu radius, począwszy od kąta angb, a 
skończywszy na kącie ange. 

Uwagi System musi być w trybie graficznym. Kąty angb 
i ange są wyrażone w stopniach. Wykreślanie od- 
bywa się w kierunku przeciwnym do ruchu wska- 
zówek zegara. Dla angb=0 i ange=360 jest wykreś- 
lany pełny okrąg. 

Porównaj Circle, Ellipse, GetArcCoords, GetAspectRatio, 
PieSlice 

Przyktad 

< Arc >» 
uses 

Graph, Crt; 
var 


Driver ,Mode : integer; 


begin 


Driver 


:= Detect; 


InitGraphCDriver ,Mode, *' *D; 


if GraphResult <> grOK then begin 
WritelnC'Failure"D; 
HaltC1) 


end; 


ArcC(GetMaxX div 2,GetMaxY div 2,45,315,50D; 
repeat until KeyPressed; 
CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie łuku okręgu począwszy 
od kąta 48”, a skończywszy na kącie 315%. Środek okręgu znaj- 
duje się w środku ekranu. Promień okręgu wynosi 50 pikseli. 
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ArcTan 


Nazwa ArcTan — wyznaczenie arcusa tangensa 
Deklaracja function 


ArcTanCo : real-„extended 


Modul System 

Opts Utworzenie danej typu real/extended o wartości 
arctg x. 

Uvagti Argumentem funkcji ArcTan może być dowolne wyra— 


żenie rzeczywiste albo całkowite. 


Przyklad 


< ArcTan > 
begin 


WritelnC4 % ArcTanC10) :4:2); C 3.14 >» 
end. 
Wykonanie programu powoduje wyprowadzenie liczby 3.14 . 


| h..Q.......ÓÓóó A S5DGOKZZĆŚLLLL)—>—>„—„__,, 
Assign 


Nazwa Assign — skojarzenie pliku ze zbiorem 

Deklaracja procedure 
AssignCvar f; 

name : string) 

Modul System 

Opts Ustanowienie pliku identyfikowanego przez £f£ 
i skojarzenie go ze zbiorem o nazwie określonej 
przez name. 

Uvagti Pierwszym argumentem procedury Assign może być 
nazwa zmiennej plikowej dowolnego typu. Drugim 
argumentem może być dowolne wyrażenie łańcuchowe 
określające pełną nazwę zbioru. Nazwa ta ma w 
ogólnym przypadku postać 

Drive: DirsDir ... SDirNFile 
w której Drive jest jednoliterowym c-.naczeniem 
stacji, Dir są nazwami katalogów, a File jest 
nazwą zbioru. Opuszczenie Drive powoduje domnie— 
manie stacji bieżącej, a opuszczenie wszystkich 
Dir powoduje domniemanie katalogu bieżącego. Jeś— 
li pełna nazwa zbioru jest pusta, to pierwszy ar- 


gument procedury identyfikuje plik standardowy: 
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wejściowy (po Reset) albo wyjściowy Cpo Rewrite 1 
Append). Zabrania się użycia procedury Assign w 
odniesieniu do pliku, który jest otwarty. 


Przyklad 
< Assign > 
var 
Qut : text; 
begin 
AssignCOut, 'Con'); 
Rewri ŁeC Out); 


WriteCOut, "'"Kaja'>; << Kaja » 
end. 
Wykonanie programu powoduje skojarzenie pliku identyfikowane” 
go przez Out z konsolą, a następnie wyprowadzenie na ekran 
konsoli napisu Kaja. 


o n—————__|[|[Ó[ÓóÓ ozn 


AssignCrt 


a — 
Nazwa AssignCrt — skojarzenie pliku z konsolą 
Deklaracja procedure 


AssignCrtCvar (f : text) 


Hodut Crt 

Opis Skojarzenie pliku identyfikowanego przez f z kon” 
solą. 

Uwagi Wykonanie procedury AssignCrtC(f) ma taki sam sku” 


tek jak wykonanie procedury AssignCf,'Con'J. z ta 
tylko różnicą, że zapewnia szybsze komunikowanie 
się z konsolą. 

Przyklad 


< AssignCrt » 
uses 
Crt; 


VaTVT 
Out : text; 


begin 
AssignCrtCOut); 
Rewri tŁeC Out); 
WriteCOut,'Iza'); (C Iza » 
end. 


Wykonanie programu powoduje wyprowadzenie na konsolę napisu 


Iza. 
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Bar 


Nazwa Bar — wykreślenie słupka 


Deklaracja procedure 


BarCxi ,yl,xe,y2 : integer) 


Modut Graph 


Opis 


Wykreślenie słupka (stanowiącego zapewne element 
wykresu słupkowego) jako wypełnionego prostokąta, 
którego przeciwległe wierzchołki mają współrzędne 
Cx1i,y1iD i Cx2,y2). 


Uwvagt System musi być w trybie graficznym. Wzór 1 kolor 


wypełnienia prostokąta może być określony za po- 
mocą procedury SetFillStyle albo SetFillPattern. 


Porównaj Bar3D, SetFillPattern, SetFillStŁyle, SetLineStyle 
Przyklad 
< Bar > 
uses 
Crt,Graph; 
const 
Pattern : FillPatternlIype = 
C $07,$8dd,$807,$%0a,$72,8$50,8572,$82 ); 
var 
Driver ,Mode : integer; 
begin 
Driver := Detect; 
InitGraphCDriver „Mode, '*'); 
if GraphResult <> grOK then 
HaltC1D; 
SetFillPatternCPattern, GeŁMaxColor); 
BarC50,50,GetMaxX — 50,GetMaxY — 502; 
repeat until KeyPressed; 
CloseGraph 
end. 


Wykonanie programu powoduje wykreślenie słupka wypełnionego 


zapr 


ojektowanym wzorem. 


Bar 3D 
Nazwa Bar3D — wykreślenie trójwymiarowego słupka 
Deklaracja procedure 


Bar3DCxi ,yi,x2,y2 : integer; 
depth : word; 
top : boolean) 
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Hodut Graph 


Opis 


Wykreślenie trójwymiarowego słupka (stanowiącego 
zapewne element wykresu słupkowego) Jako prosto- 
padłościanu, którego przednia ściana jest wypeł- 
nionym prostokątem. Określenie przeciwległych 
wierzchołków prostokąta jako punktów o współrzęd- 
nych (xd ,y1) i Cx2,y2). Wyrażenie głębi prostopad- 
łościanu za pomocą depth i określenie za pomocą 


top czy ma być wykreślana jego górna powierzchnia. 


Uwagi System musi być w trybie graficznym. Wzór i kolor 


wypełnienia prostokąta może być określony za po- 

mocą procedury SetFillSŁyle albo SetFillPattern. 

Zaniechanie wykreślania górnej powierzchni umoż- 
liwia wykreślenie słupka składającego się z kilku 
klocków. 

Wartości trzeciego argumentu procedury mogą być 


wyrażone za pomocą następujących symboli: 


lopOff — bez wykreślania górnej powierzchni 
słupka <false> 

TopOn — z wykreślaniem górnej powierzchni 
słupka <true> 


Porównaj Bar, GraphResult, SetFillPattern, SetFillStyle, 


SetLi neStyle 


Przyklad 
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< Bar3D >» 


uses 
Crt,Graph; 


var 
Driver ,Mode : integer; 


begin 


Driver := Detect; 

I nitGraphCDr iver ,Mode, *"); 

if GraphResult <> grOK then 
HaltC1D; 


SetFillStyleCxHatchFi11, GetMaxColor3 ; 
Bar3DCS0,50,GetMaxX - 50,GetŁMaxY — 50,20, TopOn); 
repeat until KeyPressed; 


CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie trójwymiarowego 
słupka wypełnionego wzorem xHatchFill Cpor. procedura 
SetFillStyle). Słupek ma głębokość 20 pikseli i widoczną 


górną powierzchnię. 


BlockRead 


Nazwa BlockRead — wprowadzenie bloków 
Deklaracja procedure 


BlockReadCvar f : file; 


var buf; 
count : word; 
var result : wordJ 
Modut System 
Opis Wprowadzenie z pliku identyfikowanego przez f, do 


obszaru pamięci zlokalizowanego przez buf, count 
bloków o rozmiarze określonym podczas otwierania 
pliku. Przypisanie result danej typu word okreś— 
lającej liczbę faktycznie wprowadzonych bloków. 

Uwvagt Plik identyfikowany przez f musi być otwarty. 
Jeśli rozmiar bloków nie zostanie określony jaw- 
nie, to domniema się rozmiar 128. Jeśli funkcja 
BlockRead zostanie wywołana bez ostatniego argu- 
mentu, a result € count, to wykonanie funkcji 
uważa się za niepomyślne. Spowoduje to powstanie 
błędu wejścia-wyjścia. 

Porównaj BlockWrite 


Przyklad 


< BlockRead > 

var 
Src,Trg : file; 
entRead,centWrite : word; 
Buffer : array[O..511] of byte; 


begin 
Assign(Src,ParamStrCć100); 
ResetCSrc,1); 


AssignCTrg,ParamStrc2).); 
RewriteC Trg,1D; 


repeat 


BlockReadC(Src,Buffer ,SizeOfCBuffer) ,entRead); 
BlockWriteC Trg,Buffer „,cntRead,cntWrite) 


until CentRead = O or CentWrite <> entReąad) 
end. 
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Wykonanie programu powoduje kopiowanie zbioru. Nazwa zbioru 


źródłowego jest określona przez pierwszy, a nazwa zbioru do- 


celowego przez drugi parametr programu. Rozmiary bloków są 


określone jawnie jako 1-bajtowe. 


BlockWrite 


Nazwa 


Deklarac ja 


Modul 
Opis 


Porówaj 


Przyklad 


BlockWrite — wyprowadzenie bloków 
procedure 
BlockWriteCvar £( : file; 

var buf; 

count : word; 

var result : word) 
System 
Wyprowadzenie do pliku identyfikowanego przez f, 
z obszaru pamięci zlokalizowanego przez buf, 
count bloków o rozmiarze określonym podczas ot- 
wierania pliku. Przypisanie result danej typu 
word określającej liczbę faktycznie wyprowadzo- 
nych bloków. 
Plik identyfikowany przez f musi być otwarty. 
Jeśli rozmiar bloków nie zostanie określony jaw- 
nie, to domniema się rozmiar 128. Jeśli funkcja 
BlockWrite zostanie wywołana bez ostatniego argu- 
mentu, a result < count, to wykonanie funkcji 
uważa się za niepomyślne. Spowoduje to powstanie 
błędu wejścia-wyjścia. 
BlockRead 


<« BlockWrite y» 


uses 

Crt ,Graph; 
const 

Full = 32768; 
var 

Image : file; 


Buffer : arrayl[1i..Full] of byte; 


Start : 


pointer; 


Driver ,Mode : integer; 


Drop 


char; 


begin 


Assign(Image, 'Screen'); 
Start := PtrC$BOOO,ODJ; 


Driver := Detect; 
Ini tGraphC Driver „Mode, ''DJ; 
if CGraphResult <> grOK) or 
CDriver <> HercMono) or CMode <> HercMonocHiD then 
HaltC1D; 


Set TextStyleCTriplexFont ,HorizDir ,S2D; 


Out TextC 'Kajusia'); 
RewriteCImage,10; 

MoveC Start" ,Buffer ,FullD; 
BlockWriteCImage,Buffer ,FullD; 
CloseC Image); 


repeat until KeyPressed; 
Drop := ReadKey; 

Clear ViewPort; 

Out Text( 'Izusia'D; 
repeat until KeyPressed; 
Drop := ReadKey; 


ResetCImage,12D; 

BlockReadC(I mage,Buffer ,Full); 
MoveC Buffer „,Start©,FullD; 
CloseC(ImageD; 


repeat until KeyPressed; 


CloseGraph 


end. 


Wykonanie programu ilustruje użycie procedury BlockWrite do 


zapamiętania i odtworzenia bufora ekranu karty Hercules. 


ChDi r 


Nazwa 


ChDir — zmiana bieżącego katalogu 


Deklaracja procedure 


ChDirCls : string. 

System 

Zmiana katalogu bieżącego na katalog określony 
przez s. 

Argumentem procedury ChDir może być dowolne wyra— 
żenie łańcuchowe określające Ścieżkę wiodącą do 
katalogu. Jeśli ścieżka rozpoczyna Się od jedno— 
literowego określenia stacji, to dodatkowo nastą- 
pi zmiana stacji bieżącej. Niepomyślne wykonanie 
procedury powoduje powstanie błędu wejścia-wyjś— 


cia. 


Porównaj GetDir, MkDir, RmDir 


Przyklad 


< ChDir > 
var 
Save : stringl20]; 


const 
Current = O; 


begin 
GetDi rCCurrent,Save); 
WriteC'Directory * + ParamStrC10 + ' does "'); 


LSI -> 
ChDirCParamStrC100; 
(SI +> 


if IOResult <> O then 
WriteC not exist"J 
else 
WriteCl'exist'); 


ChDi rCSave) 


end. 


Wykonanie procedury powoduje sprawdzenie czy istnieje katalog 
określony przez parametr programu i wyprowadzenie stosownego 


komunikatu. 


Nazwa Chr — udostępnienie znaku o podanym kodzie 

DeRlaracja function 
Chrl0O : char 

Hodut System 

Funkc ja Utworzenie danej typu char składającej się ze 
znaku o kodzie x . 

Uwagi Argumentem procedury Chr może być dowolne wyraże” 
nie całkowite. 

Porównaj Ord 


Przyklad 


<« Chr > 
begin 


WwriteCChrCc650); <A) 


end. 


Wykonanie programu powoduje wyprowadzenie litery A. 
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Circle 


Nazwa Circle — wykreślenie okręgu 


DekRl 


aracja procedure 


CircleCx,y : integer; 


radius : word) 
Modut Graph 
Opts Wykreślenie okręgu o środku w punkcie Cx,y) 
i promieniu radius. 
Uvagt System musi być w trybie graficznym. 
Porównaj Arc, Ellipse, GetArcCoords, GetAspectRatio, 
PieSlice 
Przykład 


< Circle > 


uses 
Crt,Graph; 


const 
Radius = BO; 


var 
Driver „Mode : integer; 
begin 
Driver := Detect; 


InitGraphCDriver ,Mode, ” "2; 
if GraphResult <> grOK then 
HaltC12D; 


CirecleC(GetMaxX shr 1,GetŁMaxY Shr 1i,Radius); 
repeat until KeyPressed; 
CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie okręgu usytuowanego 


w środku ekranu. 


ClearDevice 


Nazwa ClearDevice — wyczyszczenie ekranu graficznego 


Deklaracja procedure 


ClearDevice 


Modut Graph 


Wyczyszczenie ekranu graficznego i usytuowanie 
kursora graficznego w lewym-górnym narożniku 
bieżącego okienka graficznego. 


System musi być w trybie graficznym. 


Uvagt 
Porównaj ClearViewPort, CloseGraph, InitGraph, 
RestoreCrtMode, SetGraphMode 
Przyklad 
< ClearDevice >» 
uses 
Crt, Graph; 
var 
Driver ,Mode : integer; 
Drop : char; 
begin 


Driver := Detect; 

InitGraphCDri ver „Mode, '"); 

if GraphResult <> grOK then 
HaltC1); 


Out TextC 'Kaja'D; 


SetViewPortCGetMaxX div 2,GetMaxY div 2, 
GetMaxX , GetMaxY ,C1ipOn); 


Out Textl 'Izabela"'D; 


repeat until KeyPressed; 
Drop := ReadKey; 


ClearDevice; 

Out TextC 'Kajusia'); 
repeat until KeyPressed; 
CloseGraph 


end. 


Wykonanie programu powoduje wyprowadzenie w lewym-górnym na” 
rożniku ekranu napisu Kaja i na środku napisu Izabela. Po 
naciśnięciu dowolnego klawisza klawiatury napis Kaja znika, 


a napis Izabela zostaje zastąpiony napisem Kajusia. 


im — 
ClearViewPort 
i — 


ClearViewPort — wyczyszczenie okienka graficznego 


Nazwa 

Deklaracja procedure 
ClearViewPort 

Modul Graph 

Opis Wyczyszczenie bieżącego okienka graficznego, a 
następnie wypełnienie go kolorem przypisanym 
pierwszej pozycji palety. 

Uwagi System musi być w trybie graficznym. 

Porównaj GetViewSettings, SetViewPort 
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Przyklad 


<« ClearViewPort > 


uses 
Crt,Graph; 


var 
Driver „Mode : integer; 
Drop : char; 
ViewPort : ViewPortType; 


begin 


Driver := Detect; 

Ini ŁGraphC Driver ,Mode, * ”D; 

if GraphResult <> grOK then 
HaltC1D; 


SetViewPortC50,50, GetMaxX — 50,GetMaxY — 50,C1lipOn)J; 
GetVvViewSettings( ViewPort2J; 


with ViewPort do 
BarCx1 ,yl,x2,y2); 


repeat until KeyPressed; 
Drop := ReadKey; 


ClearViewPor Ł; 

Out TextC 'ViewPort cleared'D; 
repeat until KeyPressed; 
CloseGraph 


end. 


Wykonanie programu powoduje zdefiniowanie okienka graficzne— 
go, wykreślenie w nim słupka, a po naciśnięciu dowolnego kla— 
wisza klawiatury, wyczyszczenie bieżącego okienka i wyprowa— 


dzenie w nim napisu ViewPort cleared. 


Close 


Nazwa Close — zamknięcie pliku 
Deklaracja procedure 
CloseCvar ( : file 


Modut System 

Opis zamknięcie pliku identyfikowanego przez f, pop—- 
rzedzone wymieceniem buforów wyjściowych Cpor. 
Flush)D. 

Uwvagt Zamykany plik musi być otwarty. Niepomyślne wyko— 
nanie procedury powoduje powstanie błędu wejścia- 
wyjścia. 


Przyklad 


< Close > 
var 

Inp : file; 
begin 


Assign(Inp.,.ParamStrC(100; 
ResetC(Inp,1); 


WriteC'File ',ParamStrC1D, 
» contains ”,FileSizeCInp>,” bytes"); 


CloseCInp) 
end. 
Zilustrowano użycie procedury Close w programie, którego wy- 
konanie powoduje określenie liczby znaków zadanego zbioru da- 
nych. Ponieważ procedura Close dotyczy pliku wejściowego, mo- 
że być pominięta. 


a 


CloseGraph 


CC 


Nazwa CloseGraph — przywrócenie trybu tekstowego 
DeRlaracja procedure 
CloseGraph 
HModut Graph 
Opis Przywrócenie trybu tekstowego, zwolnienie pamięci 


przydzielonej automatycznie programowi sterownika 
graficznego oraz obranemu krojowi pisma. 

Uwagi System musi być w trybie graficznym. Pamięć przy” 
dzielana za pomocą procedur RegisterBGIDriver i 
RegisterBGIFont nie podlega zwolnieniu. 

Porównaj CloseGraph, DetectGraph, InitGraph, 
RegisterBGIDriver , RegisterBGIFont, 

RestoreCrtMode, SetGraphMode 

Przyklad 


<« Close6raph > 
uses 


var 
Hor „Ver : integer; 
Driver ,Mode : integer; 


procedure BoxCx,y : integer); 
begin 

Lineco,O, x,O0J , 

Linelx,O0,x, y3J > 

LineCx, b © O,y); 

Lineco, b £ 0,0) 
end; 
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begin 


Driver := Detect; 
InitGraphC Driver ,Mode, ''); 
if GraphResult <> grOK then 


HaltC1D; 
Hor := GetMaxX; 
Ver := GetMaxY; 


BoxCHor , Ver); 
repeat until KeyPressed; 
CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie obwiedni ekranu, a po 
naciśnięciu dowolnego klawisza klawiatury, przywrócenie trybu 


tekstowego. 


CLlrEol 


Nazwa. CirEol — wyczyszczenie końca wiersza 


Deklaracja procedure 


ClrEol 
Modul Crt 
Opts Zastąpienie spacjami tych końcowych znaków wier— 


sza wyróżnionego przez kursor, które występują 
między pozycją kursora, a końcem wiersza. 

Uwagi System musi być w trybie znakowym. Jeśli kolorem 
tła nie jest czerń, to spacje ujawniają się jako 
kolorowe, w kolorze określonym za pomocą proce— 
dury TextBackground. Zastępowanie znaków spacjami 
kończy się w chwili osiągnięcia prawego obrzeża 
bieżącego okienka tekstowego. Pozycja kursora 
tekstowego nie ulega zmianie. 


Porównaj CilrSer, Window 


Przyktada 


< CirEol > 


uses 
Gr t; 


begin 
C1rScr; 


WritelnC 'Ewa Bielecka"); 
WritelnC'Jan Bielecki 'D; 
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Readln; 


GotoXYC5,10; 
C1rEol 


end. 


Wykonanie programu powoduje wyprowadzenie dwóch imion Zz naz- 
wiskami, a po naciśnięciu znaku Enter, usunięcie nazwiska po 


imieniu Ewa. 


ClrSer 


Nazwa ClrSecr — wyczyszczenie okienka tekstowego 


Deklaracja procedure 


ClrSer 
Hodut Crt 
Opis Wyczyszczenie bieżącego okienka tekstowego i usy” 


tuowanie kursora znakowego w lewym-górnym naroż- 
niku tego okienka. 

Uvagti Jeśli kolorem tła nie jest czerń, to okienko Zzos” 
tanie wypełnione spacjami w kolorze określonym za 
pomocą procedury TextBackground. 

Porównaj ClrEol, Window 


Crt; 


begin 
ClrSer; 
WritelnC'Kajusia'); 
Readln; 
CirScr; 
Writeln('Izusia') 


end. 


Wykonanie programu powoduje wyprowadzenie napisu Kaj usia, a 


po naciśnięciu klawisza Enter, zastąpienie go napisem Izusia. 


ze2 


Concat 


Nazwa Concat — złączenie ciągów znaków 


Deklaracja function 


ConcatCsi ,se, ... „sn : String) : string 

Modul System 

Opts Utworzenie danej łańcuchowej stanowiącej złącze— 
nie ciągów znakowych Si, se, ... sn w kolejności 


od lewej do prawej. 

Uwagi Liczba argumentów funkcji Concat może być dowol — 
na. Każdy z nich jest dowolnym wyrażeniem łańcu— 
chowym. Jeśli rezultat liczy więcej niż 255 zna— 
ków, to jest prawostronnie obcinany do 255 zna— 
ków. 

Przyklad 


4 Concat > 
uses 
Crt; 


begin 

CirSer; 

WriteCConcatC'Jan",” ”,'Bielecki'D)0; « Jan Bielecki >» 
end. 


Wykonanie programu powoduje wyprowadzenie napisu Jan Bielecki. 


Copy 


Nazwa Copy — wyodrębnienie podciągu znaków 
Deklaracja function 


CopyCsource : string; 


index : integer; 
count : integer. : string 
Modul System 
Opis Utworzenie danej typu string składającej się z 


count znaków source, począwszy od znaku o nume— 
rze index. 

Uwagi Jeśli indeks > LengthClsource), to rezultatem jest 
pusty ciąg znaków. Jeśli 


index + count — 1 > LengthC(source) 


to wyodrębniony podciąg kończy się na ostatnim 


znaku source. 


ee3 


const 


Myname : Sstring[i2]J 
begin 


CirSer; 


WritelnCCopyCMyName,10,100D,' 


CopyC MyName,1 ,800; 
end. 


Wykonanie programu powoduje wypr 


"Bielecki Jan'; 


<« Jan Bielecki > 


owadzenie napisu Jan Bielecki. 


Cos 

Nazwa Cos — wyznaczenie cosinusa 

Deklaracja function 
Cosl O real/extended 

Modut System 

Opis Utworzenie danej typu real/extended o wartości 
cos x. 

Uwagi Argumentem funkcji Cos może być dowolne wyraże- 
nie rzeczywiste albo całkowite. Argument jest 
wyrażony w radianach. 

Przyktad 

< Cos > 
uses 
Crt; 
begin 
ClrScer ; 
WriteCCosCPi / 30 :4:2); << O.50 > 
end. 


Wykonanie programu powoduje wypr 


owadzenie liczby O.S50 


CSeg 


Nazwa 


DekRlarac ja 


Hodut 
Opis 


Porównaj 


Przyklad 


< CSeg > 


uses 
Crt; 


CSeg — udostępnienie zawartości rejestru kodu 
function 

CSeg : word 

System 

Utworzenie danej typu word identycznej z daną 
przypisaną rejestrowi CS procesora. 


DSeg, SPŁr, SSeg 


procedure Sub; 


begin 
end; 


var 
Ptr 


Ref 
begin 


record 

Off „Seg : word 
end; 
pointer absolute Ptr; 


ClrSer; 


Ref := 


©Sub; 


WriteCCSeg = Ptr. Seg); TRUE > 


end. 


Wykonanie programu powoduje wyprowadzenie napisu TRUE. 


Z OZ R YN O o 


Dec 
Nazwa Dec — dekrementacja zmiennej 
Deklaracja procedure 

DecCvar x; 

n : longint) 

Modut System 
Opis Dekrementacja x o wartość n. 
Uwagi Argument skojarzony z x może być nazwą zmiennej 


8 — Turbo Pascal 5,0 


dowolnego typu porządkowego, a argument skojarzo— 


ny z n może być dowolnym wyrażeniem całkowi Łym. 
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Porównaj 


Przyklad 
< Dec > 


uses 
Crt; 


var 


Days : 


begin 


Wykonanie procedury Dec dla pierwszego argumentu 


Łypu typ sprowadza się do wykonania operacji 
tyYPCOO := Łypllongint(© — n) 


Jeśli funkcja Dec zostanie wywołana z jednym ar- 
gumentem, Ło domniema się, Że drugi argument rep- 
rezentuje daną o wartości 1. 


Inc, Succ 


CMon, Tue,Wed, Ihu,Fri „Sat ,SunD; 


ClrSer; 


Days 


:= Fri; 


DecC Days ,20); 
DecCć Days); 


WriteCDays = Tue); TRUE > 


end. 


Wykonanie programu powoduje wyprowadzenie napisu TRUE. 


Delay 

Nazwa Delay — wstrzymanie wykonywania programu 

DeRlaracja procedure 
DelayCms : word) 

Modut Crt 

Opis Wstrzymanie wykonywania programu na okres ms 
milisekund. 

Uwagt Czas wyrażony przez ms stanowi jedynie przybliże” 
nie faktycznego czasu wstrzymania wykonywania 
programu. 

Przyktad 

< Delay > 
uses 
Crt; 
var 
Letter : ”a'..'z'; 
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begin 


CirScer; 
for Letter := "a' to 'z' do begin 
WriteC(Letter :2,0G; 
DelayC 20) 
end 
end. 


Wykonanie programu powoduje miarowe wyprowadzanie liter od 


a do z. Wyprowadzenie każdej litery kończy Sygnał dźwiękowy. 


Delete 


Nazwa Delete — usunięcie podciągu znaków 
Deklaracja procedure 
Deletelvar source : string; 
index : integer; 
count : integer) 
Modut System 
Opis Usunięcie z source, podciągu liczącego count 
znaków zaczynającego się od znaku o numerze 
index. 
Uwagi Jeśli index > LengthCsource), to wykonanie proce— 
dury nie wywołuje żadnych skutków. Jeśli 
index + count — 1 > LengthCsource) 


Ło ostatnim usuniętym znakiem jest ostatni znak 


source. 
Przyklad 
< Delete > 
uses 
Crt; 
const 


MyFullName : string[20] = 
»Jan Andrzej Bielecki"; 


begin 
CirSer; 
DeleteCMyFul1lName,5,8D; 
WriteCMyFullName);  € Jan Bielecki » 


end. 


Wykonanie programu powoduje wyprowadzenie napisu Jan Bielecki. 
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Nazwva DelLine — usunięcie wiersza 


Deklaracja procedure 


DelLine 
Modul Crt 
Opis Usunięcie z okienka tekstowego, wiersza wyróżnio- 


nego przez kursor. Przesunięcie wierszy położo- 
nych niżej o jeden wiersz do góry. Wstawienie na 
dole okienka jednego wiersza pustego. 

Uwagi Jeśli kolorem tła nie jest czerń, to wiersz pusty 
zostanie wypełniony spacjami w kolorze określonym 
przez procedurę TextBackground. 


Porównaj InsLine, Window 


Przyklad 
< DelLine >» 


uses 
Crt; 


var 
Drop : char; 


begin 
ClrSer; 


WritelnC'"Ewa Bielecka”); 
WritelnC('Iza Bielecka'); 
WritelnC'Jan Bielecki'); 


GotoXYC5,20); 


repeat until KeyPressed; 
Drop := ReadKey; 


DelLine; 
repeat until KeyPressed 


end. 


Wykonanie programu powoduje wyprowadzenie trzech wierszy 
tekstu, a po naciśnięciu dowolnego klawisza klawiatury usu- 


nięcie wiersza Środkowego. 


DetectGraph 


Nazwa Detect6raph — rozpoznanie karty graficznej 
Deklaracja procedure 
DetectóraphCvar d : integer; 


var m : integerJ 


ModutT Graph 

Opis Rozpoznanie karty graficznej, a następnie przypi — 
sanie zmiennej d danej o wartości równej numerowi 
karty, a zmiennej m danej o wartości równej nume— 
rowi domniemanego trybu graficznego. 

Uwagi Dane przypisane d i m mogą być wykorzystane w 
procedurze InitGraph do ustanowienia trybu gra-— 
ficznego. W istocie, wywołanie tej procedury z 
pierwszym argumentem o wartości Detect <O> powo— 
duje niejawne wywołanie procedury DetectGraph. 
Numery kart i trybów mogą być wyrażone za pomocą 
następujących symboli: 


Symbol karty 


Detect — automatyczne rozpoznanie karty 
graficznej <O> 
CGA — karta CGA <€1> 
MCGA — karta MCGA <2> 
EGA — karta EGA <3> 
EGAG4 — karta EGA64 <€4> 
EGAMono — karta EGAMono <S5> 
I BM8S51 4 — karta IBM8514 <6> 
Her cMono — karta Hercules €7> 
ATT400 — karta ATT400 <8 
VGA — karta VGA <9> 
PC3270 — karta PC3270 <1O> 


Symbol trybu 


CGACO — 3820 x 200, paleta O <O> 
CGAC1 — 320 x 200, paleta 1 <1> 
CGAC2 — 380 x 200, paleta 2 <2> 
CGAC3 — 32820 x 200, paleta 3 <3> 
CGAHi — 640 x 200, 1 strona (4> 
MCGACO — 380 x 200, paleta O <O> 
MCGAC1 — 320 x 200, paleta 1 (1> 
MCGAC2Z — 320 x 200, paleta e <a> 
MCGAC3 — 3280 x 200, paleta 3 <S3> 
MCGAMed — 640 x 200, 1 strona <4> 
MCGAHi — 640 x 480, 1 strona <5> 
EGALo0O — 640 x 200, 16 kolorów, 4 strony <0o) 
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EGAHi — 640 x 350, 16 kolorów, 2 Strony (1) 
EGA64Lo0 — 640 x 200, 16 kolorów, 1 strona <O> 
EGAG64Hi — 640 x 350, 4 kolory, 1 strona <i> 
EGAMonoHi — 640 x 350, 

64K na karcie, 1 strona <3> 

256K na karcie, 2 strony <3» 


HercMonoHi — 720 x 348, 2 strony <O> 

ATT400CO0 — 3280 x 200, paleta O <O> 

ATT400C1 — 320 x 200, paleta 1 <1> 

ATT400C2 — 32820 x 200, paleta £ Ce 

ATT400C3 — 320 x 200, paleta 3 <3> 

ATT40OMed — 640 x 200, 1 strona <4> 

ATT400Hi — 640 x 400, i strona <5> 

VGALo — 640 x 200, 16 kolorów, 4 strony <O> 
VGAMed — 640 x 350, 16 kolorów, 2 strony <1> 
VGAHi — 640 x 480, 16 kolorów, 1 strona <2> 
PC3270Hi — 720 x 350, 1 strona <O> 

IBM8514Lo — 640 x 480, 2565 kolorów <O> 


IBM8514Hi — 1024 x 768, 256 kolorów <1> 


Porównaj GraphResult, InitGraph 


Przyklad 


< DetectGraph > 


uses 
Crt ,Graph; 


const 
Drivers : array(1i..10] of stringl8] = 
C ”CGA', '"MCGA', "”EGA*, ”EGAG64'", 
"EGAMono' ,”?7??','HercMono', 
*"ATT400' ,”VGA' „,”PC3270' 2; 
var 
Driver ,Mode : integer; 
begin 
ClrSer; 
DetectGr aphC Driver , Mode) ; 
WritŁeCDrivers[Driver ]) 


end. 


Wykonanie programu powoduje rozpoznanie karty graficznej i 


wyprowadzenie jej nazwy. 
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DiskFree 


Nazwa 


DeRlarac ja 


Porównaj 


Przyklad 


DiskFree — wyznaczenie wolnej przestrzeni dysku 
function 

DiskFreeCdrive : word) : longint 

Dos 

Utworzenie danej typu longint o wartości równej 
rozmiarowi wolnej przestrzeni dysku o numerze 
porządkowym drive, wyrażonemu w bajtach. 

Dysk bieżący ma numer porządkowy O, dysk A ma 
numer 1, dysk B numer 2, itd. Jeśli w systemie 
nie istnieje dysk o podanym numerze porządkowym, 
to rezultatem funkcji DiskFree jest dana o war— 
tości -—1. 

DiskSize, GetDir 


< DiskFree > 


uses 


Crt, Dos; 


begin 


C1rSer; 
WriteCDiskFreeCOD shr 20, 


end. 


» megabytes free on current drive') 


Wykonanie programu powoduje określenie pojemności wolnej 


przestrzeni dysku bieżącego i wyrażenie jej w megabajtach. 


DiskSize 

Nazwa DiskSize — wyznaczenie pojemności dysku 

Deklaracja function 
DiskSizeCdrive : word) : longint 

ModuT Dos 

Opts Utworzenie danej typu longint o wartości równej 
pojemności dysku o numerze porządkowym drive, 
wyrażonemu w bajtach. 

Uwagt Dysk bieżący ma numer porządkowy O, dysk A ma 


numer i, dysk B numer 2, itd. Jeśli w Systemie 
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nie istnieje dysk o podanym numerze porządkowym, 
Ło rezultatem funkcji DiskSize jest dana o war- 
tości -1i. 

Porównaj DiskFree, GetDlir 


Przyklad 


<« DiskSize > 


uses 
Crt „Dos; 


begin 
CirSer; 


Writel "Current disk size is >», 
DiskSizeCO0 shr 20,' megabytes”') 


end. 


Wykonanie programu powoduje określenie pojemności dysku bie- 


żącego i wyrażenie jej w megabajtach. 


Dispose 


Nazwa Dispose — zwolnienie zmiennej dynamicznej 


Deklaracja procedure 


Disposećvar p : pointer> 


Modut System 

Opis Zwolnienie ze sterty, uprzednio przydzielonej 
zmiennej wskazanej przez p. 

Uwagi Zaleca się przyjmować, że po wykonaniu procedury 
Dispose, p jest przypisane wskazanie nieokreślo- 
ne. 

Porównaj FreeMem Release 

Przyklad 


<« Dispose > 


uses 
Crt; 


type 

BigArray = arrayli..60,1..1000] of char; 
var 

Ref : "BigArray; 

Availi,Avail2 : longint; 


begin 


C1rScer; 

Availl := MaxAvail; 
NewC Ref); 

Avail2 := MaxAvail; 
DisposeCRef); 


WritelnCAvail1l — Avail2>; < 60000 > 
WriteCMaxAvail = Avail1D); ( TRUE > 


end. 


Program ilustruje skutki użycia procedury Dispose. Jego wyko— 
nanie powoduje wyprowadzenie liczby 60000 i napisu TRUE. 


DosEx1i ŁCode 


Nazwa DosExitCode — udostępnienie kodu powrotu 

Deklaracja function 
DosExitCode : word 

Modul Dos 

Opis Utworzenie danej typu word o wartości równej 
kodowi powrotu podprocesu. 

Opts Kod powrotu jest złożony z dwóch bajtów. Dolny 
bajt pochodzi z podprocesu, a górny określa spo- 
sób zakończenia podprocesu: O — zakończenie nor— 
malne 1 — zakończenie wywołane przez Ctrl-C, 

2 — zakończenie spowodowane błędem operacji 
wejścia-wyjścia, 3 — zakończenie spowodowane wy— 
konaniem procedury Keep. 


Porównaj Exec, Halt, Keep 


Przyklad 


<« DosExitCode > 


uses 
Dos ,Crt; 


<$M $4000,0,0 > 

begin 
ClrSer; 
ExecC 'MyProgi3.exe' ,'"'); 
WritelnCDosExitCode); << 13 >» 


end. 
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C WADEAAAOERIERIEAOLRIERIDEZECIERIEDCIEE 
<« MyProgi3 >» 
begin 
Ha1tC(130); 
end. 


IABAABOBBEOOERIEEIAOOCIEAERIOAIEIENIERIEJEIEDED 


Program ilustruje użycie funkcji DosExitCode. Założono, Że 
wykonanie procedury Exit powoduje wykonanie programu zamiesz- 


czonego w komentarzu. Wykonanie programu głównego powoduje 
wyprowadzenie liczby 13. 


DosVersion 


Nazwa DosVersion — udostępnienie wersji systemu DOS 


DekRlarac ja function 
DosVersion : word 
ModuT Dos 


Opts Udostępnienie danej typu word, której dolny bajt 


określa główny numer wersji systemu DOS, a górny 
bajt określa poboczny numer wersji. 
Uvagi Na przykład, w systemie DOS 3.30, dolny bajt ma 


wartość 3, a górny ma wartość 30. 
Przyklad 


<« DosVersion >» 
uses 
Dos; 


type 
VerType = record 


Major,Minor : byte 
end; 


var 
Version : word; 


begin 


Version := DosVersion; 
with VerTypelVersion) do 


WritelnC'DOS ',Major,'.*,Minor); < DOS 3.30 > 


end. 


W systemie DOS 3.30, wykonanie programu powoduje wyprowadze- 
nie napisu DOS 3.30. 


DrawPoly 


Nazwa 


Deklaracja 


Modul 
Opis 


Uvagt 


Porównaj 


Przyklad 


DrawPoly — wykreślenie linii łamanej 
procedure 
DrawPolyC(count : word; 

var points) 
Graph 
Wykreślenie linii łamanej składającej się z count 
punktów, których współrzędne Cx,y) następują ko- 
lejno po sobie w obszarze pamięci zlokalizowanym 
przez points. 
System musi być w trybie graficznym. Każda para 
współrzędnych jest określona przez dwie dane typu 
integer. Wykreślenie wielokąta wymaga podania 
ostatniej pary współrzędnych identycznej z pierw-— 
szą. 
FillPoly, GetLineSettings, GraphResult, SetColor, 
SetLineStyle 


< DrawPoly > 


uses 
Crt,Graph; 
const 
Tetragon : arrayl[i..5] of PointlType = 
CC x : 1Oz y : 105, 
C x : 80; y : 405, 
C x : 30; y : 705, 
cx 40; y : 505, 
c x 10; y : 10 DD; 
var 
Driver „Mode : integer; 
begin 
Driver := Detect; 


InitGraphCDriver „Mode, '"'D; 
if GraphResult <> grOK then 
HaltC1)D; 


DrawPolyCS5, Tetragon); 


repeat until KeyPressed; 


CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie czworokąta. 
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DSeg 


Nazwa DSrg — udostępnienie zawartości rejestru danych 
Deklaracja function 
Dseg : word 
Modut System 
Opis Utworzenie danej typu word identycznej z daną 
przypisaną rejestrowi DS procesora. 
Porównaj CSeg, DSeg, SSeg 
Przyklad 
< DSeg >» 
uses 
Crt; 
var 
Fix : integer; 
PŁr : record 
Off,Seg : word 
end; 
Ref : pointer absolute Ptr; 
begin 
ClrSer; 
Fix := 13; 
Ref := ©Fix; 


WriteC(DSeg = Ptr. Seg); < TRUE > 


end. 


Wykonanie programu powoduje wyprowadzenie napisu TRUE. 
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Ellipse 
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Nazwa 


Deklarac ja 


Modut 
Opts 


Uvagi 


Ellipse — wykreślenie elipsy 
procedure 
EllipseCx,y : integer; 
angb,ange : word; 
xrad,yrad : word) 
Graph 
Wykreślenie łuku elipsy o środku w punkcie Cx,y) 
i półosiach xrad i yrad, począwszy od kąta angb, 
a skończywszy na kącie ange. 
System musi być w trybie graficznym. Kąty angb 
i ange są wyrażone w stopniach. Wykreślanie odby- 


Porównaj 


Przyklad 


wa się w kierunku przeciwnym do ruchu wskazówek 
zegara. Dla angb=0 i ange=360 jest wykreślana peł-— 
na elipsa. 

Arc, Circle, GetArcCoords, GetAspectRatio, 
PieSlice 


< Ellipse > 


uses 


Crt,Graph; 


VAT 


xCen,yCen : integer; 
xRad,yRad : integer; 


Driver „Mode : integer; 
begin 
Driver := Detect; 


InitGraphC Driver ,Mode, * "2; 
if GraphResult <> grOK then 


HaltC1D; 
xCen := GetMaxX div 2; 
yCen := GetMaxY div 2; 
xRad := 150; 
yRad := 1OO; 


EllipseCxCen,yCen,O,360, xRad,yRad); 


repeat until KeyPressed; 


CloseGr aph 


end. 


Wykonanie programu powoduje wykreślenie elipsy usytuowanej 


w środku ekranu. 


EnvCount 

Nazwa EnvCount — udostępnienie liczby łańcuchów 

Deklaracja function 
EnvCount : integer 

Modut Dos 

Opis Udostępnienie liczby łańcuchów Środowiska systemu 
DOS. 

Uwagi Każdy łańcuch ma postać var = str. 

Porównaj EnvStr, GetEnv 


Przykl' ud 


< EnvCount > 


uses 
Dos; 


VaT 


Env : 


begin 


byte; 


for Env := 1 to EnvCount do 
WritelnCEnvStrCEnvD.D 


end. 


Wykonanie programu powoduje wyprowadzenie wszystkich łańcu- 


chów środowiska systemu DOS. 


Nazwa 


DeRlarac ja 


Modut 
Opis 


Uvagi 


Porównaj 


Przyklad 


EnvStr - udostępnienie łańcucha środowiska 
function 

EnvStrCnum : integer. : string 

Dos 

Udostępnienie tego łańcucha środowiska systemu 
DOS, który ma numer num. 

Pierwszy łańcuch środowiska ma numer 1. Jeśli 
Num < 1 albo gdy Num > EnvCount, to rezultatem 
funkcji jest pusty łańcuch znaków. 

EnvCount, GetEnv 


< EnvString > 


uses 
Dos; 


begin 


WritelnCEnvStrCEnvCountD>3J 


end. 


Wykonanie programu powoduje wyprowadzenie ostatniego łańcu- 


cha środowiska systemu DOS. 
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Eof 


Nazwa Eof — rozpoznanie końca pliku 

Deklaracja function 
EofCvar fD : boolean 

Modul System 

Opis Utworzenie danej typu boolean o wartości logicz— 
nej zdania pttk tdentyfikowany przez / enajduje 
stę v pozycji Rońcowej. 

Uvagt Plik identyfikowany przez f musi być otwarty. 
Jeśli funkcja Eof zostanie wywołana jako bezargu- 
mentowa, to domniema się plik identyfikowany 
przez Input. Niepomyślne wykonanie funkcji Eof 
powoduje powstanie błędu wejścia-wyjścia. 

Porównaj Eoln 

Przyklad 

< Eof >» 

uses 
Gr tŁ; 

var 
Doc file; 

begin 
ClrSer; 
Assign(ćDoc, ' JanB. doc 'D; 
Rewri tel Doc) ; 


WriteCEofCDocJ);  « TRUE > 


end. 


Wykonanie programu powoduje wyprowadzenie napisu TRUE. 


Eoln 
Nazwa Eoln — rozpoznanie końca wiersza 
Deklaracja function 
EolnCvar (f : text) : boolean 
Modut System 
Opis Utworzenie danej typu boolean o wartości logicz— 


nej zdania płtik tdentyjtkowany przez f znajduje 
się w pozycji przed końcem wiersza, albo vw po— 


zycji Rońcowej. 
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Uvagi Plik identyfikowany przez £f musi być otwarty. 
Jeśli funkcja Eoln zostanie wywołana jako bez-— 
argumentowa, to domniema się argument Input. Nie- 
pomyślne wykonanie funkcji Eoln powoduje powsta- 
nie błędu wejścia-wyjścia. 

Porównaj Eof 

Przyklad 

< Eoln > 
uses 
Crt; 
var 
Doc : text; 
Drop : char; 
const 
AStŁ : char = "*'; 
begin 
ClrSer; 
Assign(Doc, ' JanB. doc”); 
Rewri ŁeC Doc) ; 
WriteC( Doc, Ast); 
CloseC Doc); 
ResetCDoc); 
WritelnCEoln(Doc)); << FALSE >» 
ReadC Doc , Drop); 
Wri telnCEolnCDoc)); < TRUE > 
end. 


Program ilustruje zasadę rozpoznawania końca wiersza. Jego 


wykonanie powoduje wyprowadzenie napisów FALSE i TRUE. 
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Erase 
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Nazwva Erase — usunięcie zbioru 

DeRlaracja procedure 
EraseCvar (fD) 

Modul System 

Opis Usunięcie zbioru skojarzonego z plikiem identyfi- 
kowanym przez f. 

Uwagi Argumentem procedury Erase musi być nazwa zmien- 
nej plikowej. Plik identyfikowany przez £f nie mo- 
że być otwarty. Niepomyślne wykonanie procedury 
powoduje powstanie błędu wejścia—wyjścia. 

Porównaj Rename 


Przyklad 


<« Erase > 


uses 
Crt; 


var 
Doc 


begin 


file; 


ClrSer; 
AssignC Doc ,ParamStrCc10D0D; 


<$I -> 


EraseC Doc); 


L$I +> 


if IOResult <> O then 
WriteC 'Spurious erase') 


end. 


Program ilustruje użycie procedury Erase. Jeśli usuwany zbiór 


nie istnieje, to zostanie wyprowadzony komunikat Spurious 


erase. 
Exec 
Nazwa Exec — wykonanie zadanego programu 
Deklaracja procedure 
ExecCprog : string; 
parm : string) 
Modut Dos 
Opis Wykonanie programu prog i przekazanie mu paramet— 
rów parm. 
Uwagi Wykonanie procedury Exec wymaga dostarczenia wy— 


konywanemu programowi dostatecznie dużego obszaru 
sterty. W tym celu konieczne jest użycie właści — 
wej dyrektywy <$M >. Jeśli ma być wykonana wew— 
nętrzna dyrektywa systemu DOS, to należy posłużyć 
się programem command.com z opcją /C. Kod powrotu 
wykonywanego programu może być odzyskany za pomo— 
cą funkcji DosExitCode. Niepomyślne wykonanie 
procedury Exec powoduje, że zmiennej DosError 


zostanie przypisana dana o wartości 


2 — nie znaleziono zbioru 


8 — brak pamięci 


10 — niewłaściwe środowisko operacyjne 


11 — niepoprawne pole wejściowe 


Porównaj DosExi ŁCode 
Przyklad 
< Exec > 
uses 
Crt, Dos; 
L$m $4000,0,0 >» 
begin 
ClrSer; 


ExecCl 'NCommand.com','/C dir %.exe'D 


end. 


Wykonanie programu powoduje wyprowadzenie na ekran konsoli 


wykazu nazw zbiorów z rozszerzeniem .EXE. 


Exit 
Nazwa Exit — zakończenie wykonywania bloku 
Deklaracja procedure 
Exit 
HModut System 
Opis Zakończenie wykonywania najwęższego bloku Cfunk- 


cji, procedury albo programu) obejmującego wywo” 
łanie procedury Exit. 

Uwvagi Wykonanie procedury Exit ma taki sam skutek jak 
wykonanie instrukcji goto wiodącej do słowa klu- 
czowego end kończącego najwęższy blok obejmujący 
wywołanie tej procedury. 

Przyklad 


< Bbdt >» 
uses 
Crt; 


procedure Sub; 
begin 

WritelnC( 'Before Exit"); 

Exit; 

WritelnC'After Exit'; (C - > 
end; 


begin 
Sub; 
WritelnC'Finish') 
end. 
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Wykonanie programu nie powoduje wyprowadzenia napisu 


After Exit. 


Exp 


Nazwa Exp — wyznaczenie potęgi 
Deklaracja function 


ExpCXxO : real/extended 


Modul System 
Opts Utworzenie danej typu real/extended o wartości 
e”. 
Uvagt Argumentem funkcji Exp może być dowolne wyrażenie 
rzeczywiste albo całkowite. 
Przyktad 
< Exp > 
uses 
Crt; 
begin 


WriteCExpC10D0 :4:2); € 2.72 » 


end. 


Wykonanie programu powoduje wyprowadzenie liczby 2.72 . 


Z O A W 


FExpand 


o w 


Nazwa FExpand — utworzenie nazwy w pełni kwalifikowanej 

DeRlaracja function 
FExpandCname : PathStr> : PathStr 

Modut Dos 

Opis Udostępnienie łańcucha znaków stanowiącego w 
pełni kwalifikowaną nazwę zbioru name. 

Uwagi Nazwa w pełni kwalifikowana składa się z 
określenia numeru stacji, Ścieżki katalogów, 
części głównej nazwy i rozszerzenia. Wszystkie 
zawarte w niej litery są duże. 


Porównaj FindFirst, FindNext, FSplit 
Przyklad 


< FExpand > 


uses 
Dos; 
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var 
Name : PathStr; 


begin 
Name := FExpandC'KILL.PAS'); € C: NIPSSKILL.PAS > 
WritelnCName) 

end. 


Wykonanie programu powoduje wyprowadzenie w pełni kwalifiko- 


wanej nazwy zbioru KILL. PAS. 


FilePos 


Nazwa FilePos — ujawnienie pozycji pliku 

Deklaracja function 
FilePosCvar f2 : longint 

Modut System 

Opis Utworzenie danej typu longint, o wartości równej 
liczbie tych elementów otwartego pliku identyfi- 
kowanego przez f(, które poprzedzają jego pozycję 
bieżącą. 

Uwagi Argumentem funkcji FilePos musi być nazwa zmien- 
nej plikowej identyfikująca plik blokowy albo 
elementowy. Niepomyślne wykonanie funkcji FilePos 


powoduje powstanie błędu wejścia-wyjścia. 
Porównaj FileSize, Seek 


Przyklad 


<« FilePos >» 
uses 
Crt; 


var 
Doc : file of char; 
i : byte; 


const 
Name : string[12] = "Jan Bielecki”; 


begin 


ASssignCDoc, * JanB. doc”); 
Rewri tŁeC Doc) ; 


for i := 1 to i2 do 
Wri teCDoc,Name(1]D; 


SeekC Doc ,5); 
WriteCFilePos(Doc)); < 5 > 
end. 
Wykonanie programu powoduje wyprowadzenie liczby 5. 
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FileSize 


Nazwa 


Deklaracja 


Modut 
Opis 


Uwvagt 


Porównaj 


Przyklad 


FileSize — ujawnienie liczby elementów pliku 
function 

FileSizeCvar fDO : longint 

System 

Utworzenie danej typu longint, o wartości równej 
liczbie elementów otwartego pliku identyfikowane—- 
go przez ff. 

Argumentem funkcji FileSize musi być nazwa zmien— 
nej plikowej identyfikująca plik blokowy albo 
elementowy. Niepomyślne wykonanie funkcji 
FileSize powoduje powstanie błędu wejścia-wyjś— 
cia. 


FilePos 


< FileSize > 


uses 
Crt; 


type 


Matrix = arrayl[1i..100,1..1OO0] of word; 


var 
Doc 
J 


Ar r 


begin 


file of Matrix; 


byte; 


Matrix; 


CirSer; 


AssignCDoc, ' JanB. doc"); 
Rewriteć Doc); 


FillCharCArr „,SizeOfCMatrix „OD; 


for 


:= 1 to 3 do 


WriteCDoc,ArrDJD; 
Closel Doc); 


ResetC Doc); 
WriteCFileSize(Docd); < 3 > 


end. 


Wykonanie programu powoduje wyprowadzenie liczby 3. 
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Fi111Char 


Nazwa FillChar — wypełnienie obszaru pamięci 
Deklaracja procedure 
FillCharCvar x; 


count : word; 
ch : byteJ) 
Modul System 
Opis Wypełnienie obszaru pamięci zlokalizowanego 
przez x, count danymi bajtowymi o wartości ch. 
Uwagi Argument skojarzony z ch może być dowolnym wyra- 


żeniem porządkowym. Argument ten jest poddawany 


niejawnej konwersji byteCOrdCargJ). 
Porównaj Move 


Przyklad 
< FillChar > 


uses 
Crt; 


var 
Fix : integer; 


begin 
ClrScer; 
FillCharCFix,2,$ff); 
WriteCFi0O; ( -1 > 


end. 


Wykonanie programu powoduje wyprowadzenie liczby —1. 


NN m 
FillEllipse 


NNN——Nl.,.„.„DNrNr NL” ówna 


Nazwa FillEllipse -— wykreślenie wypełnionej elipsy 
DeRlarac ja procedure 


FillEllipseCx,y : integer; 
xrad,yrad : word); 


Modul Graph 

Opis Wykreślenie wypęlnionej elipsy o środku w punkcie 
Cx,y) i półosiach xrad i yrad. 

Uwagi System musi być w trybie graficznym. Elipsa jest 


wypełniana bieżącym wzorem i ograniczona linią w 
bieżącym kolorze. 
Porównaj Arc, Ellipse, PieSlice, SetFillStyle 
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Przyklad 


< FillEllipse > 


uses 
Crt,Graph; 


var 
Driver ,Mode : integer; 


begin 


Driver := Detect; 
InitGraphC Driver „Mode, * 'D; 


if GraphResult <> grOK then 
HaltC1D; 


FillEllipseC(GetMaxX div 2,GetMaxY div 2,150,10032D; 
repeat until KeyPressed; 
CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie trzech wypełnionych 
ćwiartek elipsy. 


FillPoly 


Nazwa FillPoly — wypełnienie wielokąta 

Deklaracja procedure 
FillPolyClcount : word; 

var points) 

Modut Graph 

Opts wypełnienie zadanym wzorem wielokąta o count 
wierzchołkach, których współrzędne znajdują się 
w obszarze pamięci zlokalizowanym przez points. 

Uwagi System musi być w trybie graficznym. Każda para 
współrzędnych jest określona przez dwie dane typu 
integer. Wzór i kolor wypełnienia prostokąta może 
być określony za pomocą procedury SetFillStŁyle 
albo SetFillPattern. Niepomyślne wykonanie proce— 
dury FillPoly powoduje, że rezultatem funkcji 
GraphResult jest dana o wartości 


grNoScanMem — brak pamięci do wypełnienia 


obszaru metodą Scan <-5> 
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Porównaj 


Przyklad 


DrawPoly, GetFillSettings, GetLineSettings, 
GraphResult, SetFillPattern, SetFillStyle, 
SetLi neStyle 


< FillPoly » 


uses 


Crt ,Graph; 


VaT 


Driver ,Mode : integer; 


const 


Tetragon : arrayli..4]) of PointlType = 


begin 


Driver 


(CC x: 10; y : 105, 

C x : 80; y : 405, 

C x: 30; y : 703, 

C x : 40; y : 50 20; 
:= Detect; 


InitGraphCDriver „Mode, ' 'D; 
if GraphResult < grOK then 
HaltC1); 


SetFillStŁyleCxHatchFil1 ,GetMaxColor2; 
FillPolyC4,Tetragon); 


repeat until KeyPressed; 


CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie czworokąta i wypeł - 
nienie go wzorem xHatchFill Cpor. SetFillStyle>. 


KANKNNONOSNENENNNNNNNNNNNONNNENONNCEEENEENEEEEEEEEEEEEEEE 


FindFirst 


|...” _m—_—„Ź„_.Qmml r 


Nazwva 


Deklaracja 


Modut 
Opis 
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FindFirst — wyszukanie pierwszego zbioru o poda” 
nych cechach 
procedure 
FindFirstCpath : string; 

attr : byte; 

var s : SearchRec) 
Dos 
Wyszukanie pierwszego zbioru należącego do zesta” 
wu określonego przez path Cnp. path=".*' doty” 
czy wszystkich zbiorów bieżącego katalogu), opat” 
rzonego atrybutami attr i umieszczenie rezultatu 


wyszukania w s. 


Uvagt 


Porównaj 


Jeśli wyszukanie dotyczy zwyklych zbiorów, to 
attr=O0. Rozszerzenie wyszukiwania na zbiory spec— 
Jalne wymaga określenia attr jako sumy atrybu- 
Łów dodatkowych. Atrybuty te mogą być wyrażone 

za pomocą następujących Symboli: 


ReadOnly — zbiór tylko do odczytu <$01> 


Hidden — zbiór ukryty <$02> 
SysFile — zbiór systemowy <$04> 
VolumelD — etykieta woluminu <$08> 


Directory — podkatalog <$10> 
Archive — zbiór archiwalny <$%20> 
AnyFile — dowolny zbiór lub etykieta wolumi — 
nu <$3F2> 
W szczególności attr=ReadOnly+SysFile powoduje 
wyszukanie zbioru, który może być zablokowany 
przed zapisem albo systemowy. Po zakończeniu wy— 
szukiwania, informacje o zbiorze są umieszczane 
w rekordzie typu SearchRec. Typ SearchRec jest 
zdefiniowany następująco 
type 
SearchRec = record 

Fill : array[1..21] of byte; 

Attr : byte; 

Time : longint; 

Size : longint; 

Name : Sstringli2]j 

end; 

W rekordzie tym, pole Fill jest wykorzystywane 
przez system, pole Attr określa sumę atrybutów 
zbioru, pole Time zakodowany czas utworzenia albo 
czas ostatniej modyfikacji zbioru, pole Size roz— 


miar zbioru, a pole Name nazwę zbioru. 


Niepomyślne wykonanie procedury FindFirst powodu— 
je. że zmiennej DosError zostanie przypisana dana 


o wartości 


2 — nie znaleziono katalogu 


18 — nie znaleziono zbioru 


FinaNext 
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Przyklad 


< FindFirst > 


uses 


Crt, Dos; 


var 


InfoRec : SearchRec; 


begin 


CirSer; 
FindFirstC '*.exe' ,O,lnfoRec); 


with InfoRec do 
Wri ŁeC Name) 


end. 


Wykonanie programu powoduje wyszukanie jakiegokolwiek zbioru 


z rozszerzeniem .EXE, należącego do bieżącego katalogu, a 


następnie wyprowadzenie jego nazwy. 


NAKZZEZZZENNEEEEEZENNNNNZENNNNONEEEEENNNNONNNNNNNNENENENEEEEEEEEZ A 


FindNext 


a ———— a )))Q0Qg 


Nazwa 
DekRlarac ja 
Modut 


Opis 


Uvagi 


Porównaj 
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FindNext — wyszukanie następnego zbioru o poda- 
nych cechach 

procedure 

FindNextC(var s : SearchRecJ) 

Dos 

Wyszukanie następnego zbioru o cechach określo- 
nych w wywołaniu procedury FindFirst i umieszcze” 
nie informacji o tym zbiorze w s. 

Wykonanie procedury FindNext musi być poprzedzone 
wywołaniem procedury FindFirst. Zmienna rekordowa 
wymieniona w wywołaniu procedury FindNext musi 
być tą samą zmienną, którą wymieniono w wywołaniu 
procedury FindFirst. Niepomyślne wykonanie proce” 
dury FindNext powoduje, że zmiennej DosError zos” 


tanie przypisana dana o wartości 
18 — nie znaleziono zbioru 


Oznacza to, że lista zbiorów o podanych cechach 
została wyczerpana. 
FindFirst 


Przyklad 
< FindNext > 


uses 
Crt, Dos; 


var 
InfoRec : SearchRec; 

begin 
C1rScer; 
FindFirstC'C: "jb-%*' ,Directory,InfoRec); 


while DosError = O do begin 
if CInfoRec. Attr and Directory) <> O then 
WritelnCInfoRec. NameJ; 
FindNextCInfoRec) 
end 


end. 


Wykonanie programu powoduje wyprowadzenie nazw wszystkich 
podkatalogów katalogu głównego dysku Ć, których nazwy zaczy- 
nają się od znaków jb- . 


FloodFi11 


Nazwa. FloodFi1ll — wypełnienie obszaru zadanym wzorem 

Deklaracja procedure 
FloodFillCx,y : integer; 

border : word) 

Hodut Graph 

Opts Wypełnienie zadanym wzorem wnętrza obszaru obej— 
mującego punkt o współrzędnych Cx,y) ograniczo— 
nego linią, której numer koloru jest określony 
przez border. 

Uwagi System musi być w trybie graficznym. Jeśli punkt 
o współrzędnych Cx,y) znajduje się poza obszarem, 
to wypełnieniu podlega zewnętrze obszaru ograni — 
czone obrzeżem okienka graficznego. Wykonywanie 
procedury korczy Się przedwcześnie po wyprowadze— 
niu dwóch linii pustych. Wzór i kolor wypełnienia 
obszaru może być określony za pomocą procedury 
SetFillStyle albo SetFillPattern. Niepomyślne wy-— 
konanie procedury FloodFill powoduje, że rezulta— 


tem funkcji GraphResult jest dana o wartości 
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grNoFloodMem — brak pamięci do wypełnienia 
obszaru metodą flood <—=72 


Porównaj FillPoly, SetFillPattern, SetFillStyle 


Przyklad 


<« FloodFill >» 
uses 
Crt,Graph; 


const 
Triangle : array[1i..4] of PointType = 
(Cx : 50; y : 100), 


Cx : 100; y : 1002), 
Cx : 150; y : 150), 
Cx : 50; y 10000; 


var 
Driver „Mode : integer; 


begin 


Driver := Detect; 

InitGraphCDriver ,Mode, ' "2; 

if GraphResult <> grOK then 
HaltC1D; 


DrawPolyć4, Triangle); 
FloodFi11CO0,0,GetMaxColorD; 
repeat until KeyPressed; 
CloseGraph 


end. 


Wykonanie programu powoduje wypełnienie zewnętrza trójkąta 


o zadanych wierzchołkach. 


Nazwa Flush — wyczyszczenie bufora 
DeRlaracja procedure 


FlushCvar £(£ : text) 


Hodut System 
Opis Wyczyszczenie bufora pliku identyfikowanego przez 1. 
Uwagt Plik identyfikowany przez f musi być otwarty. 


Jeśli został otwarty za pomocą procedury Reset, 
to wywołanie procedury Flush nie wywołuje żadnych 
skutków. Niepomyślne wykonanie procedury Flush 
powoduje powstanie błędu wejścia-—wyjścia. 


Porównaj Close 
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Przyktad 


< Flush > 


Save : text; 


AssignCSave, ' JanB. doc”; 
RewriteCSave); 


WritelnCSave, 'Kajusia*'D; 
FlushCSave)D; 


HaltC1D 


end. 


Wykonanie programu powoduje umieszczenie w zbiorze JanB. doc 
napisu Kajusia. Dzieje się tak dzięki temu, że wykonanie pro— 


cedury Halt zostało poprzedzone wyczyszczeniem bufora pliku. 


Frac 


Nazwa Frac — udostępnienie części ułamkowej 
Deklaracja function 
FracCxO : real/extended 
Opis Utworzenie danej typu real/extended o wartości 
równej wartości części ułamkowej x. 
Uwagt Argumentem funkcji Frac może być dowolne wyraże— 


nie rzeczywiste albo całkowite. 


Przyklad 


< Frac >» 


uses 
Crt; 


begin 
CirSer; 
WriteCFracCExpC1D00 :4:20; <€ 0.72 >» 


end. 


Wykonanie programu powoduje wyprowadzenie liczby O.72 . 


Nazwa FreeMem — zwolnienie obszaru przydzielonego na 
stercie 

Deklaracja procedure 
FreeMem(var p : pointer; 

size : word) 

Opis Zwolnienie ze sterty obszaru o rozmiarze size 
bajtów wskazanego przez p i przydzielonego uprzed- 
nio za pomocą procedury GetMem. 

Uwagi Zaleca się przyjmować, że po wykonaniu procedury 
FreeMem, p jest przypisane wskazanie nieokreślone. 

Porównaj Dispose, GetMem, Release 

Przyklad 

< FreeMem >» 
uses 
Crt; 
var 
Ref : pointer; 
Availi ,Avail2 : longint; 
const 
SIZE = 20000; 
begin 
CLrSer; 


Availi := MaxAvail; 
GetMemC Ref , SIZEJ ; 


Avail2 := MaxAvail; 
FreeMemCRef ,SIZEJ); 


WritelnCAvaili — Avail2); < 20000 > 
WriteCAvaili = MaxAvail); < TRUE > 


end. 


Program ilustruje skutki użycia procedury FreeMem. Jego wyko- 
nanie powoduje wyprowadzenie liczby 20000 oraz napisu TRUE. 


FSearch 
Nazwa FSearch — wyszukanie zbioru w katalogach 
Deklaracja function 
FSearchC(name : PathStr; 
list : string” : PathStr 
Modut Dos 


Opis Przeszukanie katalogów określonych przez list, w 
celu odnalezienia zbioru name. W przypadku od-— 
nalezienia zbioru, udostępnienie łańcucha znaków, 
stanowiącego złączenie nazwy katalogu w którym 
znaleziono zbiór i nazwy zbioru. 

Uvagti Nazwy katalogów są oddzielone średnikami. Jeśli 
zbiór nie zostanie znaleziony w żadnym z podanych 
katalogów, rezultatem funkcji jest łańcuch pusty. 
Typ PathStr jest zdefiniowany następująco 


Łype 
PathStr = string.[79]; 
Przyklad 
<« FSearch > 
uses 
Dos; 
var 


Name : PathStr; 


begin 
Name := FSearchC ' TURBO. EXE", ' NPASCAL;.. ; NIPSO'3D; 


if Name <> "'*' then 
WritelnCName) 

else 
Writel "File not found” 


end. 


Wykonanie programu powoduje odszukanie zbioru w jednym z 
podanych katalogów. Jeśli jest nim katalog NPASCAL, nastąpi 
wyprowadzenie napisu NPASCALNTURBO. EXE. 


FSplit 


Nazwa FSplit -— rozkład nazwy zbioru na składowe 
Deklaracja procedure 
FSplitŁCname : PathStr; 
var dir : DirStr; 
var main : NameStr; 
var ext : ExŁSŁrDJ 
Hodut Dos 
Opis Rozłożenie nazwy zbioru name na jego składowe: 
ścieżkę katalogową dir, część główną main i 


rozszerzenie ext. 
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Jeśli zbiór zbiór określony przez name nie 
istnieje, zmiennym dir, main i ext są 
przypisywane puste łańcuchy znaków. 

Typy PathStr, DirStr, NameStr i ExtStr są zde- 


finiowane następująco 


type 
PathStr = stringl79]; 
DirStr = stringl67]; 
NameStr = stringl[8)]; 
ExtŁStr = stringl4]; 


Porównaj FExpand 
Przyklad 
< FSplit > 
uses 
Dos; 
var 
Dir DirStr; 
Name : NameStr; 
Ext ExtStr ; 
begin 


FSplitC' C: NPASCALNTURBO. EXE” „Dir „Name,ExtŁ2); 
WritelnCName+Ext,' in ',DirJ; 


end. 


< TURBO.EXE in C: PASCALN > 


Wykonanie programu powoduje wyprowadzenie napisu podanego w 


komentarzu. 
GetArcCoords 
a_a 
Nazwa GetArcCoords — określenie współrzędnych łuku 
Deklaracja procedure 
GetArcCoordsCvar coords : ArcCoordsType) 
Hodut Graph 
Opis Przypisanie coords danej rekordowej określającej 
parametry łuku okręgu wykreślonego za pomocą pro” 
cedury Arc. 
Uwagi System musi być w trybie graficznym. Typ 
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ArcCoordsType jest zdefiniowany następująco 


type 
ArcCoordsType = record 
x,y : integer; 
xStart,yStart : integer; 
xEnd,yEnd : integer 
end; 
Pola x 1 y określają współrzędne środka okręgu, 
pola xStart i yStart określają współrzędne po—- 
czątku łuku, a pola xEnd i yEnd określają współ — 
rzędne końca łuku. 


Porównaj Arc, Ellipse, PieSlice 
Przykład 


< GetArcCoords > 


uses 
Crt ,Graph; 


var 
Driver „Mode : integer; 
ArcCoords : ArcCoordsType; 


begin 


Driver := Detect; 

InitGraphCDriver „Mode, ''D; 

if GraphResult <> grOK then 
HaltC1D; 


ArcCGetMaxX div 2,GetMaxY div 2,0,180,100D; 
Get Ar cCoor dsC ArcCoordsD; 


with ArcCoords do 
LineCxStart,yStart,xEnd,yEnd); 


SetFillStŁyleCxHatchFi11,GetMaxColor); 

FloodFi11CO,O,GetMaxColor); 

repeat until KeyPressed; 

CloseGraph 

end. 

Wykonanie programu powoduje wykreślenie łuku okręgu, połącze— 
nie końców łuku odcinkiem linii prostej, a następnie wypeł— 
nienie zewnętrza powstałego półokręgu wzorem xHatchFill Cpor. 
SetFillSŁyleD. 


GetAspectRatio 


Nazwa GetŁASpectRatio — wyznaczenie aspektu ekranu 
Deklaracja procedure 

GetAspectRatioC(var xasp,yasp : word) 
Modut Graph 
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Opis Przypisanie xasp i yasp danych typu word, na 
podstawie których można określić aspekt ekranu. 
Uvagi System musi być w trybie graficznym. Posłużenie 


się aspektem wyrażonym jako xasp/yasp umożliwia 
wykreślanie prostokątów wyglądających Jak kwadra 
ty i elips wyglądających jak okręgi. 


Porównaj Arc, Circle, GetMaxX, GetMaxY, PieSlice 


Przykład 


< GetAspectRatio >» 
uses 

Crt,Graph; 
var 


Driver ,Mode : integer; 
xASp,yAsp : word; 
xSide,ySide : integer; 


begin 


Driver := Detect; 
InitŁGraphCDr i ver „Mode, ” 'D; 
if GraphResult <> grOK then 


HaltC10D; 
GetAspectRatioCxASp,yAsp); 
xSide := 100; 
ySide := RoundC(CxASp / yAsp) %* xSide); 


RectangleCO,O0,xSide,ySide); 
repeat until KeyPressed; 
CloseGraph 

end. 


Wykonanie programu powoduje wykreślenie prostokąta, który ma 


wygląd zbliżony do kwadratu. 

GetBkColor 

did 

Nazwa GetBkColor — określenie koloru tła 

DeRlaracja function 
GetBkColor : word 

Hodut Graph 

Opis Utworzenie danej typu word o wartości równej nu” 
merowi tej pozycji palety, która określa kolor 
tła. 

Uwagi System musi być w trybie graficznym. Jeśli rezul- 
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tatem funkcji jest dana o wartości n, to kolor 


tła jest określony przez n-tą pozycję palety. 
W przypadku karty Hercules kolor tła może być 
tylko czarny, a rezultatem funkcji GetBkColor 


jest dana o wartości O. 


Porównaj GetColor, GetPalette, InitGraph, SetAllPalette, 
SetBkColor, SetColor, SetPalette 
Przyklad 
< GetBkColor > 
uses 
Crt,Graph; 
var 
Driver ,Mode : integer; 
Drop : char; 
begin 
Driver := Detect; 


Ini ŁGraphCDriver „Mode, ' ”D; 
if GraphResult <> grOK then 
HaltC1D; 


Line(O,O,GetMaxX div 2 »%* 2, 


GetMaxY div 2 = 2); 


repeat until KeyPressed; 


Drop 


:= ReadKey; 


SetCol or C GetBkColorDJ; 
LineCO,O,GetMaxX div 2,GetMaxY div 20; 


repeat until KeyPressed; 


CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie przekątnej ekranu, a 


po naciśnięciu dowolnego klawisza klawiatury usunięcie z ek— 


ranu połowy tej przekątnej. 


GetCBreak 
Nazwa GetCBreak — ujawnienie redakcji na Ctrl-Break 
DekRtaracja procedure 
GetCBreaklvar break : boolean) 
HAoduT Dos 
Modut Przypisanie zmiennej break, danej typu boolean 


wyrażającej prawdziwość zdania przed każdym 
wywolaniem funkcji systemowej sprawdza stę, czy 


nactśnięto klawisz Ctrt-Break. 


Uwagi Jeśli break = false, sprawdzanie następuje tylko 
podczas wykonywania operacji wejścia-wyjścia 
związanych z konsolą, drukarką i łączami szerego- 
wymi. 

Porównaj SetCBreak 


Przyklad 


<« GetCBreak >» 


uses 
Dos; 


var 
Break : boolean; 


begin 


GetCBreaklBreakD); 
Writeln(Break); FALSE > 


end. 


Wykonanie programu powoduje wyprowadzenie napisu FALSE. 


Nazwa GetColor — udostępnienie numeru koloru 
Deklaracja function 


GetColor : word 
Modut Graph 


Opis Utworzenie danej typu word o wartości równej 
numerowi bieżącego koloru. 

Uwagi System musi być w trybie graficznym. Jeśli rezul- 
Łatem funkcji GetColor jest dana o wartości n, to 
bieżący kolor jest określony przez n-tą pozycję 
palety. W przypadku karty Hercules, rezultat o 
wartości O oznacza kolor czarny, a rezultat o 
wartości 1 oznacza kolor biały. 

Porównaj GetBkColor, GetPalette, InitGraph, SetAllPalette. 
SetColor, SetPalette 


Przyklad 


< GetColor > 


uses 
Crt ,Graph; 


var 
Driver ,Mode : integer; 


i : byte; 
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begin 


Driver := Detect; 
Ini £GraphCDr i ver „Mode, *'); 


if CGraphResult <> grOK)> or CDriver <> HercMono) then 
HaltC1D; 


for i := 1 to 15 do begin 


LineC0O,O,GetMaxX ,OJ; 
SetColorC1 — GetColor); 
Del ayC 400) 


end; 
repeat until KeyPressed; 
CloseG6raph 


end. 


Wykonanie programu może dotyczyć jedynie monitora sterowanego 
przez kartę Hercules. W takim przypadku następuje przemienne 
wykreślanie i wycieranie linii poziomej usytuowanej wzdłuż 


górnego obrzeża ekranu. 


GetDate 
Nazwa GetDate — podanie daty 
Deklaracja procedure 
GetDateCvar year : word; 
var month : word; 


var day : word; 
var dayofweek : word) 
Hodut Dos 
Opts Przypisanie year danej określającej rok 
C1980..2099D>, month danej określającej miesiąc 
C1..122, day danej określającej dzień C1..313 
i dayofweek danej określającej liczbę dni które 
minęły od niedzieli CO..6). 


Porównaj GetTime, SetŁDate, SetTime 
Przyklad 
< GetDate > 
uses 
Crt, Dos; 
const 


Days : arraylO..6] of stringl61 = 
C”Sun', Mon”, Tues”, 'Wednes', 
"TIhurs"”,'Fri”,'Satur'J; 


var 
Day,Drop : word; 


begin 
C1rSer; 
GetDateC Drop, Drop,Drop,DayD; 
WriteC "Today is ',DayslDay]l, 'day') 


end. 


Wykonanie programu powoduje wyprowadzenie nazwy bieżącego 


dnia tygodnia. 


o 


GetDefaultPalette 
[hd y[/]//Żtt4,4,4444444,4 4 U ćdć_ćć22222222220224,., _—_—_—<ŃŹ| | |||.dÓóÓd.o/„ „oma 


Nazwa GetDefaultPalette — podanie domniemanej palety 

Deklaracja function 
GetDefaultPaletteCvar pal : PaletteType. 

PalettelType 

Hodut Graph 

Opis Przypisanie pal takiej palety jaka jest ustawiana 
w ramach wykonania procedury InitGraph. 

Uwagi System musi być w trybie graficznym. Typ Palette- 
Type jest zdefiniowany następująco 


type 
PaletteType = 
record 
Size : byte; 
Colors : array[O..MaxColors] of shortint; 
end. 
Porównaj GetPalette, InitGraph, SetAllPalette, SetPalette 


Przyklad 
<« GetDefaultPalette > 


uses 
Crt,Graph; 


var 
Driver ,Mode : integer; 
OldPal ,NewPal : PaletteType; 
Drop : char; 


begin 


Driver := Detect; 
InitGraphCDr iver „Mode, ” '); 


if GraphResult <> grOK then begin 
WritelnC'Fail"'); 
HaltC1D 

end; 


SetColorC1); 
Out TextC 'Hello'JD; 


Del ayC20002; 


while not KeyPressed do begin 
with NewPal do 


Colorsl1] := Random(SizeD); 
SetAllPalettećNewPalD) 
end; 
Drop := ReadKey; 


GetDefaultPaletteCOldPalD; 
SetAllPaletteCOldPalD; 
Del ayC2000); 


CloseGraph 


end. 


Wykonanie programu powoduje wyprowadzenie napisu Hello w 


dwóch 


różnych kolorach. Program zaczyna się i kończy wyś— 


wietleniem napisu w tym samym kolorze. 


GetDi r 


Nazwa 


GetŁDir — podanie nazwy katalogu 


Deklaracja procedure 


GetDirld : byte; 


var Ss : string) 
Modut System 
Opis Potraktowanie d jako numeru porządkowego dysku 
CO — dysk bieżący, 1 — dysk A, 2 — dysk B, itd.J,, 
a następnie przypisanie s danej łańcuchowej 
określającej nazwę bieżącego katalogu stacji d. 
Uwagi Pierwszym argumentem procedury GetDir może być 
dowolne wyrażenie całkowite. Niepomyślne wykona— 
nie procedury GetDir powoduje powstanie błędu 
wejścia-—wyjścia. 
Porównaj ChDir, MkDir, RmDir 
Przyktad 
< GetŁDir > 
uses 
Crt; 
var 


Dir : string; 


begin 
ClrScer; 
GetDirCO,Dir); 
WriteC 'Current directory is ',DirJ 


end. 


Wykonanie programu powoduje wyprowadzenie nazwy katalogu bie- 


Żącej stacji dyskowej. 


GetDriverName 


Nazwa GetDriverName — udostępnienie nazwy sterownika 

Deklaracja function GetDriverName : string 

Modut Graph 

Opis Udostępnienie łańcucha znaków stanowiącego nazwę 
bieżącego sterownika graficznego. 

Uwagi System musi być w trybie graficznym. 

Porównaj DetectGraph, InitGraph 


Przyklad 


<« GetDriverName > 
uses 
Crt, Graph; 


var 
Driver ,Mode : integer; 
Name : string; 


begin 


Driver := Detect; 
Ini tGraphCDriver „Mode, *" ”); 


if GraphResult <> grOK then 


HaltC1); 
Name := GetDriverName; 
CloseGraph; 
WritelnCName);  HERC > 
end. 


Wykonanie programu w środowisku z kartą Hercules spowoduje 


wyprowadzenie napisu HERC. 
am — 


GetEnv 
[O ..............d.Ó.ÓóóÓ«/ÓÓóÓóŚdóÓó.óÓóó i... 
Nazwa GetEnv — udostępnienie łańcucha Środowiska 


Deklaracja function 

GetEnvCenv : string : string 
Hodut Dos 
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Opis Udostępnienie tego łańcucha Środowiska, który ma 
nazwę określoną przez env. 

Uvagti W nazwie name nie są odróżniane małe i duże lite-— 
ry. Jeśli łańcuch name nie istnieie, rezultatem 
funkcji jest pusty łańcuch znaków. 

Porównaj EnvCount, EnvStr 

Przyktad 

< GetEnv > 


uses 
Dos; 


var 
Env : string; 


begin 


Env := GetEnvC '"PROMPT"'D; 
WritelnCEnvo>; ( $p$g > 


end. 
Wykonanie programu powoduje wyprowadzenie wartości łąńcucha 
PROMPT, np. $%p$g. 


GetFAttr 


Nazwa GetŁFAtŁtr — określenie atrybutów zbioru 

Deklaracja procedure 
GetFAtŁtŁrCvar f£; 

var attr : word) 

Modul Dos 

Opis Przypisanie attr atrybutów zbioru skojarzonego 
z plikiem identyfikowanym przez f. 

Uwvagt Plik identyfikowany przez f musi być skojarzony 
ze zbiorem, ale nie może być otwarty. Poszczegól — 
ne atrybuty zajmują w attr pozycje bitowe i mogą 
być analizowane za pomocą masek utworzonych z 


następujących symboli: 


ReadOnly — zbiór tylko do odczytu <$01> 
Hidden — zbiór ukryty <S$02> 

SysFrile — zbiór systemowy <$04> 
VolumelD — etykieta woluminu <C$082> 
Directory — podkatalog <$10> 


Archive — zbiór archiwalny <C$20> 
AnyFile — dowolny zbiór <$3F> 
Porównaj GetFTime, SetFAttr, SetTime 
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Przyklad 


< GetFAttr > 


uses 


Crt „Dos; 


var 


Doc : 
Attr : 


begin 
CirSer; 


file; 
word; 


Assign(Doc,ParamStrć10D0D; 
GetŁFAtŁtrC Doc, AŁtrJ; 


WritecC" 


File *,ParamStrC1),” is "J; 


if CAttr and ReadOnly) = O then 
WriteC'not *”D; 


WriteC” 


end. 


ReadOnly') 


Wykonanie programu powoduje wyprowadzenie informacji o tym. 


czy zbiór o 


nazwie określonej przez pierwszy parametr progra” 


mu jest zbiorem tylko do odczytu. 


GetFillPattern 


Nazwa 


DekRlarac ja 


Hodut 
Opis 


Porównaj 


GetFillPattern — ujawnienie wzoru wypełniania 
obszarów 
procedure 
GetFillPattern(var pattern : FillPatternTypeD 
Graph 
Przypisanie pattern danej tablicowej określającej 
zaprojektowany przez użytkownika wzór wypełniania 
obszarów. 
System musi być w trybie graficznym. [Typ 
FillPatternType jest zdefiniowany następująco 

type 

FillPatternType = array[1i..8)J of byte; 

Jeśli przed wywozaniem procedury GetFillPattern 
nie wywołano procedury SetFillPattern, to posz” 
czególnym elementom pattern zostaną przypisane 
dane o wartości $ff. 
SetFillPattern, SetFillStyle 


Przyklad 


< GetŁFiLLl1Pattern > 


uses 


Crt,Graph; 


var 


Driver „Mode : integer; 
Pattern : FillPatternType; 


i : 
begin 


Driver 


byte; 


:= Detect; 


InitGraphC Driver ,Mode, * *D; 
if GraphResult <> grOK then 
HaltC1D; 


GetFillPatternCPattern); 


for i 


:= 1 to 8 do 


if OddCiD> then 


Pattern[i] := O; 


SetFillPatternCPattern, GetŁMaxColorD); 
FloodFi11C0,O0,GetMaxColor); 
CloseGraph 


end. 


Wykonanie programu powoduje zmianę wzoru domniemanego i wy- 


pełnienie ekranu rzadko rozstawionymi liniami poziomymi. 


GetFillSettings 


Nazwa 


Deklaracja 


GetFillSettings — ujawnienie wzoru wypełniania 


obszarów 

procedure 

GetFillSettingsCvar info : FillSettingslIype) 
Graph 

Przypisanie info danej rekordowej typu 


FillSettingsType określającej wzór do wypełniania 
obszarów oraz numer koloru do wykreślania linii. 
System musi być w trybie graficznym. Typ 
FillSettingsType jest zdefiniowany następująco 
type 
FillSettingsType = record 
Pattern : word; 
Color : word 
end; 

Pole Pattern podaje numer wzoru wybranego za po— 


mocą procedury SetFillStyle CO..112 albo określo- 
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Porównaj 


nego za pomocą procedury SetFillPattern C12), a 


pole Color podaje numer koloru, który będzie uży- 


ty do wypełniania obszarów. Numery wzorów wypeł- 


niających mogą być wyrażone za pomocą następują- 


cych symboli: 


EmptyFil1 — 
SolidFil11 — 
LineFill — 


LŁSlashFi11 - 
SlashFill —- 


BkSlashFill — 


LtBkSlashFi1l — 
HatchFill — 
xHatchFill — 
InterleaveFi1l — 


WideDotFill — 
CloseDotFil1l — 


Przyklad 
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€ GetFillSettings >» 


uses 
Crt,Graph; 


var 


wypełnienie kolorem tła <O> 
wypełnienie ciągłe <1> 
wypełnienie pogrubionymi liniami 
poziomymi <2> 

wypełnienie liniami pochyłymi <3»> 
wypełnienie pogrubionymi liniami 
pochyłymi <4> 

wypełnienie pogrubionymi liniami 
ukośnymi <5> 

wypełnienie liniami ukośnymi <6> 
wypełnienie siatką pionową <7> 
wypełnienie siatką ukośną <8> 
wypełnienie liniami spleciony- 
mi <8> 

wypełnienie kropkami C10> 
wypełnienie zagęszczonymi krop” 
kami <11> 


FillPoly, SetFillPattern, SetFillStyle 


FillSettings : FillSettingsType; 


Driver ,Mode : integer; 
begin 
Driver := Detect; 


InitGraphCDr liver ,Mode, "JD; 
if GraphResult <> grOK then 


HaltC10; 


SetFillStŁyleCxHatchFi11 ,GetMaxColorDJ; 

CircleCGetMaxX div 2,GetMaxY div 2,500); 
FloodFillCGetMaxX div 2,GetMaxY div 2,GetMaxColor); 
GetFillSettingsCFillSettings>; 


with FillSettings do 
if Pattern = xHatchFill then 
Out TextŁXYCO,O, 'xHatchFi1l1"D; 


repeat until KeyPressed; 
CloseGraph 


end. 


Program ilustruje sposób rozpoznania bieżącego wzoru wypeł— 


niania obszarów. 


GetFTime 


Nazwa GetŁFTime — ujawnienie czasu utworzenia albo ostat— 
niej modyfikacji zbioru 

Deklaracja procedure 
GetFTimeCvar (f; 


var time : longint) 
Hodut Dos 


Opts Przypisanie time zakodowanego czasu utworzenia 
albo ostatniej modyfikacji zbioru skojarzonego 
z plikiem identyfikowanym przez (f. 

Uwagi Plik identyfikowany przez f musi być otwarty. Ża— 
kodowany czas może być rozkodowany za pomocą pro- 
cedury UnpackTime. Niepomyślne wykonanie procedu— 
ry GetFTime powoduje przypisanie zmiennej 


DosError danej o wartości 


6 — niewłaściwy uchwyt zbioru 


Porównaj SetFTime, PackTime, UnpackTime 


Przyktad 


< GetŁFTime > 


uses 
Crt, Dos; 


var 
CodedTime : longint; 
Uncodedlime : DateTime; 
Doc : file; 


begin 
ClrSer; 


AssignCDoc, ' JanB. doc” D; 
ResetC Doc); 


GetFTi meć Doc ,CodedlIi me) ; 
UnpackTi mel CodedTi me, UncodedTi me); 


with UncodedTime do 
WriteCYear,'.',Month,”.”,„DayJ 


end. 


Wykonanie programu powoduje wyprowadzenie daty utworzenia 


albo ostatniej modyfikacji zbioru JanB. doc 


GetGraphMode 


Nazwa 


DekRlarac ja 


Hodut 


Opis 


Uwagi 


Get6raphMode — ujawnienie bieżącego trybu gra— 
ficznego 

function 

GetGraphMode : integer 

Graph 


Utworzenie danej typu integer o wartości równej 
numerowi bieżącego trybu graficznego. 

System musi być w trybie graficznym. Rezultatem 
jest dana o wartości O..5 określająca numer try- 
bu ustanowionego za pomocą procedury InitGraph 
albo SetGraphMode. Numery trybów mogą być wyra- 
żone za pomocą następujących symboli: 


CGACO — 320 x 200, paleta O <O> 

CGACI1 — 3820 x 200, paleta 1 <i> 

CGAC2 — 320 x 200, paleta 2 <2> 

CGAC3 — 3820 x 200, paleta 3 <3> 

CGAHi — 640 x 200, 1 strona <4> 

MCGACO — 320 x 200, paleta O <O> 

MCGACI1 — 380 x 200, paleta 1 <1> 

MCGACZ — 320 x 200, paleta 2 <2> 

MCGAC3 — 380 x 200, paleta 3 <3> 

MCGAMed — 640 x 200, 1 strona <4> 

MCGAHIi — 640 x 480, 1 strona <5> 

EGALo — 640 x 200, 16 kolorów, 4 strony X0> 
EGAHi — 840 x 3560, 16 kolorów, 2 strony (12 
EGAG4Lo0 — 640 x 200, 16 kolorów, 1 strona (O> 
EGAG4Hi — 640 x 3560, 4 kolory, 1 strona <12> 


EGAMonoHi — 640 x 3600, 


64K na karcie, 1 strona <3> 
256K na karcie, 2 strony <3> 


HercMoncHi — 720 x 348, 2 strony <O> 


ATT400CO — 320 x 200, paleta O XO> 

ATT400C1i — 3820 x 200, paleta 1 <1> 

ATT400C2Z — 380 x 200, paleta 2 <2> 

ATT400C3 — 380 x 200, paleta 3 <3> 

ATT40OMed — 640 x 200, 1 strona <4> 

ATT400Hi — 640 x 400, 1 strona <5> 

VGALo — 640 x 200, 16 kolorów, 4 strony <O> 

VGAMed — 640 x 350, 16 kolorów, 2 strony <i> 

VGAHi — 640 x 480, 16 kolorów, 1 strona <2> 

PC3270Hi — 720 x 350, 1 strona <O> 

IBMB6514Lo — 640 x 480, 256 kolorów <O> 

IBM8514Hi — 1024 x 768, 256 kolorów (1 
Porównaj ClearDevice, DetectGraph, InitGraph, 


RestoreCrtMode, SetGraphMode 


Przyklad 
< GetGraphMode > 


uses 
Crt,Graph; 


var 
Driver „Mode : integer; 


begin 


Driver := Detect; 

InitGraphC Driver „Mode, ' "2; 

if GraphResult <> grOK then 
HaltC1D; 


if Driver = HercMono then begin 
RestoreCr Mode; 
WriteCGetGraphMode = HercMonoHi);  € IRUE > 
Readln; 
SetGr aphModeć Mode) ; 
end; 


repeat until KeyPressed; 
CloseGraph 


end. 


Wykonanie programu w systemie z kartą Hercules powoduje wy- 


prowadzenie napisu TRUE. 


Getlmage 


Nazwa GetIlmage — zapamiętanie obrazu 
Deklaracja procedure 
GetImage(xi ,yl : integer; 
x2,y2 : integer; 
var bitmapJ 
Modut Graph 
Opts Wyodrębnienie w obrębie bieżącego okienka gra- 
ficznego prostokątnego obszaru, którego przeciw- 
ległe wierzchołki mają współrzędne Cxi „y1) i 
(x2,y2), a następnie zapamiętanie obrazu zawar- 
tego w tym prostokącie w obszarze zlokalizowanym 
przez bitmap. System musi być w trybie graficz- 
nym. Zaleca się, aby rozmiar obszaru był określo- 
ny za pomocą procedury ImageSize. 


Porównaj ImageSize, PutlImage 


Przyklad 


< GetImage > 


uses 
Crt, Graph; 


var 
Driver „Mode : integer; 
Ref : polnter; 
Drop : char; 

begin 


Driver := Detect; 

InitGraphCDriver ,Mode,”*); 

if GraphResult <> grOK then 
HaltC1D; 


LineCO, 0, GeŁMaxX , GetMaxY); 


GetMemCć Ref , ImageSi ze O, O, GetMaxX , GeŁMaxYJD; 
Get1mageCO, O, GeŁMaxX , GeŁMaxY ,Ref*2; 


repeat until KeyPressed; 

Drop := ReadKey; 
ClearViewPort; 
PutlImageCO,O,Ref*,NormalPut); 
repeat until KeyPressed; 
CloseGraph 


end. 


Program ilustruje zapamiętanie i odtworzenie obrazu. 
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GetlIntVec 


Nazwa 


DekRLarac ja 


Hodut 
Opts 
Uwvagt 


Porównaj 


Przyklad 


GetIntVec — zapamiętanie wektora przerwań 
procedure 
GetIntVecCnum : byte; 


var vec : polnter) 
Dos 


Przypisanie vec wektora przerwań o numerze num. 


Numer wektora jest liczbą z przedziału O..255 . 


SetI ntVec 


<« GetIntVec > 


uses 


Crt ,Dos; 


VaT 


Ref 


Count 


Drop 
<$F+> 


pointer; 
word; 
char; 


procedure TimerCFlags,CS,IP,AX,BX,CX,DX, 


SI,DI,DS,ES,BP : word); 


interrupt; 


begin 


IncClCount); 


end; 
<$F-> 


begin 


GetI ntVec(l$1C,RefD; 
SetI ntŁVecC $1C, ©Timer); 


writel "GD; 
if KeyPressed then 


Drop 


Count 


:= ReadKey; 
:= O; 


repeat until KeyPressed; 
SetI nŁVecC$1C,RefD; 
wri ŁeC Count) 


end. 


Wykonanie programu powoduje zbadanie czasu reakcji. Pomiar 


zaczyna się w chwili wydania sygnału dźwiękowego i kończy 


w chwili naciśnięcia dowolnego klawisza klawiatury. 
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GetLineSettings 


Nazwa GetLineSettings — ujawnienie parametrów linii 
Deklaracja procedure 
GetLineSettings(var info : LineSettingsType) 
Hodut Graph 
Opis Przypisanie info danej rekordowej typu 
LineSettingsType określającej rodzaj, wzór i gru- 
bość linii. 
Uwagi System musi być w trybie graficznym. Typ 
LineSettingsType jest zdefiniowany następująco: 
type 
LineSettingsType = record 
LineStyle : word; 
Pattern : word; 
Thickness : word 
end; 
Pole LineStyle określa numer rodzaju linii. Jeśli 
numerem tym jest UserBitLn Cpor. dalej), to pole 
Pattern określa wzór linii. Pole Thickness okreś- 
la grubość linii. Wartości danych przypisanych 
polu LineStyle mogą być wyrażone za pomocą nastę- 
pujących symboli: 
SolidLn — linia ciągła <O> 
DottedLn — linia kropkowa <1> 
CenterLn — linia centrowana <2> 
DashedLn — linia przerywana <3> 
UserBitLn — linia zdefiniowana <4> 
Wartości danych przypisanych polu Thickness mogą 
być wyrażone za pomocą następujących symboli: 
NormWidth — linia cienka <1> 
ThickWidth — linia pogrubiona <3> 
Polu Pattern może być przypisany dowolny wzór 
16-bi towy. 
Porównaj SetLi neStyle 
Przyklad 
< GetLineSettings > 
uses 
Crt, Graph; 
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var 


LineSetting : LineSettingsType; 


Driver „Mode : integer; 
Mask : word; 
i : byte; 
begin 
Driver := Detect; 


InitGraphCDriver „Mode, ' *); 
if GraphResult <> grOK then 

HaltC1D; 
SetLi neStyleCUserBitLn, $8f ,NormWwidth); 
LineCO,GetMaxY div 2,GetMaxX,GetMaxY div 20); 
GetLi neSettings(LineSetting); 


Mask := $800O; 
with LineSetting do 
for i := 1 to 16 do begin 


if CPattern and Mask) <> O then 
Out TextC ' 3*'D 


else 
Out Text". "2; 
Mask := Mask shr 1 
end; 


repeat until KeyPressed; 
CloseGraph 
end. 
Wykonanie programu powoduje wykreślenie linii dzielącej ekran 


na połowy, a następnie ujawnienie jej wzoru. 


GetMaxColor 


Nazwa GetŁMaxColor — ujawnienie maksymalnego numeru 
koloru 

Deklaracja function 
GetMaxColor : word 

HModut Graph 

Opis Utworzenie danej typu word o wartości równej 


maksymalnemu numerowi koloru. 


Uwagi System musi być w trybie graficznym. 
Porównaj SetColor 
Przyktad 


< GetMaxColoer > 
uses 

Crt,Graph; 
var 


Driver „Mode : integer; 
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begin 


Driver := Detect; 

InitGraphCDriver „Mode, '"D; 

if GraphResult <> grOK then 
HaltC10D; 


SetCol or ( GetMaxColor); 
LineTol GetMaxX „OD; 


repeat until KeyPressed; 


CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie odcinka linii prostej 


w kolorze o maksymalnym numerze. 


z 


GetMaxMode 


ZZ AC 


Nazwa 


Deklaracja 


Modul 
Opis 


Uwagi 


Porównaj 


Przyklad 


GetMaxMode — Udostępnienie maksymalnego trybu 
function 


GetMaxMode : word 

Graph 

Udostępnienie danej typu word określającej maksy” 
malny numer trybu dla bieżącego sterownika gra” 
ficznego. 

System musi być w trybie graficznym. Każdy ste- 
rownik zapewnia posługiwanie się trybami z zakre- 
su O.. GetMaxMode. 

GetModeRange, SetGraphMode 


< GetMaxMode >» 


uses 


Graph; 


Var 


Driver ,Mode : integer; 


begin 


Driver := HercMono; 
Ini ŁGraphCDriver ,Mode, *' '); 


if GraphResult <> grOK then 
HaltC13); 


Mode : 


= GetMaxMode; 


CloseGraph; 
WritelnC'HercMono max mode = ”,Mode); CO > 


end. 
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Wykonanie programu w środowisku z kartą Hercules spowoduje 


wyprowadzenie liczby O. 


GetMaxX 


Nazwva 


Deklarac ja 


Hodut 


Opis 


Uvagt 


Porównaj 


Przyklad 


GetMaxX — ujawnienie maksymalnej współrzędnej po- 
ziomej ekranu graficznego 

function 

GetMaxX : integer 

Graph 

Utworzenie danej typu integer o wartości równej 
maksymalnej współrzędnej poziomej ekranu graficz— 
nego. 

System musi być w trybie graficznym. Współrzędne 
poziome należą do przedziału O..GetMaxX . 
GetMaxY, GetX, GetY, Movel[o 


<« GetŁMaxX > 


uses 


Crt,Graph; 


VAT 


Driver „Mode : integer; 


begin 


Driver 


:= Detect; 


InitGraphC Driver „Mode, '""'); 
if GraphResult <> grOK then 
HaltC1D; 


LinecO,O,GetMaxX,OJ; 


repeat until KeyPressed; 


CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie odcinka linii prostej 


wzdłuż górnego obrzeża ekranu. 


i 


GetMaxY 


a R O ai 


Nazwa 


DekRlarac ja 


Modut 


GetŁMaxY — ujawnienie maksymalnej współrzędnej 
pionowej ekranu graficznego 

function 

GetMaxY : integer 

Graph 


Opis 


Uwagi 


Porównaj 


Przyklad 


Utworzenie danej typu integer © wartości równej 
maksymalnej współrzędnej pionowej ekranu graficz” 
nego. 

System musi być w trybie graficznym. Współrzędne 
pionowe należą do przedziału O. . GetŁMaxY 

GetŁMaxX, GetX, GetY, Movel[o 


< GetMaxY » 


uses 


Cr t,Graph; 


VAT 


Driver „Mode : integer; 


begin 


Dr i ver 


:= Detect; 


InitGraphCDriver „Mode, ' "2; 
if GraphResult <> grOK then 
HaltC1D; 


LineC0,0,0,GetMaxYJ; 


repeat until KeyPressed; 


CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie odcinka linii prostej 


wzdłuż lewego obrzeża ekranu. 


Nazwa GetMem — utworzenie zmiennej dynamicznej 
Deklaracja procedure 
GetMemCvar p; 
size : word) 
Modut System 
Opis Przydzielenie na stercie, obszaru pamięci © roz" 
miarze size bajtów i przypisanie p znor malizowa” 
nego wskazania przydzielonego obszaru. 
Uwagi Pierwszym argumentem procedury GetMem może być 
nazwa zmiennej wskazującej dowolnego typu. 
Porównaj New, FreeMem 
Przyklad 
< GetMem > 
uses 
Crt; 


type 
IntPtr = Cinteger; 


var 
Ref : pointer; 


const 
Fix : integer = 13, 


begin 
CLlrSer; 
GetMemC Ref ,SizeOfCintegerJ); 
MoveCFix,Ref",SizeOfCintegerJ); 
WriteCIntPtrCRefD"2; << 13 > 
end. 


Wykonanie programu powoduje wyprowadzenie liczby 13. 


GetModeName 
Nazwa GetModeName — udostępnienie nazwy trybu 
Deklaracja function(mode : word) : string 
Modul Graph 
Opis Udostępnienie łańcucha znaków, określającego 
nazwę trybu graficznego mode. 
Uwagi System musi być w trybie graficznym. Nazwa trybu 
jest zawarta w kodzie sterownika. 
Porównaj GetMaxMode, GetModeRange 
Przyklad 
< GetModeName > 
uses 
Graph; 
var 
Driver „Mode : integer; 
Name : string; 
begin 
Driver := HercMono; 


InitGraphCDriver ,Mode, '"D; 


if GraphResult <> grOK then 
HaltC1D; 


Name: = GetModeNameC OD; 
CloseGr aph; 


WritŁelnC 'Mode = ” + NameJ; 
< Mode = 720 x 348 HERCULES > 


end. 
Wykonanie programu w Środowisku z kartą Hercules powoduje wy- 


prowadzenie napisu podanego w komentarzu. 


278 


GetModeRange 


Nazwa GetModeRange — ujawnienie zakresu trybów graficz— 
nych 
Deklaracja procedure 


GetModeRangeldriver : integer; 


var lomode : integer; 
var himode : integer) 
Modul Graph 
Opis Przypisanie lomode najniższego, a himode najwyż”- 
szego numeru trybu karty graficznej o numerze 
driver. 
Uwagi Jeśli numer karty nie należy do przedziału 1..10. 


Ło zmiennym lomode i himode zostaną przypisane 
dane o wartości -—1. Numery kart graficznych mogą 


być wyrażone za pomocą następujących symboli: 


CGA — karta CGA <1> 
MCGA — karta MCGA <2> 
EGA — karta EGA <3> 


EGA64 — karta EGA64 <4> 
EGAMono — karta EGAMono <5> 
1BM8514 — karta IBM8514 <6> 
HercMono — karta Hercules <7> 
ATT400 — karta ATT400 <8> 
VGA — karta VGA <9> 
PC3270 — karta PC3270 <1O> 
Porównaj DetectGraph, InitGraph 


Przyklad 
< GetModeRange > 


uses 
Crt,Graph; 

var 
Driver ,Mode : integer; 
LoMode,HiMode : integer; 


begin 
GetModeRangeC HercMono, LoMode , Hi Mode) ; 
WritelnC 'LoMode = ',LoMode); <0O > 
WriteC 'HiMode = ' ,HiMode); «O > 
end. 
Wykonanie programu powoduje określenie zakresu dopuszczal nych 
trybów karty Hercules. 
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GetPalette 


Porównaj 


GetPalette — ujawnienie bieżącej palety kolorów 
procedure 
GetPaletteCvar palette : Palettelr[ypeD 
Graph 
Przypisanie palette danej rekordowej Łypu 
PaletteType określającej rozmiar palety kolorów 
oraz identyfikatory kolorów przypisane poszcze— 
gólnym pozycjom tej palety. 
System musi być w trybie graficznym. Typ 
PaletteType jest zdefiniowany następująco 
type 
PaletteType = record 
Size : byte; 


Colors : arrayl[O..15] 
of shortint 


end; 
Pole Size określa rozmiar palety; pole Colors 
określa identyfikatory kolorów przypisane kolej—- 
nym pozycjom palety. Identyfikatory kolorów mogą 
być wyrażone za pomocą następujących symboli: 


Black — czarny <O> 

Blue — niebieski <1> 
Green — zielony <2> 

Cyan — turkusowy (3> 

Red — czerwony 4 
Magenta — karmazynowy <5> 
Brown — brązowy <6> 
LightGray — jasnoszary <7> 

Dar kGr ay — ciemnoszary <8> 

Li ghtŁBlue — jasnoniebieski <S> 
LightGreen — jasnozielony <10> 
LightCyan — jasnoturkusowy <112 
Li ghtRed — jasnoczerwony <12> 
LightMagenta — jasnokarmazynowy <13> 
Yellow — żółty <14> 

whi te — biały X15> 


SetA1llPalette, SetPalette 
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Przyklad 
< GetPalette >» 


uses 
Crt, Graph; 


var 
Palette : PaletteType; 
Driver ,Mode : integer; 


i : byte; 
const 


Names : array[O..15] of stringli2ż] = 
C "Black”,'Blue','Green','Cyan', 'Red", 
"Magenta", 'Brown' ,'LightGray', 'DarkGray', 
»LightBlue",'LightGreen' ,'LightCyan', 
"LightRed','LightMagenta','Yellow','White'D); 
begin 


Driver := Detect; 

InitGraphC Driver ,Mode, ” "JD; 

if CGraphResult <> grOK) or CDriver <> EGAD then 
HaltC1); 


GetPaletteC(Palette); 
RestoreCrtMode; 


with Palette do 
for i := O to PredC(Size.> do 
if Colorsli] < 16 then 
WritelnCi :2,” ”,NameslColorsl1]J]D 
else 
WritelnC'"?7?2? : *,„Colors[li]JJ 


end. 


Wykonanie programu w Środowisku z kartą EGA powoduje wyprowa” 


dzenie nazw domniemanej palety kolorów. 


om ą..”.".«”«?..«”dÓ«”ÓóÓÓóÓó/”/«Ó/dÓ..L|[ÓhÓ"_ wm 


GetPaletteSize 
tattoo 


Nazwa GetPaletteSize — udostępnienie rozmiaru palety 

Deklaracja function 
GetPaletteSize : word 

Modul Graph 

Opis Udostępnienie danej Łypu word określającej liczbę 
pozycji palety. 

Uwagi System musi być w trybie graficznym. W przypadku 
karty EGA, rezultatem funkcji jest 16. 

Porównaj GetMaxColor 
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Przyklad 
<« GetPaletteSize > 


uses 
Graph; 


var 
Driver „Mode : integer; 
Size : word; 


begin 
DetectGr aphC Dr i ver , Mode); 


if CDriver <> EGAD or CMode <> EGALo) then 
HaltC1D; 


I ni ŁGraphC Driver „Mode, *D; 
if GraphResult <> grOK then 


HaltC2Z); 
Size := GetPaletteSize; 
CloseGraph; 
WritelnC'Size = ',Size); ( 16 > 


end. 


Wykonanie programu w Środowisku z kartą EGA powoduje 


wyprowadzenie liczby 16. 


GetPixel 


Nazwa GetPixel — ujawnienie numeru koloru piksela 
Deklaracja function 

GetPixellx,y : integer) : word 
Hodut Graph 


Opts Utworzenie danej typu word o wartości równej nume— 


rowi koloru piksela wyświetlanego w punkcie 


Cx,yJ. 
Uwagt System musi być w trybie graficznym. 
Porównaj GetImage, PutImage, PutPixel 


Przyklad 


< GetPixel > 


uses 
Graph; 

var 
Driver ,Mode : integer; 
ColNum : word; 
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begin 


Driver := Detect; 

InitGraphCDriver „Mode, '"); 

if GraphResult <> grOK then 
HaltC1D; 


PutPixelCO,O,GetŁMaxColorD); 
ColNum := GetPixelCO,OD; 
RestoreCr ŁMode; 


WriteCl "Color number = ”,„ColNum) 


end. 


Wykonanie programu powoduje wykreślenie piksela w kolorze 


określonym przez ostatnią pozycję palety, a następnie wy- 


prowadzenie numeru tego koloru. 


GetTextSettings 


Nazwa 


Deklaracja 


Hodut 
Opis 


Uwagi 
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GetTextSettings — ujawnienie parametrów wykreśla- 
nia tekstów 


procedure 

GetTextSettingsC(var info : TextSettingsType 
Graph 

Przypisanie info danej rekordowej typu 
TextSettingsType, określającej krój czcionki, 
kierunek wyprowadzania tekstu i sposób jego wy- 
równania. 

System musi być w trybie graficznym. Typ 
TextSettingsType jest zdefiniowany następująco: 


type 
TextSettingsType = record 
Font : word; 
Direction : word; 
CharSize : 1..10; 
Horiz : word; 
Vert : word 
end; 


Pole Font określa numer kroju czcionki; pole 
Direction określa kierunek wyprowadzania tekstów 
CHorizDir — poziomo, VertDir — pionowo); pole 
CharSize określa mnożnik rozmiaru czcionki Cjeśli 
CharSize=UserCharSize, Ło pionowy i poziomy mnoż- 
nik rozmiaru wynika z użycia procedury SetUser- 


Porównaj 


Przyklad 


CharSize); pole Horiz określa sposób wyrównania 
tekstu w poziomie C(LeftlText — do lewej, Center— 
Text — centrycznie, RightlText — do prawej); pole 
Vert określa sposób wyrównania tekstu w pionie 
C(Bottomlext — do dołu, Center Text — centrycznie, 
ToplIext — do góry). Wartości danych przypisanych 
polom Font, Direction, Horiz i Vert mogą być wy- 
rażone za pomocą następujących symboli: 


Pole Font 

Def aultFont — krój domniemany <O> 
TriplexFont — krój potrójny (12 
Smal 1Font — krój indeksowy <2> 
SansSerifFont — krój bezszeryfowy €3> 
GothicFont — krój gotycki <4> 


Pole Direction 
HorizDir — kierunek poziomy <O> 
VertŁDir  — kierunek pionowy <1> 


Pole Horiz 


LeftText — wyrównanie do lewej <O> 
CenterText — wyrównanie centryczne <€12> 
RightText — wyrównanie do prawej (2> 
Pole Vert 


Bottomlext — wyrównanie do dołu <O> 
CenterText — wyrównanie centryczne (1> 
ToplText — wyrównanie do góry <2> 


InitŁGraph, SetTextJustify, SetTextStŁyle, 
TextHeight, TextWidth 


< GetTextSettings >» 


uses 
Crt,Graph; 

var 
Driver „Mode : integer; 
TextSettings : TextSettingsType; 
Drop char; 

const 
Names array[O..2] of stringliOJ = 


C "LeftText' ,'CenterText','RightText" J; 
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begin 


Driver := Detect; 

InitGraphC Driver „Mode, ''D; 

if GraphResult <> grOK then 
HaltC1D; 


Set Text StyleCDefaultFont ,HorizDir „52; 
SetTextJustify(LeftText , Toplext); 


OQutTextŁXYCGetMaxX div 2,GetMaxY div 2,'Janek"'); 


repeat until KeyPressed; 
Drop := ReadKey; 


GetTextSettingsć TextSettings); 


RestoreCr tŁMode; 
with TextSettings do 
WriteCl'Horiz = ”,Names(HorizJDJ 
end. 


Wykonanie programu powoduje wyprowadzenie napisu Janek, a 


następnie wyprowadzenie symbolu określającego obrany kierunek 


wyprowadzenia tego napisu. 


GetTime 


Nazwa GetTime — ujawnienie bieżącego czasu 
Deklaracja procedure 
GetlimeCvar hour : word; 
var min : word; 
var sec : word; 
var sec1lOO : word) 
Modut Dos 
Opis Przypisanie hour liczby godzin, jakie upłynęły od 
północy CO..23), min liczby minut jakie upłynęły 
od ostatniej godziny CO..59D), sec: liczby sekund 
jakie upłynęły od ostatniej minuty CO..59)> i 
seci00 liczby setnych części sekundy jakie upły” 
nęły od ostatniej sekundy CO..S99). 


Przykład 


< GetTime » 
uses 


Crt, Dos; 
var 


Hour „Minute,Drop : word; 


begin 


C1rScr; 

Get Ti mel Hour , Minute, Drop, Drop); 

WriteC'Time is "',Hour,"':',Minute) 
end. 


Wykonanie programu powoduje wyprowadzenie bieżącego czasu 


z dokładnością do jednej minuty. 


GetVerify 


Nazwa GetVerify — udostępnienie znacznika weryfikacji 
Deklaracja procedure 
GetVerifyCvar verify : boolean) 
HModut Dos 
Opis Udostępnienie danej typu boolean o wartości 
logicznej zdania: Jest przeprowadzana weryftkac ja 


transmtisjt dyskowych. 


Uwagi Jeśli verify = false, weryfikacja nnie jest 
przeprowadzana. 

Porównaj SetVerify 

Przyklad 


<« GetVerify > 


var 
Verify : boolean; 


begin 
GetVerifyClVerify); 
WritelnCVerify);  € FALSE > 


end. 


Wykonanie programu powoduje wyprowadzenie napisu FALSE. 


GetViewSettings 
Nazwa GetViewSettings — ujawnienie parametrów okienka 
graficznego 


Deklaracja procedure 
GetViewSettingsCvar info : ViewPortTypeD. 
Moduł Graph 
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Opis 


Uwagi 


Porównaj 


Przyklad 


Przypisanie info danej rekordowej typu 
ViewPortType, określającej współrzędne przeciw- 
ległych wierzchołków okienka graficznego oraz 
sposób traktowania wykresów wykraczających poza 
okienko. 
System musi być w trybie graficznym. Typ 
ViewPortType jest zdefiniowany następująco: 
type 
ViewPortType = record 
x1l,yl : integer; 
x2,y2 ; integer; 


Clip : boolean 
end; 


Pola xi, yli i x2, y2 określają współrzędne prze- 


ciwległych wierzchołków okienka graficznego; pole 
Clip określa czy wykresy mają być obcinane na ob- 
rzeżach okienka. Wartości danych przypisanych po- 
lu Clip mogą być wyrażone za pomocą następujących 


symboli: 


C1lipOff — bez obcinania <false> 
ClipOn — z obcinaniem <true> 


Set Vi ewPort 


« GetViewSettings >» 


uses 


Crt,Graph; 


VAT 


Driver ,Mode : integer; 
DefaultViewPort : ViewPortType; 


begin 


Driver 


:= Detect; 


InitGraphCDriver ,Mode, *'J; 
if GraphResult <> grOK then 


HaltC10D; 

GetViewSetti ngsć(DefaultViewPort); 

RestoreCrtMode; 

with DefaultViewPort do begin 
WritelnC'xi = ',xi,”, yli = ”,y1lD; 
Writeln('x2 = ',x2,”, y2 = ",y2); 
WriteC'Clip = ',Clip) 

end 


end. 
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Wykonanie programu powoduje wyprowadzenie informacji o para— 


metrach okienka domniemanego. 


GetX 


Nazwa GetX — ujawnienie poziomej współrzędnej kursora 
graficznego 

Deklaracja function 
GetX : integer 

Modul Graph 

Opis Utworzenie danej typu integer o wartości równej 
poziomej współrzędnej kursora graficznego. 

Uwagi System musi być w trybie graficznym. Współrzędna 
jest określana względem bieżącego okienka gra— 


ficznego. 


Porównaj GetViewSettings, GetY, InitGraph, MoveTlo, 
Set Vi ewPor t 
Przyklad 
< GetX > 
uses 
Crt,Graph; 
var 
Driver ,Mode : integer; 


xCor ,yCor : integer; 


begin 


Driver := Detect; 

InitGraphCDriver „Mode, ' "2; 

if GraphResult <> grOK then 
HaltC1D; 


MoveloCGetMaxX div 2,GetMaxY div 2); 


xCor := GetX; 
yCor := GetY; 


RestoreCrtMode; 
WriteC 'CxCor „,yCor) = C' ,xCor,"',',yCor,'>'2 


end. 


Wykonanie programu powoduje wyprowadzenie współrzędnych środ— 


ka ekranu. 
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Nazwa GeŁY — ujawnienie pionowej współrzędnej kursora 
graficznego 

DeRlarac ja function 
GetY : integer 

Moduł Graph 

Opis Utworzenie danej typu integer o wartości równej 


pionowej współrzędnej kursora graficznego. 


Uwagi System musi być w trybie graficznym. Współrzędna 
jest określana względem bieżącego okienka gra- 
ficznego. 

Porównaj GetViewSettings, GetŁX, InitGraph, MoveTo, 
SetViewPort 

Przyklad 

< GetY > 
uses 

Crt,Graph; 
var 


Driver ,Mode : integer; 
xCor ,yCor : integer; 


begin 


Driver := Detect; 

InitGraphCDri ver „Mode, **); 

if GraphResult <> grOK then 
HaltC1D; 


MoveToCGetMaxX , GeŁMaxY); 


yCor : 
RestoreCr ŁMode; 
WriteC'CxCor ,„yCorJ = C',xCor,*,*,„yCor,'2>'2J 


end. 


Wykonanie programu powoduje wyprowadzenie maksymalnych współ - 


rzędnych ekranu. 


GotoXY 


Nazwa GotoXY — przemieszczenie kursora tekstowego 


Deklaracja procedure 
GotoXYCx,y : byteJ 


Modut Crt 
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Opis Przemieszczenie kursora tekstowego na pozycję 
o współrzędnych CxXx,yJ. 

Uvagt Współrzędne są określane względem bieżącego 
okienka tekstowego. Lewy-górny narożnik tego 
okienka ma współrzędne (1,10. Jeśli nowe współ-— 
rzędne miałyby wykraczać poza okienko, to wykona— 
nie procedury nie wywoła żadnych skutków. 

Porównaj Window, WhereX, WhereY 

Przyklad 

< GotoXY > 

uses 
Crt; 

begin 
C1rSer; 
WriteC'j'D; 
WindowC10,10,20,200D; 
GotoXYC1 ,1D; 
Writećl *b'D 

end. 


Wykonanie programu powoduje wyprowadzenie litery j w lewym- 
górnym narożniku ekranu i litery b na pozycji o współrzędnych 
ekranowych C10,10). 


GraphDefaults 


Porównaj 


GraphDefaults — przywrócenie domniemanych para— 
metrów graficznych 

procedure 

GraphDefaults 

Graph 

Ustanowienie okienka graficznego obejmującego ca— 
ły ekran, przemieszczenie kursora graficznego do 
jego lewego-górnego narożnika, ustanowienie 
wszystkich domniemanych parametrów graficznych 
(palety, kroju czcionek, postaci linii, wypeł— 
niania obszarów, wyrównywania napisów, rozmiaru 
czcionek, koloru tła, koloru pierwszego planu). 
System musi być w trybie graficznym. 

Ini ŁGraph 


Przyklad 


< GraphDefaults > 


uses 


Crt ,Graph; 


var 


Driver ,Mode : integer; 


begin 


Dr i ver 


:= Detect; 


InitGraphC Driver ,Mode, '"); 
it GraphResult <> grOK then 
HaltC10); 


MoveTol(GetŁMaxX div 2,GetŁMaxY div 20; 
SetLi neStyle( DashedLn, O, NormWwi dtho; 
LineRelC20,00; € Dashed > 
GraphDefaul ts; 

LineRelC20,00; < Solid > 


repeat until KeyPressed; 


CloseGraph 


end. 


Program ilustruje wpływ wykonania procedury GraphDefaults na 


postać wykreślanej linii. 


SZENKONNNENNENONNNNNNNNNNNENNNEENNENENEEEEEEEE A 


GraphErrorMsg 
i... ua._„Ź). 


Nazwa 


DekRlarac ja 


Hodut 
Opis 


Uwagt 
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GraphErrorMsg — ujawnienie komunikatu © przebiegu 
wykonania procedury graficznej 

function 

GraphErrorMsg(code : integerD : string 

Graph 

Utworzenie danej typu string składającej się ze 
znaków tworzących komunikat o numerze code. 
System musi być w trybie graficznym Numery komu” 
nikatów mogą być wyrażone za pomocą następujących 


symboli: 
gr OK — pomyślne wykonanie operacji 
graficznej <O> 


grNolnitGraph — nie ustanowiono trybu gra” 
ficznego <-12> 

grNotDetected — nie wykryto karty graficz” 
nej C-2> 


Porównaj 


grFileNotFound 


grInvalidDri ver 


gr NoLoadMem 


gr NoScanMem 


gr NoFloodMem 


grFontNotFound 


grNoFontMem 


grInvalidMode 


gr Error 


grIOEr ror 


grInvalidFont 


grInvalidFontNum 


grInvalidDeviceNum 


Przyklad 


< GraphErrorMsg »> 


uses 
Crt ,Graph; 
var 
Dri ver , Mode integer; 
Result integer; 
begin 
Driver := EGĄ; 
Mode := EGAHi; 
I ni ŁGraphCDr Liver „Mode, " "2 
Result := GraphResult; 


brak zbioru zawierającego 
sterownik graficzny €-3> 

niewłaściwy sterownik gra— 
ficzny €-4> 


sterownika <-5> 


obszaru metodą scan X-56> 
brak pamięci do wypełnienia 
obszaru metodą flood <—7> 


brak zbioru zawierającego 


definicję kroju czcionek €-8> 


brak pamięci do załadowania 
kroju kreskowego C-9> 
niewłaściwie dobrany tryb 
graficzny C-1O> 

inne błędy Cnp. liczba 
zgłoszonych krojów kresko— 
wych przekracza 10) €-11> 
błąd operacji wejścia-wyj- 
Ścia <-12> 

niewłaściwy krój czcio- 
nek <-13> 

niewłaściwy numer kroju 
czcionek X-14> 

niewłaściwy numer urzą— 
dzenia <-15> 


GraphResult, Detectóraph, InitGraph 
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brak pamięci do załadowania 


brak pamięci do wypełnienia 


if Result <> grOK then begin 
ClrScer; 
Wri tel nCGraphErrorMsgC(ResultD)); 
HaltC1) 

end; 


LineC0,0,GetMaxX ,GeŁMaxY); 
repeat until KeyPressed; 
CioseGraph 


end. 


Program ilustruje użycie funkcji GraphErrorMsg. Jeśli w śŚro- 


dowisku programowym nie występuje zbiór zawierający Sterownik 
EGA, to zostanie wyprowadzony komunikat 


Device driver file not found CEGAVGA. BGL2D 


Jeśli w środowisku występuje taki zbiór, a zainstalowaną kar- 
tą jest EGA, Ło nastąpi wykreślenie odcinka linii prostej. 


GraphResult 


Nazwa GraphResult — ujawnienie kodu powrotu ostatniej 
operacji graficznej 


Deklaracja function 


GraphResult : integer 


Modul Graph 

Opis Utworzenie danej typu integer o wartości określa- 
jącej kod powrotu ostatniej operacji graficznej. 

Uwagi System musi być w trybie graficznym. Rezultat 


o wartości O oznacza pomyślne, a rezultat o war” 
tości ujemnej oznacza niepomyślne wykonanie 
operacji. Kody powrotu mogą być wyrażone za po” 
mocą następujących symboli: 


gr OK — pomyślne wykonanie operacji 
graficznej <O> 
grNolnitGraph — nie ustanowiono trybu gra” 


ficznego C-1> 


gr NotDetected — nie wykryto karty graficz- 
nej C-2> 
grFileNotFound — brak zbioru zawierającego 


sterownik graficzny Ć-3> 
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grInvalidDri ver 


grNoLoadMem 


grNoScanMem 


gr NoFloodMem 


grFontNotFound 


grNoFontMem 


grInvalidMode 


grError 


grIOError 


grInvalidFont 


grInvalidFontNum 


grInvalidDeviceNum 


niewłaściwy sterownik gra— 
ficzny (€-4> 

brak pamięci do załadowania 
sterownika <-5> 

brak pamięci do wypełnienia 
obszaru metodą scan <-6> 
brak pamięci do wypełnienia 
obszaru metodą flood <-72> 
brak zbioru zawierającego 
definicję kroju czcionek <-8> 
brak pamięci do załadowania 
kroju kreskowego <-9> 
niewłaściwie dobrany tryb 
graficzny <-10> 

inne błędy Cnp. liczba zgło-— 
szonych krojów kreskowych 
przekracza 100 «€-1i> 

błąd operacji wejścia-wyj— 
Ścia (-12> 

niewłaściwy krój czcio- 

nek C-132> 

niewłaściwy numer kroju 
czcionek <-14> 

niewłaściwy numer urządze- 


nia <X-15> 


Ponieważ powtórne wywołanie funkcji GraphResult 
Cbez wykonania w międzyczasie operacji graficznej.) 


powoduje udostępnienie danej o wartości O, zaleca 


się przypisać rezultat funkcji zmiennej pomocni — 


czej. 
Porównaj Gr aphErrorMsg 
Przyklaa 


< GraphResult > 


uses 
Crt,Graph; 

var 
Dr i ver , Mode integer; 
Result integer; 
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begin 


Driver := EGA; 
Mode := EGAHi; 


InitGraphCDriver ,Mode, ''D; 
Result := GraphResult; 


if Result <> grOK then begin 
CirSer; 
WritelnC'GraphResult := ',Result); 
HaltC1) 

end; 


Linec0,O0, GetŁMaxX , GetŁMaxYD; 
repeat until KeyPressed; 
CloseGraph 


end. 


Wykonanie programu ilustruje zalecany sposób posługiwania 


się kodem powrotu operacji graficznej. 


Halt 


Nazwa Halt — zakończenie wykonywania programu 

Deklaracja procedure 
Haltl(code : word) 

HModut System 

Opis Zakończenie wykonywania programu, poprzedzone 
wykonaniem procedur kończących. Udostępnienie 
procesowi macierzystemu danej typu word © war" 
tości code. 

Uwvagt Jeśli procedura zostanie wywołana bez argumentu, 
to procesowi macierzystemu zostanie przekazana 
dana o wartości O. Procesem macierzystym może być 
program, który posłużył się procedurą Exec albo 
system operacyjny. W Łym drugim przypadku dana 
o wartości code może być badana za pomocą testu 
ERRORLEVEL.. 

Porównaj Exit 


begin 


C1lrScer; 


for i 


:= 1 to 50 do begin 


WritelnCiD; 


if i 


= 25 then 


HaltC13) 


end 


end. 


Wykonanie programu powoduje wyprowadzenie liczb z przedziału 


1..25 . 

Hi 

Nazwa Hi — wyodrębnienie bajtu 

Deklaracja function 
Hi CO byte 

ModuT System 

Opis Utworzenie danej typu byte składającej się Zz tego 
bajtu x, który sąsiaduje z bajtem najmniej zna— 
czącym. 

Uwagi Argumentem funkcji Hi może być dowolne wyrażenie 
całkowite. Jeśli reprezentuje ono daną jednobaj - 
tową, to rezultatem funkcji Hi jest dana o war— 
tości nieokreślonej. 

Porównaj Lo, Swap 

Przyklad 

< Hi > 
uses 
Crt; 
begin 
C1rScer; 


WriteCHiCZS9J0); < 1 >» 


end. 


Wykonanie programu powoduje wyprowadzenie liczby 1. 


HighVideo 
Nazwa HighVideo — zwiększenie jasności znaków 
Deklaracja procedure 
HighVideo 
Modut crt 
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Opts Ustawienie bitu jasności zmiennej TextAttr i tym 
samym spowodowanie, że następne znaki wyprowadza- 
ne na ekran będą rozjaśnione. 

Uwagi Ustawienie bitu jasności powoduje odwzorowanie 


ciemnych kolorów pierwszego planu na jasne. 


Kolor ciemny Kolor jasny 


Black DarkGray Cczarny/ciemnoszary) 
Blue LightBlue Cniebieskte) 

Green LightGreen (zielone) 

Cyan LightCyan Ć turkusowe) 

Red LightRed (czerwone) 

Magenta LightMagenta CRarmazynowe) 

Brown LightBrown Cbrązowe) 

Li ghtóray white C jasnoszary/biaty) 


Porównaj LowVideo, NormVideo, TextŁBackground, TextColor 


Przyklad 


<« HighVvVideo > 


uses 
Crt; 


begin 
CLrSer; 
WriteC'Jan'DJ; 
HighVideo; 
WriteC'"B') 


end. 


Wykonanie programu powoduje wyprowadzenie ciemnego napisu Jan 
i jasnej litery B. 


ImageSize 


Nazwa ImageSize — wyznaczenie rozmiaru pamięci do zapa” 
miętania obrazu graficznego 

Deklaracja function 
ImageSizeC(xi,yl : integer; 


x2,y2 : integer> : word 
Modut Graph 


Opis Utworzenie danej typu word, o wartości równej 
liczbie bajtów pamięci niezbędnych do zapamięta- 


nia obrazu graficznego wyświetlanego w prostoką- 
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cie, którego przeciwległe wierzchołki mają współ- 
rzędne Cx1i,y1) i Cxe,y2). 


Uwagi System musi być w trybie graficznym. 
Porównaj Getlmage, PutImage 
Przyktad 


< ImageSize > 
uses 

Crt,Graph; 
var 


Driver ,Mode : integer; 
xSize,ySize : integer; 
Ref : pointer; 


const 

MyName : string[4] = 'JanB'; 
begin 

Driver := Detect; 


InitŁGraphC Driver „Mode, * ”D; 
1f GraphResult <> grOK then 


HaltC1D; 
xSize := TextWidthCMyName); 
ySize := TextHeightCMyName); 


Set TextJustifyCLeftText, TopText); 

Out TextXYCO,O,MyNameD; 

GetMemć Ref ,ImageSizeC0,0,xSize — 1,ySize — 100; 
GetImagec(O,O,xSize — 1i,ySize — 1,Ref"); 
PutImage(GetMaxX div 2,GetMaxY div 2,Ref",NormalPut); 
repeat until KeyPressed; 


CloseGraph 
end. 


Wykonanie programu powoduje wykreślenie napisu JanB, zapamię— 
tanie na stercie obrazu składającego się z tego napisu, a na— 


stępnie dodatkowe wyświetlenie go w pobliżu środka ekranu. 


Nazwa Inc — inkrementacja zmiennej 
DeRtaracja procedure 
IncCvar x; 
n : longint) 
MHKodut System 
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Opis 


Inkrementacja x o wartość n. 

Pierwszym argumentem procedury Inc może być naz- 
wa zmiennej dowolnego typu porządkowego, a drugim 
może być dowolne wyrażenie całkowite. Wykonanie 
procedury dla pierwszego argumentu typu type 


sprowadza się do wykonania operacji 
typeCO := typellongintC(O + n» 


Jeśli procedura Inc zostanie wywołana z jednym 
argumentem, to domniema się, że drugi argument 
Jest liczbą i. 


Porównaj Dec, Pred 


Przykład 


<« Inc >) 


uses 


Crt; 


var 


ChrVar : char; 


begin 


CirSer; 
ChrVar := 'j'; 


IneCChrVar ,3); 
IneCChrVar); 


WriteCChrVar; Cn >» 


end. 


Wykonanie programu powoduje wyprowadzenie litery n. 


InitGraph 


Nazwa 


Initóraph — ustanowienie trybu graficznego 


Deklaracja procedure 


Hodut 
Opts 
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Init6raphC(var d : integer; 

var m : integer; 

path : string» 
Graph 
Odszukanie w katalogu path zbioru zawierającego 
program sterownika graficznego karty o numerze 
d, sprowadzenie programu do pamięci operacyjnej 


i ustanowienie trybu graficznego m. 


Uwagi 


Jeśli nazwa katalogu jest pusta, to zbiór jest 
poszukiwany w katalogu bieżącym. Jeśli d=0, to 
następuje automatyczne rozpoznanie Środowiska 
graficznego, a d i m są przypisywane dane o war— 
tościach określających numer sterownika i numer 
trybu. Jeśli d<>O, to d i m muszą poprawnie okreś— 
lać numer karty i numer trybu. Pamięć operacyj- 
na wymagana przez sterownik jest przydzielana na 
stercie i zwalniana w ramach wykonania procedury 
CloseGraph. Numery karty i trybów mogą być wyra— 
żone za pomocą następujących symboli: 


Symbol Rarty 


Detect — automatyczne rozpoznanie karty gra— 
ficznej <O> 
CGA — karta CGA <C1> 
MCGA — karta MCGA <2> 
EGA — karta EGA <3> 
EGA64 — karta EGA64 <€4> 
EGAMono — karta EGAMono <5> 
I BMB51 4 — karta IBM8514 <6> 
HercMono — karta Hercules <7> 
ATT400 — karta ATTI400 <8> 
VGA — karta VGA <9> 
PC3270 — karta PC3270 C1O> 


Symbot trybu 


CGACO — 320 x 200, paleta O XO> 
CGAC1 — 320 x 200, paleta 1 (1 
CGAC2 — 380 x 200, paleta 2 (2 
CGAC3 — 320 x 200, paleta 3 <S3> 
CGAHi — 640 x 200, 1 strona «4» 
MCGACO — 320 x 200, paleta O <O> 
MCGACI1 — 3820 x 200, paleta 1 (1> 
MCGAC2Z — 320 x 200, paleta 2 <2> 
MCGAC3 — 3280 x 200, paleta 3 C3> 
MCGAMed — 640 x 200, 1 strona C4> 
MCGAHi — 640 x 480, 1 strona <5> 
EGALoO — 640 x 200, 16 kolorów, 4 strony <0> 
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EGAHi — 640 x 350, 16 kolorów, 2 strony (1» 
EGA64Lo — 640 x 200, 16 kolorów, 1 strona <0> 
EGA64Hi — 640 x 350, 4 kolory, 1 strona <1> 
EGAMoncHi — 640 x 350, 

64K na karcie, 1 strona <3> 

256K na karcie, 2 strony <3> 
HercMoncHi — 720 x 348, 2 strony <O> 
ATT400CO — 320 x 200, paleta O <O> 


ATT400C1 — 320 x 200, paleta 1 <1> 

ATT400C2 — 320 x 200, paleta 2 <2> 

ATT400C3 — 380 x 200, paleta 3 <3> 

ATT40OMed — 640 x 200, 1 strona <4> 

ATT400Hi — 640 x 400, 1 strona <S5> 

VGALo — 640 x 200, 16 kolorów, 4 strony (O0> 
VGAMed — 640 x 350, 16 kolorów, 2 strony (12 
VGAHi — 640 x 480, 16 kolorów, 1 strona <2> 
PC3270Hi — 720 x 350, 1 strona <O> 

I BM851 4 — 640 x 480, 256 kolorów <O> 

I BM851 4 — 1024 x 768, 256 kolorów (1> 


Niepomyślne wykonanie procedury InitGraph powodu- 
je, że rezultatem funkcji GraphResult jest dana 
o jednej z następujących wartości: 


grNotDetected — nie wykryto karty graficz- 
nej «<-2> 
grFileNotFound — brak zbioru zawierającego 


sterownik graficzny €-3> 


grInvalidDriver — niewłaściwy sterownik gra” 
ficzny <-4> 

grNoLoadMem — brak pamięci do załadowania 
sterownika <-52> 

grInvalidMode — niewłaściwie dobrany tryb 


graficzny €-10> 
grInvyalidDeviceNum — niewłaściwy numer urządze- 
nia <-15> 


Porównaj Close6ćraph, Detect6Graph, GraphResult, 
RestoreCrtMode, SetGraphMode 
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Przyklad 


< InitGraph > 


uses 


Crt,Graph; 


var 


Driver „Mode : integer; 


begin 


Dr i ver 


:= Detect; 


InitGraphC Driver ,Mode, ' *D; 
if GraphResult <> grOK then 
HaltC1D; 


PutPixelCGetMaxX div 2,GetMaxY div 2,GetMaxColor); 


repeat until KeyPressed; 


CloseGraph 


end. 


Wykonanie programu powoduje wyświetlenie jednego piksela 


w środku ekranu. 


Insert 

Nazwa Insert — wstawienie podciągu 

Deklaracja procedure 
InsertC(source : string; 

var s : string; 
index : integer. 

Modut System 

Opis Wstawienie do s, przed jego pozycję index, ciągu 
znaków source. 

Uwagt Jeśli index > Lengthls>, to wstawienie odbywa Się 
przed ostatnim znakiem s. Jeśli rozszerzony ciąg 
liczy więcej niż 255 znaków, to jest obcinany do 
255 znaków. 

Porównaj Delete, Copy, Concat, Pes 

Przyklad 


< Insert > 


VAT 


string[i2] = "Jan Bielecki"; 


MyFullName : Sstring[20]; 


begin 


ClrScer; 

MyFullName := MyName; 

InsertC'Andrzej ',MyFullName,S5); 
WriteCMyFullName); (C Jan Andrzej Bielecki >» 


end. 


Wykonanie programu powoduje wyprowadzenie napisu Jan Andrzej 


Bielecki. 
InsLine 
Nazwa InsLine — wstawienie wiersza 
Deklaracja procedure 
InsLine 
Modut Crt 
Opis Wstawienie w okienku tekstowym, bezpośrednio 
pod wierszem wyróżnionym przez kursor, jednego 
wiersza pustego. Przesunięcie wierszy położonych 
poniżej wyróżnionego o jeden wiersz do dołu. Usu- 
nięcie z okienka, wiersza położonego najniżej. 
Uwagi Jeśli kolorem tła nie jest czerń, to wiersz pusty 
zostanie wypełniony spacjami w kolorze określonym 
przez procedurę TextBackground. 
Porównaj DelLine, Window 
Przyklad 
< InsLine > 
uses 
Crt; 
begin 
ClrSer; 


WritelnC'Ewa'J; 
WritelnC' Jan"); 


GotoXYC1 „20; 


InsLine 


end. 


Wykonanie programu powoduje wyprowadzenie dwóch wierszy tek- 


stu rozdzielonych wierszem pustym. 


InstallUserDriver 


Nazwa InstallUserDriver -— zainstaluj sterownik 

Deklaracja function 
InstallUserDriverCname : string; 

detect : pointerJ> : word 

Modut Graph 

Opis zainstalowanie niestandardowego sterownika gra— 
ficznego o nazwie name, udostępnienie danej typu 
word określającej numer sterownika. Określenie 
wskazania procedury detect do wykrywania sterow— 
nika. 

Uwagi Jeśli liczba zainstalowanych sterowników przekra— 
cza dozwolone maksimum, rezultatem funkcji jest 
dana o wartości 

grError — nadmierna liczba zgłoszonych sterow- 
ników €-112> 


Porównaj 
Przyklad 


« InstallUserDriver > 


uses 
Crt,Graph; 


var 
Driver ,Mode : integer; 
Result : integer; 


<$F+> 
function DetectHerc : integer; 
begin 
DetectGr aphC Dr i ver ,Mode); 
if GraphResult = grNotDetected then 


DetectHerc := grError 
else 
DetectHerc := O 
end; 
<$F-2> 
begin 
Result := InstallUserDriverC 'HERCULES. BGI *, 
QDetectHercJ; 
Driver := Detect; 
InitŁGraphCDriver „Mode, ''D; 
Result := GraphResult; 


if Result <> grOK then begin 
WritelnCResult); 
HaltC1D 

end; 
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Out Textl "Hello"; 
repeat until KeyPressed; 
CloseGraph 
end. 
Wykonanie programu ilustruje zainstalowanie i użycie nie- 
standardowego sterownika HERCULES. 


InstallUserFont 


Nazwa InstallUserFont — zainstaluj krój czcionek 


DeRlaracja function 


InstallUserFontC(name : string> : integer 
Modut Graph 
Opis Zainstalowanie niestandardowego kroju czcionek 


kreskowych, znajdujących się w zbiorze o nazwie 
name. Udostępnienie danej typu integer 


identyfikującej zainstalowany krój czcionek. 


Uvagi Udostępniona dana może być argumentem procedury 
SetTextStyle. 

Porównaj SetTextStyle 

Przyklad 


< InstallUserFont > 
uses 

Crt,Graph; 
var 


Driver ,Mode : integer; 
Font : integer; 


begin 
Font := InstallUserFontC * CUSTOM. CHR”D; 
Driver := Detect; 


I ni ŁGraphC Dr i ver ,Mode, ” "2; 


if GraphResult <> grOK then 
HaltC1D; 


SetTextStyleCFont ,HorizDir „52; 
Out TextC"Hello'D; 


repeat until KeyPressed; 
CloseGraph 
end. 
Wykonanie programu ilustruje zainstalowanie niestandardowego 


kroju czcionek CUSTOM. 
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Int — wyodrębnienie części całkowitej 

function 

InNŁCO : real/extended 

System 

Utworzenie danej typu real/extended o wartości 
równej wartości części całkowitej x. 

Argumentem funkcji Int może być dowolne wyrażenie 
rzeczywiste albo całkowite. Wyodrębnienie części 
całkowitej polega na odrzuceniu części ułamkowej 
Co ile taka istniejeJ. 


Prac 


ClrSer; 
WriteCIntCPi1D :4:20; < 3.00 > 


end. 


Wykonanie programu powoduje wyprowadzenie liczby 3.00 . 


Intr 
Nazwa Intr — wykonanie przerwania programowego 
Deklaracja procedure 
IntrCnum : byte; 
var regs : Registers) 
Hodut Dos 
Opis Wykonanie przerwania programowego o numerze num, 
po uprzednim załadowaniu rejestrów procesora da— 
nymi zawartymi w polach rekordu regs. 
Uwagi Po wykonaniu przerwania nowe dane zawarte w re— 


jestrach procesora zostaną przypisane polom re- 
kordu regs. Typ Registers jest zdefiniowany 
następująco: 


type 
Registers 


Poszczególne 
Między innymi 
tru znacznikó 
się za pmocą 


być wyrażone 


FCarry — 
FParity — 
FAuxiliary — 
FZero — 
FSi gn — 
FOverflow — 
Porównaj MsDos 


Przyklad 
< Intr > 
uses 
Crt, Dos; 
var 


Regs : Registers; 
Ref : pointer; 


const 


= record 
case boolean of 
false: CAX,BX,CX,DX, 
BP ,SI ,DI „DS, 
ES,Flags : word); 
true: CAL,AH,BL,BH, 
CL,CH,DL,DH : byte) 
end; 
pola określają zawartości rejestrów. 
pole Flags określa zawartość rejes- 
w. Badanie tego pola może odbywać 
masek bitowych. Maski bitowe mogą 


za pomocą następujących symboli: 


przeniesienie <$O0001 > 

parzystość <$O0004> 

przeniesienie pomocnicze <$0010> 
zero <$0040> 

znak <$0080> 

nadmiar <$O800> 


Name : string[13] = "Jan Bielecki$”; 
function OffCPtŁr : pointer) : word; 


var 


Loc : word absolute Ptr; 


begin 
Off := Loc 
end; 


begin 
ClrSer; 


Regs.DS : 
Regs.DX : 
Regs. AH := $9; 


IntrC$21 ,RegsJ; < 


end. 


DSeg 


OffC©ONameD> + 1; 


Jan Bielecki > 


Wykonanie programu powoduje wyprowadzenie napisu Jan Bielecki. 
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IOResult 


IOResult — ocena poprawności operacji wejścia— 
-—wyjścia 

function 

IOResult : word 

System 


Utworzenie danej, której wartość wyraża ocenę 
poprawności ostatnio wykonanej operacji wejścia— 
wyjścia. Wartość O oznacza pomyślne, a wartość 
różna od O niepomyślne wykonanie operacji. 
Przytoczone dalej zestawienie wyszczególnia nie— 
zerowe wartości rezultatu funkcji IOResult i po- 


daje przyczynę niepomyślnego wykonania operacji. 


Rezultat Przyczyna 


e Nie znaleziono zbioru 
3 Nie znaleziono Ścieżki 
4 Zbyt wiele otwartych plików 
2) Zakaz dostępu do zbioru 
6 Niepoprawny uchwyt Chandle) 
12 Niepoprawny dostęp 
15 Niepoprawny numer stacji 
16 Niewykonalne usunięcie katalogu 
17 Niewykonalne przemianowanie zbioru 
100 Błąd odczytu z dysku 
101 Błąd zapisu na dysk 
102 Brak skojarzenia pliku ze zbiorem 
103 Nie otwarty plik 
104 Plik nie otwarty do wprowadzania 
1O5 Plik nie otwarty do wyprowadzania 
1 06 Niepoprawna dana liczbowa 


Ponieważ powtórne wywołanie funkcji IOResult Cbez 
wykonania w międzyczasie operacji wejścia—wyjścia) 
powoduje udostępnienie danej o wartości O, zaleca 
się przypisać rezultat funkcji zmiennej pomocni — 


czej. 
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Przyklad 


< IOResult > 


uses 
Crt; 

var 
Doc : 

begin 


file; 


CirScr; 
Assi gn( Doc ,ParamStrc100; 


<$I -> 


EraseC Doc); 


<$I +> 


case 
O: 
2: 
5: 


IOResult of 

Writel'File erased'D; 
WriteC "File not found”); 
WriteC Access denied'D; 


else begin 


end 


end. 


WriteC "Operation aborted'D; 
Halt 
end 


Wykonanie programu powoduje podjęcie próby usunięcia zbioru 


o nazwie określonej przez pierwszy parametr programu, a nas- 


tępnie wyprowadzenie komentarza na temat wykonanej operacji. 


Nazwa 


DekRlarac ja 


Hodut 
Opis 


Porównaj 


Keep — uczynienie programu rezydentnym 
procedure 
Keeplcode : wordDJ 


Dos 


Zakończenie wykonywania programu, uczynienia go 


rezydentnym i przekazanie systemowi kodu powrotu 


code. 

Program uczyniony rezydentnym zachowuje całą 
przydzieloną mu pamięć, w tym segment danych, 
segment kodu, stos i stertę. 

DosExi ŁCode 


Przyklad 
< Keep > 
<$M $4000,0,0 > 


uses 
Crt,Dos; 


var 
Ref : char; 
Count : word; 
Flag : boolean; 


<$F+> 
procedure TimerCFlags,CS,IP,AX,BX,CX,DX, 
SI ,DI,DS,ES,BP : word); 


interrupt; 
begin 
IncClCount); 
if Count > 18 then begin 
Count := O; 
Flag := not Flag 
end; 
if Flag then 
Ref := "»* 
else 
Ref := " » 
end; 
<$F-> 
begin 
Count := O; 
Flag := true; 
Ref := PŁrC$BOOO,OJ; 
SetI ntVecC$1C,©TimerD; 
KeepCOJ) 
end. 


Wykonanie programu powoduje zainstalowanie programu rezydent 
nego, który wyświetla w lewym-górnym narożniku ekranu migo— 
czący z częstotliwością 1Hz znak % Cgviazdko. 


KeyPressed 


Nazwa KeyPressed — analiza bufora klawiatury 


Deklaracja function 


KeyPressed : boolean 
ModuT Crt 
Opis Utworzenie danej typu boolean o wartości logicz— 


nej zdania v buforze Rlaviatury znajduje się nie 


odczytany jeszcze znak. 
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Uwagt Funkcja KeyPressed nie dotyczy takich "znaków" 
jak Shift, Alt, NumLock itp. 
Porównaj ReadKey 


Przyklad 
< KeyPressed > 


uses 
Crt; 


var 
Num : longint; 


Num := O; 
while not KeyPressed do 
I neCNunD ; 


Writeln(ć "Count = ”,Num; 
Readln 
end. 
Wykonanie programu powoduje zbadanie czasu reakcji. Po naciś- 
nięciu dowolnego klawisza klawiatury następuje wyprowadzenie 


liczby stanowiącej miernik tego czasu. 


Length 


Nazwa Length — wyznaczenie rozmiaru danej łańcuchowej 
Deklaracja function 
LengthCs : stringq> : integer 
MHodut System 
Opis Utworzenie danej typu integer o wartości równej 
liczbie znaków danej reprezentowanej przez argu" 


ment funkcji. 


Przyklad 


< Length > 
uses 
Crt; 


var 
Str : string; 


i : byte; 
begin 
ClrSer; 


Str := ParamStrC10D; 
for i := 1 to LengthCStr> do 
WritelnCStr(1]D 


end. 


Wykonanie programu powoduje wyprowadzenie liczby znaków pierw— 


szego parametru programu. 


Line 


Nazwa Line — wykreślenie odcinka linii prostej 
Deklaracja procedure 
LineCxl,yl : integer; 
x2,ye2 : integer. 


HModut Graph 
Opis Wykreślenie odcinka linii prostej łączącego punkt 
o współrzędnych Cxi,y1lD z punktem o współrzędnych 
Cx2,y2). 
Uwagi System musi być w trybie graficznym. Współrzędne 
kursora graficznego nie ulegają zmianie. 
Porównaj LineTo, MoveTo, Rectangle, SetColor, SetLineStyle 
Przyklad 
< Line > 
uses 
Crt ,Graph; 
var 
Driver „Mode : integer; 
begin 
Driver := Detect; 


InitGraphCDriver „Mode, ' '); 
if GraphResult <> grOK then 
HaltC1D; 


LinelGetMaxX,O,GetMaxX , GetŁMaxY); 
repeat until KeyPressed; 
GloseGraph 


end. 


Wykonanie programu powoduje wykreślenie odcinka linii prostej 


wzdłuż prawego obrzeża ekranu. 


LineRel 


Nazwa LineRel — wykreślenie odcinka linii prostej 
Deklaracja procedure 

LineRelCdx,dy : integer). 
Hodut Graph 


Opis Wykreślenie odcinka linii prostej łączącego punkt 
wyróżniony przez kursor graficzny z punktem odle- 
głym od niego o dx w poziomie i dy w pionie. 
Zmiana współrzędnych kursora graficznego o dx 
w poziomie 1 dy w pionie. 

Uvagt System musi być w trybie graficznym. 

Porównaj Line, LineTo, MoveRel, Movel[o, SetColor, 

SetLi neStyle 
Przyklad 
<« LineRel > 
uses 
Crt,Graph; 
var 
Driver ,Mode : integer; 
begin 
Driver := Detect; 
Init6raphCDriver „Mode, '); 
if GraphResult <> grOÓK then 
HaltC1D; 
MoveloC(GetMaxX shr 1,GetMaxY shr 10; 
LineRelC-GetMaxX div 2,-GetMaxY div 20); 
repeat until KeyPressed; 
CloseGraph 
end. 


Wykonanie programu powoduje wykreślenie linii łączącej Środ- 
kowy punkt ekranu z punktem o współrzędnych CO,OJ. 


Li neTo 

Nazwa LineTo — wykreślenie odcinka linii prostej 

Deklaracja procedure 
LineToCx,y : integer) 

Hodut Graph 

Opts Wykreślenie odcinka linii prostej łączącego punkt 
wyróżniony przez kursor graficzny z punktem o 
współrzędnych Cx,y). Przesunięcie kursora gra- 
ficznego do punktu o współrzędnych Cx,y). 

Uvagt System musi być w trybie graficznym. 

Porównaj Line, LineRel, MoveTo, MoveRel, SetColor, 


SetLineStyle 


Przyklad 


<« LineTo > 
uses 
Crt ,Graph; 


var 
Driver ,Mode : integer; 


begin 


Driver := Detect; 

Ini t6raphC Driver ,Mode, *" "2; 

if GraphResult <> grOK then 
HaltC1D; 


MoveToC( GetMaxX shr 1i,GetMaxY shr 1); 

LineToCO,OJ; 

repeat until KeyPressed; 

CloseGraph 

end. 

Wykonanie programu powoduje wykreślenie odcinka linii prostej 
łączącego środkowy punkt ekranu z punktem o współrzędnych 
CO,OV. 


Ln 


Nazwa Ln — wyznaczenie logarytmu naturalnego 

Deklaracja function 
LNCO : real-/extended 

HoduT System 

Opis Utworzenie danej typu real/extended o wartości 
równej ln x. 

Uwagi Argumentem funkcji Ln może być dowolne wyrażenie 
rzeczywiste albo całkowite reprezentujące daną 
o wartości dodatniej. 


Porównaj Exp 


Przyklad 


< Ln > 


uses 
Crt; 


begin 
ClrSer; 
WriteCLnCExpX1300 :5:20; << 13.00 >» 
end. 
Wykonanie programu powoduje wyprowadzenie liczby 13.00 , 


315 


Lo 


Nazwa Lo — wyodrębnienie bajtu 
DeRlaracja function 
Lol(O : byte 
Hodut System 
Opis Utworzenie danej typu byte składającej się z naj- 
mniej znaczącego bajtu x. 
Uvagt Argumentem funkcji Lo może być dowolne wyrażenie 
całkowite. 
Porównaj Hi, Swap 
Przyktad 
< Lo > 
uses 
Crt; 
begin 
CirSer; 
WriteCLoC25900; << 3 > 
end. 


Wykonanie programu powoduje wyprowadzenie liczby 3. 


LowVideo 

Nazwa LowVvVideo — zmniejszenie jasności znaków 

DeRlaracja procedure 
LowVi deo 

Modut Crt 

Opts Wyzerowanie bitu jasności zmiennej TextAttr i tym 
samym spowodowanie, że następne znaki wyprowadza” 
ne na ekran będą przyciemnione. 

Uwagi Wyzerowanie bitu jasności powoduje odwzorowanie 
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jasnych kolorów pierwszego planu na ciemne. 


Kolor Jasny Kolor ciemny 

DarkGray Black Cciemnoszary./czarny) 
Li ghtŁBlue Blue Cniebieskie) 
LightGreen Green CzieloneJ) 

LightCyan Cyan C Łurkusowej) 

LightRed Red czerwone) 


LightMagenta Magenta Ć kiarmazynowe) 


Yellow Brown (brązowe) 
White LightGray Cbialy/ jasnoszary) 
Porównaj HighVideo, NormVideo, TextBackground, TextColor 


Przyklad 


<« LowVideo > 


uses 
Crt; 
begin 


CirSer; 
HighVideo; 
WriteC'Jan'J; 
LowVi deo; 
WriteC *B'D 


end. 


Wykonanie programu powoduje wyprowadzenie jasnego napisu Jan 


i ciemnej litery B. 


Mark 


Nazwa Mark — zarejestrowanie pozycji sterty 
Deklaracja procedure 


MarkCvar p : pointer) 


Hodut System 
Opts Przypisanie p danej wskazującej szczyt sterty. 
Porównaj Dispose, FreeMem, Release 
Przyklad 

< Mark > 

uses 

Crt; 
var 


Ref ,PŁr : pointer; 
Availi,Avail2 : longint; 


begin 
CirSer; 
MarkCRefD; 
Availi := MaxAvail; 
GetMem€C PtŁr „2£0O000D; 
Avail2 := MaxAvail; 


ReleaseCRefD; 


WritelnCAvaili — Avail2); (« 20000 > 
WriteCAvaill = MaxAvailD; TRUE > 


end. 


Program ilustruje użycie procedury Mark. Jego wykonanie powo- 
duje wyprowadzenie liczby 20000 i napisu TRUE. 


MaxAvail 


Nazwa MaxAvail — wyznaczenie rozmiaru największego 
bloku sterty 

DeRlaracja function 
MaxAvail : longint 

Modut System 

Opts Utworzenie danej typu longint o wartości równej 
liczbie bajtów największego bloku jaki w danej 
chwili mógłby być przydzielony na Stercie. 

Porównaj MemAvail 


Przyklad 


< MaxAvail > 


uses 
Crt; 


begin 
CLrSer; 
WritŁeCMaxAvaiL1D 


end. 


Wykonanie programu powoduje określenie rozmiaru największego 


bloku sterty. 


Memavail 


Nazwa MemAvail — wyznaczenie sumy rozmiarów wolnych 
bloków sterty 

Deklaracja function 
MemAvail : longint 

Hodut System 

Opis Utworzenie danej typu longint o wartości równej 
sumie rozmiarów tych wolnych bloków sterty, które 
znajdują się poniżej jej szczytu. 

Porównaj MaxAvail 


Przy 


RTad 


<« MemAvail > 
uses 
Crt; 


var 
RefArr : array[1..3] of pointer; 
1 : byte; 

procedure Difference; 

begin 
WritelnC'MemAvail -— MaxAvail = *',MemAvail 
Writeln 

end; 


begin 
ClrSer; 
Difference; << O > 


for i := 1 to 3 do 
GetMemć Ref Arr (i] „100000; 


FreeMemC Ref Arr[2] ,100000); 
Difference; « 10000 > 


end. 


— MaxAvailJ; 


Wykonanie programu powoduje wyprowadzenie liczb O i 10000. 


MkDi r 
Nazwa MkDir — utworzenie podkatalogu 
Deklaracja procedure 
MkDirCs : string) 
HoduT System 
Opis Utworzenie podkatalogu o nazwie określonej 
przez s. 
Uwagi Niepomyślne wykonanie procedury powoduje powsta- 
nie błędu wejścia-wyjścia. 
Porównaj ChDir, GetDir, RmDir 
PrzykRtad 
< MkDir > 
uses 
Crt; 
begin 
CirScer ; 
<SI -> 
MkDi rCParamStrC<1D0D; 
<$I +> 


1f IOResult <> O then 


WriteCć'Directory ',ParamStrC1),' already exists') 


end. 
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Wykonanie programu powoduje utworzenie podkatalogu o nazwie 
określonej przez pierwszy parametr programu i ewentualne wy- 
prowadzenie komunikatu, że operacja nie została wykonana, 


ponieważ podkatalog albo zbiór o podanej nazwie już nie ist- 
nieje. 


Move 


Nazwa Move — kopiowanie obszaru pamięci 


Deklaracja procedure 
Movelvar source; 


var target; 


count : word) 
Modut System 
Opis Skopiowanie count bajtów z obszaru pamięci zloka- 


lizowanego przez source, do obszaru pamięci zlo- 
kalizowanego przez target. 

Uwagi Pierwsze dwa argumenty procedury Move muszą być 
nazwami zmiennych Ćw tym nazwami zmiennych bez 
typu. Nazwy te lokalizują obszar kopiowany 1i 
docelowy. 

Porównaj FillChar 


Przyklad 


< Move > 
uses 
Crt; 


const 
CplxRec : record 
Re,Im : real 
end = CRe : 2.0; Im : 3.0ODJ; 


var 
RealArr : array(1..2] of real; 


begin 
CirScr; 
MoveCCplxRec ,RealArr ,SizeofCCplxRecJ)); 


WriteC"”C' ,RealArr[1i] :4:2,”,?”, 
RealArr[2] :4:2,'070; << (C2.0,3.00 >» 
end. 


Wykonanie programu powoduje wyprowadzenie napisu cez.0,3.00). 
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MoveRel 


Nazwa 


MoveRel — przemieszczenie kursora graficznego 


Deklaracja procedure 


MoveRelldx,dy : integer) 


HModut Gr aph 
Opis Zmiana współrzędnej poziomej kursora graficznego 
o dx i współrzędnej pionowej o dy. 
Uvagti System musi być w trybie graficznym. 
Porównaj LineRel, Linelo, MoveTo 
Przyklad 
< MoveRel > 
uses 
Crt ,Graph; 
var 
Driver ,Mode : integer; 
begin 
Driver := Detect; 
InitGraphC Driver „Mode, ' 'D; 
if GraphResult <> grOK then 
HaltC1D; 
MoveTo( GetMaxX div 2,GetMaxY div 2); 
PutPixelCGetX,GetY, GetMaxColor); 
MoveRelC-CGetMaxX div 2),-CGetMaxY div 20); 
PutPi xelCGetX,GetY, GetŁMaxColor); 
repeat until KeyPressed; 
CloseGraph 
end. 


Wykonanie programu powoduje wyświetlenie dwóch pikseli. Jed- 


nego w środkowym punkcie ekranu i drugiego w lewym-górnym na— 


rożniku ekranu. 


MoveTo 


Nazwa 


MoveTo — przemieszczenie kursora graficznego 


Deklaracja procedure 


HModut 
Opis 


MoveToCx,y : integer. 
Graph 
Przemieszczenie kursora graficznego do punktu 


o współrzędnych Cx,y. 
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Uwagi System musi być w trybie graficznym. 
Porównaj LineRel, LineTo, MoveRel 
Przyklad 
< MoveTo > 
uses 
Crt ,Graph; 
var 


Driver ,Mode : integer; 
xCor ,yCor : integer; 
Drop : char; 


begin 


Driver := Detect; 

InitGraphC Driver ,Mode, ' 'D; 

if GraphResult <> grOK then 
HaltC1D; 


MoveTol( GetMaxX div 2,GetMaxY div 2); 


xCor GetX; 
yCor Get; 


PutPi xelC xCor ,yCor ,GetMaxColorD; 


repeat until KeyPressed; 
Drop := ReadKey; 


RestoreCr ŁMode; 
WriteC'C',xCor,”,”,„yCor,'”207”2; < C359,173) >» 
end. 


Wykonanie programu powoduje wykreślenie jednego piksela 


i wyprowadzenie jego współrzędnych. 


MsDos — wykonanie funkcji systemowej 


Deklaracja procedure 


MsDosCvar regs : Registers) 

Dos 

Wykonanie przerwania programowego o numerze $21, 
po uprzednim załadowaniu rejestrów procesora da- 
nymi zawartymi w polach rekordu regs. 

Po wykonaniu przerwania nowe dane zawarte w re- 

jestrach procesora zostaną przypisane polom re- 

kordu regs. 


Typ Registers jest zdefiniowany następująco: 


type 


Registers 


Poszczególne 


= record 
case boolean of 
false: CAX,BX,CX,DX, 
BP,SI ,DI ,DS, 
ES,Flags word; 
CAL,AH,BL,BH, 
CL,CH,DL,DH : 


true: 


byte) 


end; 


pola określają zawartości rejestrów. 


Między innymi pole Flags określa zawartość re— 


jestru znaczników. Badanie tego pola może odbywać 


się za pomocą masek bitowych. Maski bitowe mogą 


być wyrażone 


za pomocą następujących symboli: 
przeniesienie <$0001 > 
parzystość <$0004> 
przeniesienie pomocnicze <$0010 
zero <$80040> 

znak <$O080> 

nadmiar <$08002> 


"Jan Bielecki$'; 


word; 


< Jan Bielecki > 


FCarry — 
FParity — 
FAuxiliary — 
FZzero — 
FSign — 
FOverflow — 
Porównaj Intr 
Przyklad 
< MsDos > 
uses 
Crt,Dos; 
var 
Regs Registers; 
Ref pointer; 
const 
Name : string[(13] = 
function OF£CPtŁr pointerJ 
var 
Loc : word absolute Ptr; 
begin 
Off := Loc 
end; 
begin 
CirScer; 
Regs. DS : = DSeg; 
Regs.DX := OFf£C©OName> + 1; 
Regs.AH := $9; 
MsDosCRegs); 
end. 


Wykonanie programu powoduje wyprowadzenie napisu Jan Bielecki. 
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Nazwa New — utworzenie zmiennej 

Deklaracja procedure 
NewCvar p : pointer) 

Modul System 

Opis Utworzenie zmiennej o tak dobranym typie, aby 
był on identyczny z typem wskazań jakie mogą być 
przypisywane zmiennej, której nazwa jest argumen- 
tem procedury New, a następnie przypisanie znor— 
malizowanego wskazania utworzonej zmiennej. 

Uwagi Zmienna dynamiczna jest tworzona na stercie. Jeś-— 
1i dostępny obszar sterty jest zbyt mały, to 
powstaje błąd wykonania programu. Aby tego unik-— 
nąć należy zmiennej HeapError przypisać wskazanie 
własnej procedury obsługi sytuacji wyjątkowych 
związanych z przydzielaniem sterty. Funkcja ta 
powinna być tak zdefiniowana, aby jej rezultat 
był daną o wartości O, 1 albo 2. Rezultat O powo- 
duje powstanie błędu wykonania programu, rezul- 
tat 1 powoduje przypisanie p wskazania pustego 
Cnil>, a rezultat 2 powoduje ponowne wywołanie 
procedury New (co znowu może spowodować wywołanie 
procedury obsługi). 

Porównaj GetMem, Dispose 

Przyklad 

< New > 
uses 
Crt; 
const 
Fix : word = 13; 
var 
Ref : Ćword; 
begin 
ClrScr; 
NewCRef); 
Ref" := Fix; 
WriteCRef"©0; (C 13 > 
end. 


Wykonanie programu powoduje wyprowadzenie liczby 13. 
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NormYVideo 


Nazwa 


DekRlarac ja 


Modul 
Opts 


Porównaj 


Przyklad 


NormVideo — odtworzenie atrybutu wyświetlania 
znaków 

procedure 

Nor mVi deo 

Crt 

Przypisanie zmiennej TextAttr takiego atrybutu 
określającego sposób wyświetlania znaków, jaki 
obowiązywał w chwili rozpoczęcia wykonywania 
programu. 


HighVideo, LowVideo, TextBackground, TextColor 


€ NormVideo > 


uses 
Crt; 


begin 


ClrSer; 
HighVideo; 
WritelnC 'Ewa*'); 
Nor mVi deo; 
WriteCl'Iza') 


end. 


Wykonanie programu powoduje wyświetlenie napisu Ewa literami 
rozjaśnionym. i napisu Iza literami rozjaśnionymi w taki spo- 
sób jak byłyby rozjaśnione litery napisu Ewa, gdyby z progra- 
mu usunięto wywołanie funkcji HighVideo. 


NoSound 
Nazwa NoSound — wyłączenie głośnika 
DeRlaracja procedure 

NoSound 
Modut Crt 
Opis Wyłączenie głośnika komputera. 
Porównaj Sound 
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Przyklad 


€ NoSound > 
uses 
Crt; 


Var 
i : word; 


begin 
ClrSer; 
for i := 1 to 20 do begin 


Sound(l 440) ; 
DelayC200); 
NoSound; 

DelayC2003) 


end 


end. 


Wykonanie programu powoduje emitowanie dźwięku o częstotli — 
wości 440 Hz, przerywanego co 200 ms. 


Odd 


Nazwa Odd — sprawdzenie nieparzystości 

Deklaracja function 
Oddl(xO : boolean 

Modut System 

Opis Utworzenie danej typu boolean o wartości logicz— 
nej zdania x jest nieparzyste. 

Uvagi Argumentem funkcji Odd może być dowolne wyrażenie 


całkowite. 


Przyklad 


« Odd > 


uses 
Crt; 


var 
i : byte; 
begin 
CirScer; 
for i :71 to 9 do 


it OddCi> then 
WriteCi :20; «X 1 357 9. 


end. 


Wykonanie programu powoduje wyprowadzenie liczb i, 3, 5, 7, 9. 
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Ofs 


Nazwa Ofs — wyznaczenie przemieszczenia w segmencie 
Deklaracja function 
OfSCHO : word 
Hodut System 
Opis Utworzenie danej typu word o wartości równej 
przemieszczeniu w segmencie obiektu reprezento— 
wanego przez argument funkcji. 
Uwagi Argumentem funkcji Ofs może być nazwa zmiennej 
albo identyfikator podprogramu. 
Porównaj Addr, Seg 
Przyklad 
« Ofs > 
uses 
Crt; 
const 
Fix : word = 13; 
var 
Ref word; 
begin 
CirSer; 
Ref PtŁrCDSeg,OfSCFi1x0); 


WriteCRef"); < 13 > 


end. 


Wykonanie programu powoduje wyprowadzenie liczby 13. 


Ord 

Nazwa Ord — wyznaczenie liczby porządkowej 

Deklaracja function 
OrdC(>2O : longint 

HoduT System 

Opis Utworzenie danej typu longint o wartości równej 
liczbie porządkowej argumentu funkcji. 

Uwagi Argumentem funkcji Ord może być dowolne wyrażenie 
porządkowe. 

Porównaj Chr 


Przyktlaa 


< Ord >» 


uses 
Crt; 


var 
RGB : CRed,Green,Blue); 


begin 
CirScer; 
WriteCOrdć(BlueDD; <C 2 » 


end. 


Wykonanie programu powoduje wyprowadzenie liczby 2. 


Out Text 


Nazwa OutText — wykreślenie tekstu 

Deklaracja procedure 
OutTextC(atext : string) 

Modut Graph 

Opis Wykreślenie w pobliżu bieżącej pozycji kursora 
graficznego tekstu określonego przez atext. 

Uwagi System musi być w trybie graficznym. Tekst jest 
wykreślany czcionką określoną za pomocą procedury 
SetTextStyle i w kolorze określonym za pomocą 
procedury SetColor. Usytuowanie tekstu względem 
pozycji kursora graficznego może być określone 
za pomocą procedury SetTlextJustify. Jeśli pierw- 
szy argument tej procedury ma wartość Leftlext, 
a tekst jest wyświetlany w poziomie, to pozioma 
współrzędna kursora graficznego jest przemiesz— 
czana o szerokość wyświetlanego tekstu. W pozos— 
tałych przypadkach pozycja kursora nie ulega 
zmianie. Jeśli tekst nie mieści Się w bieżącym 
okienku graficznym, to jest obcinany na jego ob- 
rzeżach. 

Porównaj GetTextSettings, OutTexŁXY, SetTextJustify, 
SetTextStŁyle, TextHeight, TextWidth. 


Przyklad 


< OutText > 
uses 
Crt, Graph; 
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VAT 


Driver ,Mode : integer; 
xMar ,yMar : integer; 


begin 


Driver 


:= Detect; 


I ni tGraphC Driver „Mode, '*); 
if GraphResult <> grOK then 
HaltC1D; 


xMar 
yMar 


GetMaxX div 3; 


:= GetŁMaxY div 3; 


SetViewPortCxMar ,yMar,2 * xMar,2 * yMar ,CLipOn); 
Out TextC'Inside ViewPort"'J; 


repeat until KeyPressed; 


CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie tekstu Inside 


ViewPort w lewym-górnym narożniku okienka graficznega. 


z A ZY A W w wy o w 0 A no 


Out TextXY 

Nazwa Out TextLXY — wykreślenie tekstu 

Deklaracja procedure 
Out TextŁXYCx,y : integer; 

atext : string. 

HodutT Graph 

Opis Wykreślenie w pobliżu punktu o współrzędnych 
Cx,y) tekstu określonego przez atekst. 

Uwagi System musi być w trybie graficznym. Pozycja kur- 
sora graficznego nie ulega zmianie. Tekst jest 
wykreślany czcionką określoną za pomocą procedury 
SetTextStyle i w kolorze określonym za pomocą 
procedury SetColor. Sposób usytuowania tekstu 
względem punktu o współrzędnych Cx,y) może być 
określony za pomocą procedury SetlIextJustify. 
Jeśli tekst nie mieści się w bieżącym okienku 
graficznym, to jest obcinany na jego obrzeżach. 

Porównaj GetTextŁSettings, OutText, SetlextJustify, 
SetTextStyle, TextHeight, TextWidth 

Przyklad 

< OutTextXY > 
uses 
Crt, Graph; 
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var 
Driver ,Mode : integer; 
xSize : word; 


const 

MyName : string(12] = 'Jan Bielecki';. 
begin 

Driver := Detect; 


InitGraphCDriver „Mode, '")D; 
if GraphResult <> grOK then 
HaltC1D; 


xSize := TexŁWidthCMyName>;. 

SetTextJustifyC(LeftText, IoplIext); 

OutTextŁXYCGetMaxX — xSize div 2,O,MyName);  € Jan Bi >» 
repeat until KeyPressed; 

CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie obciętego tekstu 
Jan Bielecki. 


OvrClearBuft 


Nazwa OvrClearBuf — opróżnienie bufora nakładek 


Deklaracja procedure 


Ovr ClearBuf 
Modut Overlay 
Opis Uznanie, że w bufor nakładek jest pusty. 
Uvagi Przyjęte założenie spowoduje, że najbliższe odwo- 


łanie się do procedury znajdującej się w module 
nakładkowanym, spowoduje załadowanie go do bufora 
nakładek. 

Porównaj OvrGetBuf, OvrSetBuf 


Przyklad 
< OvrClearBuf > 
uses 
Overlay,lmage; 
<$O0 Image» 
L<$F+> 


var 
Sizei ,Sizeż : longint; 
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begin 
OvrIni tC' OVRCLEAR. OVR' 2; 


Sizel := Memavail; 
Diff; 
Ovr ClearBuf; 
Size2 := MemAvail; 
WritelnC(Size2 -— Size1); CO > 
end. 
<$0+, F+> 
unit Image; 
interface 
procedure Diff; 
implementation 
procedure Diff; 
begin 
WriteC'Diff = ') 
end; 
end. 


Wykonanie programu powoduje wyprowadzenie napisu Diff =0O. 


OvrGetBuf 


Nazwa OvrGetBuf — udostępnienie rozmiaru bufora nakładek 
Deklaracja function 
OvrGetBuf : longint 


Hodut Overlay 

Opts Udostępnienie danej typu longint o wartości rów- 
nej rozmiarowi bufora nakładek. 

Uwagi Początkowy rozmiar bufora nakładek jest równy 
rozmiarowi największej nakładki. 

Porównaj OvrInit, OvrInitŁEMS, OvrSetBuf 

Przyklad 


< OvrGetBuf > 

uses 
Overlay,lmage; 
<$O0 Image» 
<$F+> 

begin 


OvrInitC * OVRGETB. OVR'2D; 
SizeC(OvrGetBufD;  « Size = 96 >» 


end. 
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<$0+,F+> 
unit Image; 
interface 

procedure SizeC(Par : longint); 
implementation 

procedure Size; 

begin 

WriteC Size = ",Par) 

end; 

end. 


Wykonanie programu powoduje wyprowadzenie napisu Size = 96. 


OvriInit 


Nazwa OvrInit — zainicjowanie zarządcy nakładek 

Deklaracja procedure 
OvrInitCname : string) 

Modut Overlay 

Opis zainicjowanie zarządcy nakładek przez podanie 
nazwy zbioru name zawierającego nakładki. 

Uwagi Zbiór name jest poszukiwany kolejno: w katalogu 
bieżącym, w katalogu zawierającego program 
wykonywalny, w katalogach określonych przez 
łańcuch środowiska PATH. 


Niepomyślne wykonanie procedury powoduje, że 
zmiennej OvrResult jest przypisywana dana o 
jednej z następujących wartości: 


ovrEr ror — błedny zbiór nakładek <-1> 
ovrNotFound = nie znaleziono zbioru <—22> 


Porównaj OvrGetBuf, OvrIniŁEMS, OvrSetBuf 


Przyklad 


<« OvrInit >» 

uses 
Overlay,lImage; 
($0 Image» 


($F+> 

begin 
OvrInitC'OVRINIT. OVR'D; 
case OvrResult of 


ovr OK: Greet; 

ovrError: Writelnć('Incorrect format"; 

ovrNotFound: WritelnC'"File not found” 
end 


end. 


<$0+,F+> 
unit Image; 


interface 
procedure Greet; 

implementation 
procedure Greet; 
begin 

WriteC'Hello'D 

end; 

end. 


Wykonanie programu powoduje wyprowadzenie napisu Hello. 


OvrlnitEKS 


Nazwa OvrInitŁEMS — załadowanie nakładek do EMS 


Deklaracja procedure 


Ovr I ni ŁEMS 
HModut Overlay 
Opts Załadowanie nakładek do pamięci rozszerzonej. 
Uwagi Operacja jest wykonalna tylko wtedy, gdy pamięć 


taka istnieje, a jej rozmiar jest wystarczający. 


Niepomyślne wykonanie procedury powoduje, że 
zmiennej OvRResult jest przypisywana dana o 
jednej z następujących wartości 


ovr Er ror — nie zainicjowano zarządcy €-—12 

ovr1IOError — błąd odczytu zbioru <-4) 

ovrNoEMSdriver — brak sterownika EMS €-5> 

ovrNoEMSmemory — brak pamięci EMS X-6> 
Porównaj OvrGetBuf, OvrInit, OvrSetBuf 


Przyklad 


<« OvrInitŁEMS > 


uses 
Overlay,lmage; 
<$O Image> 


<$F+> 
begin 


OvrInitC'INI TEMS. OVR*D; 
OvrIni ŁEMS; 


case ovrResult of 
ovrNoEMSdriver: WritelnC "Driver not found”); 
ovrNoEMSmemory: WritelnC'Not enough memory'J; 
ovrOkK: Greet 

end 


end. 


<$0+,F+> 


unit Image; 
interface 
procedure Greet; 
implementation 
procedure Greet; 
begin 
WriteC "Hello" 
end; 
end. 


Wykonanie pr 


ogramu powoduje wyprowadzenie napisu Hello. 


OvrSetBuf 
Nazwa OvrSetBuf — zmiana rozmiaru bufora nakładek 
Deklaracja procedure 
OvrSetBufC(size : longint) 
Modut Overlay 
Opis Przydzielenie bufora nakładek o rozmiarze size. 
Uvagi Rozmiar size musi być większy od rozmiaru 
największej nakładki i mniejszy od dostępnego 
rozmiaru sterty — zwiększonego o bieżący rozmiar 
bufora nakładek. Zmiana rozmiaru bufora nakładek 
może nastąpić jedynie wtedy, gdy sterta jest 
pusta. 
Porównaj _ OvrGetBuf, OvrInit, OvrInitEMS 
Przyklad 
< OvrSetBuf > 
uses 
Overlay,lmage; 
<$0 Image» 
<$F+> 
var 


OldBuf „,NewBuf : longint; 


begin 


OvrIni 


tC' OVRSETB. OVR' 2; 


OldBuf := OvrGetBuf; 
OvrSetBufCOldBuf + 100000); 

NewBuf := OvrGetBuf; 

SizeC(NewBuf — OldBuf); < 10000 > 


end. 
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<$0+, F+> 
unit Image; 
interface 

procedure SizeCPar : longint); 
implementation 

procedure Size; 

begin 

WriteCParD) 

end; 

end. 


Wykonanie programu powoduje wyprowadzenie liczby 10000. 


PackTime 


Nazwa PackTime — upakowanie daty i czasu 
Deklaracja procedure 
PackTimeCvar utime : DateTlTime; 


var ptime : longint) 
Modut Dos 


Opis Przekształcenie rozpakowanej daty 1 czasu, wyra— 
żonych za pomocą pól rekordu utime, w daną typu 
longint i przypisanie jej ptime. 

Uwagi Nie przeprowadza się kontroli wartości danych 
przypisanych polom rekordu utime. Typ Datelime 
jest zdefiniowany następująco: 

type 
DateTime = record 
Year : word; 


Month : word; 
Day : word; 


Hour : word; 

Min : word; 

Sec : word 
end; 


Pole Year określa numer roku C1980..2099); pole 
Month określa numer miesiąca C1..12); pole Day 
określa numer dnia C1..310; pole Hour określa 
liczbę godzin jakie upłynęły od północy CO..23); 
pole Min określa liczbę minut, jakie upłynęły od 
ostatniej godziny (C(O..590; pole Sec określa licz- 
bę sekund, jakie upłynęły od ostatniej mi nuty 
CO..59)>. 

Porównaj GetFTime, GetTime, SetFTime, SetTime, UnpackTi me 


Przyklad 


<« PackTime > 


uses 
Crt, Dos; 
const 
Sunday : DateT[ime = 
C Year 1981; Month 12; 
Day : 13; Hour : 6; 
Min : O; Sec O 2; 
var 
LongSunday : longint; 
Doc : file; 
begin 
ClrSer; 
PackTimel Sunday, LongSunday); 
Assign(Doc, ” JanB. doc ”JD; 
RewriteC Doc); 
SetFTimeC(Doc,LongSunday) ; 12-13-81 6:0O0Oa >» 


end. 


Wykonanie programu powoduje taką zmianę czasu ostatniej 
fikacji zbioru JanB. doc, 


mody— 
jakby nastąpiła ona 13 grudnia 1981 


roku o godzinie 6 rano. 


ParamCount 

Nazwa ParamCount — wyznaczenie liczby parametrów pro- 
gramu 

Deklaracja function 
ParamCount : word 

Modul System 

Opis Utworzenie danej typu word o wartości równej 
liczbie parametrów programu. 

Uvagt W programie wywołanym ze Środowiska zintegrowane- 
go, parametrami są oddzielone spacjami napisy ok- 
reślone po wybraniu z głównego menu najpierw pola 
Options, a następnie pola Parameters. W programie 
wywołanym z systemu operacyjnego, parametrami są 
te napisy następujące po nazwie programu, które 
nie są poprzedzone operatorami zwrotnicowymi: 
< Cmniejsze) i > CwiększeJ. 

Porównaj Par amStr 


Przyklad 


< ParamCount > 
uses 

Crt; 
var 

i : byte; 
begin 

C1rSer; 


for i := 1 to ParamCount do 
WritelnCParamStrCiD) 


end. 


Wykonanie programu powoduje wyprowadzenie parametrów z jakimi 


wywołano program. 


ParamStr 


Nazwa ParamStr — udostępnienie parametru programu 

DeRlaracja function 
ParamStrCnum : word)» : string 

Modul System 

Opis Utworzenie danej typu string o wartości równej 
napisowi identycznemu z tym parametrem programu 
który ma numer num. 

Uvagti Jeśli num 4 O albo num > ParamCount, to rezul— 
tatem funkcji ParamStr jest dana składająca się 
z pustego ciągu znaków. 


Porównaj ParamCount 


Przyklad 


< ParamStr > 


uses 
Crt; 


begin 
C1rSer; 
WritelnCParamStrCParamCountD.D 


end. 


Wykonanie programu powoduje wyprowadzenie ostatniego paramet- 


ru programu. 


Pi 


Nazwa Pi — udostępnienie liczby Pi 

Deklaracja function 
Pi : real/extended 

Modul System 

Opis Utworzenie danej typu real/extended o wartości 
liczby Pi C3.14159265358979323850). 

Uvagti Dokładność rezultatu funkcji Pi zależy od tego 
czy program wynikowy odwołuje się do koprocesora 
arytmetycznego. 

Przyklad 

< Pi > 
uses 
Crt; 
begin 
ClrScer; 
WriteCPi);  3.1415926536E+00 >» 
end. 


Wykonanie programu nie odwołującego się do koprocesora aryt- 


metycznego powoduje wyprowadzenia liczby 3.1415926536E+00 


PieSlice 
Nazwva PieSlice — wykreślenie wycinka koła 
Deklaracja procedure 
PieSliceCx,y : integer; 
angb,ange : word; 
radius : word) 
Modul Graph 
Optls Wykreślenie wycinka koła o Środku w punkcie Cx,y) 
i promieniu radius, począwszy od kąta angb, a 
skończywszy na kącie ange. Wypełnienie wycinka 
wzorem określonym za pomocą procedury SetFill- 
Style albo SetFillPattern. 
Uvcgt System musi być w trybie graficznym. Obranie ką- 


tów angb=0 i ange=360 powoduje wykreślenie peł—- 
nego koła. Niepomyślne wykonanie procedury 


Porównaj 


Przyklad 


PieSlice powoduje, że rezultatem funkcji 
GraphResult jest dana o wartości 


grNoScanMem — brak pamięci do wypełnienia ob— 


szaru metodą scan <-5> 


Arc, Circle, Ellipse, GetArcCoords, GetAspect— 
Ratio, SetColor, SetFillPattern, SetFillStyle 


<« PieSlice > 


uses 


Crt,Graph; 


var 


Driver ,Mode : integer; 


begin 


Driver 


:= Detect; 


InitGraphC Driver ,Mode, ” *D; 
if GraphResult <> grOK then 
HaltC1D; 


PieSlicec0,0,270,360,1000D; 


repeat until KeyPressed; 


CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie ćwiartki koła i wy- 


pełnienie jej wzorem ciągłym. 


Pos 

Nazwa Pos — wyszukanie podciągu 

Deklaracja function 
PosCsub : string; 

s : string : byte 

Modul System 

Opts Utworzenie danej typu byte o wartości równej nu- 
merowi tego znaku s, od którego rozpoczyna się 
podciąg określony przez sub. 

Uwagt Jeśli w s nie występuje podciąg sub, to rezulta— 
Łem funkcji Pos jest dana o wartości O. 

Porównaj Copy, Insert 


Przyklad 


< Pos > 


uses 
Crt; 


const 
FullName : stringl20] = "Jan Andrzej Bielecki"; 


var 
andPos : byte; 


begin 
CirSer; 
andPos := Posl 'And' ,FullNameD; 
WriteCCopyCFullName,andPos,700;  € Andrzej » 
end. 
Wykonanie programu powoduje wyprowadzenie napisu Andrzej. 
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Pred 
i — 


Nazwa Pred — utworzenie poprzednika 
Deklaracja function 


PredC2O : type 


Modut System 
Opis Utworzenie danej o wartości i typie poprzednika x. 
Uwagi Argumentem funkcji Pred może być dowolne wyraże- 
nie porządkowe. 
Porównaj Dec, Succ 
Przyktad 
< Pred > 
uses 
Crt; 
begin 
ClrScer; 
WriteCPred(Predl "2000; < X >» 
end. 


Wykonanie programu powoduje wyprowadzenie litery X. 


Nazwa Ptr — utworzenie wskazania 
Deklaracja function 
PtrC(seg: word; 


ofs : word) : pointer 
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HAodutl System 
Opis Utworzenie wskazania typu pointer o numerze seg— 


mentu seg i przemieszczeniu w segmencie ofs. 


Uwagi Wskazania typu pointer mogą być przypisywane 
zmiennym wskazującym dowolnych typów. 
Porównaj Addr 
Przyklad 
< Ptr > 
uses 
Crt, Graph; 
var 
Driver „Mode : integer; 
Ref : Cchar; 
begin 


DetectGr aphC Dr i ver ,Mode); 
if CGraphResult <> grOK> or 
(Driver <> HercMono> or CMode <> HercMonoHiD then 


HaltC1D; 
ClrSer; 
Writel'='>; CC = > 
Ref := PtrC$BOO0O,ODJ; 
WriteCRef0 = **'>;  (€ TRUE > 


end. 


Wykonanie programu powoduje wyświetlenie w lewym-górnym naroż- 


niku ekranu sterowanego przez kartę Hercules, napisu *TRUE. 


Putlmage 


Nazwa PutImage — umieszczenie obrazu na ekranie 
Deklaracja procedure 
PutlmageCx,y : integer; 
var map; 
bltŁ : wordJ 
Hodut Graph 
Opis Umieszczenie na ekranie prostokątnego obrazu gra- 
ficznego zapamiętanego uprzednio w obszarze zlo- 
kalizowanym przez map. Wykonanie tego w taki spo- 
sób, aby lewy-górny narożnik prostokąta znalazł 
się w punkcie o współrzędnych Cx,y), a nałożenie 


obrazu na ekran odbyło Się zgodnie z blt. 
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Uvagi System musi być w trybie graficznym. Wykonanie 
procedury PutIlmage nie powoduje obcięcia obrazu 
na obrzeżach okienka graficznego. Jeśli obcięcie 
byłoby wymagane, to wykonanie procedury nie wywo- 
ła żadnych skutków. Wyjątek: jeśli dolnym obrze- 
żem okienka jest dolne obrzeże ekranu, to obraz 
wykraczający poza to obrzeże Ci tylko poza nie) 
jest umieszczany na ekranie i obcinany. Sposób 
nałożenia obrazu na ekran Cparametr bltD) może 


być określony za pomocą następujących symboli: 


NormalPut — operacja mov <O> 


xor Put — operacja xor <1> 
orPut — operacja or (2 
andPut — operacja and <3> 
notPut — operacja not 4» 
Porównaj GetImage, ImageSize 
Przyklad 
< PutlImage > 
uses 
Crt,Graph; 
var 


Driver ,Mode : integer; 
xCen,yCen : integer; 
xCor ,yCor : integer; 
Ref : pointer; 

begin 
Driver := Detect; 
InitGraphCDriver ,Mode, *''); 


if GraphResult <> grOK then 
HaltC1); 


xCen := GetMaxX div 2; 
yCen := GetMaxY div 2; 


CircleCxCen,yCen,50D; 
FloodFi11CxCen,yCen, GetMaxColorDJ; 


xCor := xCen — 100; 
yCor := yCen — 100; 


GetMemć Ref ,ImageSizećxCor ,yCor, 
xCor + 200,yCor + 20000; 


GetI mageCl xCor „yCor, 
xCor + 200,yCor + 200,Ref"D; 


PutImageCxCor + 20,yCor + 20,Ref",xorPut); 
repeat until KeyPressed; 
CloseGraph 
end. 
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Wykonanie programu powoduje wykreślenie dwóch kół. Ich część 


wspólna zostanie wypełniona kolorem tła. 


ZZOZ A Z Z O R O Z ZY O A Z YZ Z YE WE W Z 


PutPixel 


Nazwa PutPixel — wyświetlenie piksela 


Deklaracja procedure 


PutPixelCx,y : integer; 


num : word) 
Modut Gr aph 
Opis Wyświetlenie w punkcie o współrzędnych Cx,y) 
piksela w kolorze o numerze num. 
Uwagi System musi być w trybie graficznym. 
Porównaj GetI mage, GetPixel, PutImage 
Przyktad 


< PutPixel > 


uses 
Crt,Graph; 


var 
Driver „Mode : integer; 
i : word; 


begin 


Driver := Detect; 

InitGraphC Driver ,Mode, '*'); 

if GraphResult <> grOK then 
HaltC1D; 


for i := O to GetMaxX do 
PutŁPixelCi,O,GetŁMaxColor); 


repeat until KeYPressed; 
CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie odcinka linii prostej 


wzdłuż lewego obrzeża ekranu. 


omy. m mna AśżŻŻŻ ZZ 


Random 
>>> 
Nazwa Random — utworzenie danej o wartości przypadkowej 
Deklaracja function 

Randomtrange : word) : word 
albo function 

Random : real/sextended 


343 


Modut System 
Opis Utworzenie danej o wartości przypadkowej. W wer-— 
sji z jednym argumentem dana jest typu word, a 
jej wartość w należy do przedziału O <= w (4 range. 
Ww wersji bez argumentu dana jest typu real/ex- 
tended, a jej wartość w należy do przedziału 
O <=w( 1. 
Uwagi Pierwsze wywołanie funkcji Random jest zazwyczaj 
poprzedzone wywołaniem funkcji Randomize. 
Porównaj Randomize 
Przyklad 
€ Random > 
uses 
Crt; 
begin 
CirSer; 
Randomize; 
while not KeyPressed do 
WritelnCChrCRandom(100 + OrdCc"O020D2; 
end. 


Wykonanie programu powoduje sukcesywne wyprowadzanie cyfr 
przypadkowych. 


Randomize 


Nazwa 


Deklaracja 


Modul 
Opis 


Uwagi 


Porównaj 
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Randomize — zainicjowanie generatora danych 

o wartościach przypadkowych 

procedure 

Randonmize 

System 

Zainicjowanie generatora danych o wartościach 
przypadkowych. Polega ono na tym, że zmiennej 
RandSeed, zadeklarowanej w module System, jest 
przypisywana dana typu lęngint. Dana ta jest two- 
rzona na podstawie bieżącego wskazania zegara 
systemowego. 

Bezpośrednie zainicjowanie zmiennej RandSeed 
umożliwia generowanie powtarzalnego ciągu liczb 
przypadkowych. 


Random 


Przyklad 


<« Randomize > 


uses 
Crt; 


begin 


CirScr; 

WritelnC(RandSeed); < O > 

Randomi ze; 

WriteCRandSeed);  « random longint > 


end. 


Wykonanie programu powoduje wyprowadzenie wartości zmiennej 


RandSeed przed i po wykonaniu procedury Randomize. 


Read 
Nazwa Read — wprowadzenie danych z pliku 
Deklaracja procedure 
ReadCvar f; 
var vi,ve, ... ,„vNn 
HoduT System 
Opis Wprowadzenie z pliku identyfikowanego przez £ 
zestawu danych i przypisanie ich vi,ve, ... n„vn. 
Uwagi Pierwszym argumentem procedury Read (w podanej 


postaci) musi być nazwa zmiennej plikowej identy- 
fikująca otwarty plik elementowy albo tekstowy. 
Jeśli f identyfikuje plik elementowy, to drugi 

i następne argumenty procedury muszą być nazwami 
zmiennych takiego samego typu jak elementy pliku. 
W Łakim przypadku wykonanie procedury powoduje 
przypisanie tym zmiennym wprowadzonych danych. 
Wymaga się, aby przed podjęciem wykonania proce- 
dury plik zawierał co najmniej tyle danych ile 
jest zmiennych, którym będą przypisane. 


Jeśli f identyfikuje plik tekstowy, to drugim 

i następnymi argumentami procedury mogą być naz— 
wy zmiennych znakowych Cchar), całkowitych Cinte- 
ger, shortint, longint, byte, word), rzeczywis— 
tych Creal, single, double, extended, comp) i 
łańcuchowych Cstringln]l>. Jeśli pierwszy argu- 
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ment procedury Read zostanie pominięty, to dom- 


niema się argument Input. 


Jeśli argument jest typu znakowego, to następuje 
wprowadzenie jednego znaku i przypisanie go 
zmiennej. Jeśli przed wykonaniem tej czynności 
plik znajdował się w pozycji końcowej, to nastąpi 
przypisanie danej składającej się ze znaku końca 
pliku: ©Z . Jeśli natomiast znajdował się w pozy- 
cji przed końcem wiersza CEolnCf)=true), to nas— 
Łąpi przypisanie danej składającej się ze znaku 


końca wiersza: "M . 


Jeśli argument jest typu całkowitego, to następu- 
je wprowadzenie ciągu znaków mającego postać 
liczby całkowitej dziesiętnej. Liczba może być 
poprzedzona znakami spacji, tabulacji i zmiany 
wiersza. Kończy ją spacja, tabulacja, znak końca 
wiersza albo znak końca pliku. Dana o wartości 
wprowadzonej liczby jest następnie przypisywana 
zmiennej reprezentowanej przez argument. Jeśli 
wprowadzony ciąg znaków nie ma postaci liczby, 

Ło powstaje błąd wejścia-wyjścia. Jeśli przed 
napotkaniem pierwszego znaku liczby plik znaj- 
dzie się w pozycji końcowej, to wymienionej zmie- 
nnej jest przypisywana dana o wartości O. W każ- 
dym przypadku znak, który zakończył liczbę jest 


uważany za jeszcze nie wprowadzony. 


Jeśli argument jest typu rzeczywistego, to nastę- 
puje wprowadzenie ciągu znaków mającego postać 
liczby dziesiętnej: całkowitej albo rzeczywistej. 
Liczba może być poprzedzona znakami spacji, tabu- 
lacji i zmiany wiersza. Kończy ją spacja, tabula- 
cja, znak końca wiersza albo znak końca pliku. 
Dana o wartości wprowadzonej liczby jest następ” 
nie przypisywana zmiennej reprezentowanej przez 
argument. Jeśli wprowadzony ciąg znaków nie ma 
postaci liczby, to powstaje błąd wejścia-wyjścia. 
Jeśli przed napotkaniem pierwszego znaku liczby 


plik znajdzie się w pozycji końcowej, to wymie- 


Porównaj 


Przyktad 


<€ Read >» 


uses 
Crt; 


var 
Data 


begin 


nionej zmiennej jest przypisywana dana o war— 
tości O. Ww każdym przypadku, znak który zakoń 
czył liczbę jest uważany za jeszcze nie wprowa- 


dzony. 


Jeśli argument jest typu łańcuchowego, to nastę- 
puje wprowadzenie ciągu znaków poprzedzających 
najbliższy znak końca wiersza albo końca pliku, 
a następnie przypisanie zmiennej reprezentowanej 
przez argument danej łańcuchowej składającej się 
z tego ciągu. znak kończący wprowadzony ciąg 
znaków jest uważany za jeszcze nie wprowadzony. 
Z tego powodu, wprowadzenie ciągu znaków zawar - 
tych w kolejnych wierszach wymaga zastąpienia 


procedury Read procedurą Readln. 


W przypadku niepomyślnego wykonania jakiejkol- 


wiek z opisanych operacji powstaje błąd wejścia— 
-—wyjŚcia. 
ReadKey, Readln 


string; 


ClrSer; 
WritećC "Enter string : "DD; 
ReadC( Data); 


Writećl "You entered "'*',Data,*'"'"'2 


end. 


Wykonanie programu powoduje wprowadzenie jednego wiersza 


tekstu, a następnie wyprowadzenie go na ekran. 


z 


ReadKey 


a o 


Nazwa 


DekRlarac ja 


Modut 


ReadKey — wprowadzenie znaku z klawiatury 
function 

ReadKey : char 

Crt 
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Opis Utworzenie danej typu char składającej się ze 
znaku wprowadzanego z klawiatury. 

Uwagi Wprowadzony znak nie jest powielany na ekranie. 
Jeśli bufor klawiatury jest pusty, to następuje 
wstrzymanie wykonywania programu aż do chwili 
wprowadzenia znaku. Jeśli wprowadzony znak należy 
do grupy znaków specjalnych Cpor. Dodatek A), to 
rezultatem funkcji jest znak o kodzie O. Bezpo- 
średnio po Łakim znaku następuje znak o kodzie 
wprowadzonego znaku specjalnego. 


Porównaj KeyPressed 
Przyklad 


< ReadKey > 


uses 
Crt; 


VAT 
Ch : char; 


begin 


ClrScer; 

WriteC'Press any key combination *D; 
Ch := ReadKey; 

Writeln; 

WriteC "You entered ”); 

if Ch = 40 then begin 


Ch := ReadKey; 
WriteC'a special key, Code = ' „OrdCCh)) 


end 
else 
WriteC”'”,Ch,”"”3 


end. 


Program ilustruje zasadę rozpoznawania znaków specjalnych. 


Readln 


Nazwa Readln — pominięcie końcowych znaków wiersza 
Deklaracja procedure 
ReadlnCvar f : text) 
HModut System 
Opis Usytuowanie pliku identyfikowanego przez £f w po- 


zycji przed pierwszym znakiem następnego wiersza. 
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Uwagi Plik identyfikowany przez f musi być plikiem 
tekstowym otwartym za pomocą procedury Reset. Wy— 
wołanie procedury Readln bez argumentu powoduje 
domniemanie argumentu Input. Jeśli po wywołaniu 


procedury 
ReadCf,al,a2, ... ,an) 
zostanie wywołana procedura 
ReadlnCf) 


Ło para takich wywołań może zostać zastąpiona 


wywołaniem 


ReadlnCf ,ali ,a2, ... ,an) 
Porównaj Read 


Przyklad 


< Readln > 
uses 

Crt; 
var 


FirstName,LastName : string; 


begin 
ClrSscer; 


WriteC'Enter your first name : "); 
ReadCFirstName); 

Readln; 

WriteC'Enter your last name : "); 
ReadC(LastName); 

GotoXYC1 ,10D; 


WriteC "Your name is ",FirstName,' ',LastName) 


end. 


Wykonanie programu ilustruje użycie procedury Readln dotyczą 


cej standardowego pliku wejściowego. 
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Rectangle 


Nazwa. 


Deklaracja 


Przyklad 


Rectangle — wykreślenie prostokąta 
procedure 
Rectanglelxi ,yl : integer; 
x2,y2 : integer. 
Graph 
Wykreślenie prostokąta, którego przeciwległe 
wierzchołki mają współrzędne Cxl,y1l) i Cx2,y2). 
System musi być w trybie graficznym. 
Bar, Bar3D, SetColor, SetLineStyle. 


< Rectangle > 


uses 


Crt ,Graph; 


var 


Driver „Mode : integer; 


begin 


Driver 


:= Detect; 


Ini ŁGraphC Driver „Mode, * *2; 
if GraphResult <> grOK then 
HaltC1D; 


RectangleCO,O,GetMaxX,GetMaxYD; 


repeat until KeyPressed; 


CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie obrzeża ekranu. 


RegisterBGIDri ver 


RegisterBGIDriver — zgłoszenie sterownika gra- 
ficznego 

function 

RegisterBGIDriverCdriver : pointerJ : integer 
Graph 

Zgłoszenie, że w obszarze pamięci operacyjnej 
wskazanym przez driver znajduje się program 


sterownika graficznego. Utworzenie danej typu 


integer o wartości równej wewnętrznemu numerowi 
zgłoszonego sterownika. 

Uwagi Niepomyślne wykonanie funkcji RegisterBGIDriver 
powoduje, że rezultatem funkcji GraphResult jest 


dana o wartości 


grInvalidDriver — niewłaściwy sterownik gra- 
ficzny (€-4> 


Porównaj RegisterBGIFont 
Przyklad 


< RegisterBGIDriver > 


uses 
Crt,Graph; 


($L HERC. OBJ > 


procedure Herc_Driver; 


external; 
var 
Driver ,Mode : integer; 
C WIEALEJEDEIEJEEZEJCIEJLIEJE JEJ KIEJEOZEJEIEJEJEJEJEJEJEJED) 
€%* BINOBJ HERC. BGI HERC Herc_Driver % 
C IZIAOOLEIAEGLIDEJEJEEJEIEJEIEREJEJEJEEIEJEJEJEJEJEJEJEJEJED) 
begin 
Driver := RegisterBGIDriverC©Herc_Driver); 
if Driver < O then begin 
WriteCć'Error : " „GraphErrorMsgćGraphResul tt); 
HaltC13D) 
end; 
Driver := HercMono; 
Mode := HercMonoHi ; 


InitGraphCDriver „Mode, ' "D; 
if GraphResult <> grOK then 
HaltC13D; 


SetTextStŁyleCGothicFont ,HorizDir ,4); 
SetTextJustifyClLeftlext, Toplext); 


Out TextC "Driver registered"); 
repeat until KeyPressed; 
CloseGraph 


end. 


Wykonanie programu ilustruje nieautomatyczne zgłoszenie 


sterownika graficznego. 
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RegisterBGIFont 


Nazwa RegisterBGIFont — zgłoszenie kroju czcionek 
Deklaracja function 
RegisterBGIFontC(font : pointer) : integer 
Modut Graph 
Opis Zgłoszenie, że w obszarze pamięci operacyjnej 
wskazanym przez font znajduje się definicja kro- 
ju czcionek. Utworzenie danej typu integer o war— 
tości równej wewnętrznemu numerowi tego kroju. 
Uwagi Niepomyślne wykonanie funkcji powoduje, że rezul- 
tatem funkcji GraphResult jest dana o jednej z 
następujących wartości: 
grError — liczba zgłoszonych krojów 
czcionek przekracza 1O <-11> 
grInvalidFont — niewłaściwy krój czcionek €-13> 
grInvalidFontŁNum — niewłaściwy numer kroju czcio- 
nek C-14> 
Porównaj RegisterBGIDriver 
Przyklad 
< RegisterBGIFont > 
uses 
Crt,Graph; 
<$L GOTH > 
<$L TRIP > 
procedure Goth_Font; 
external; 
procedure Trip_Font; 
external; 
var 
Driver „Mode : integer; 
Drop : integer; 
const 


i : integer = O; 


begin 


Drop : 


Drop 


C WIELGIE IEAEIEOERIEJEEIEAELIEJEIEDERCIEJ 
C» BINOBJ HERC. BGI HERC Goth_Font *0 
C»* BINOBJ TRIP.CHR TRIP Trip_Font 0 


C IWIALIDEIEIEKKIECKKKKIEIAIIIIEDEKIEJEREIEDEDEJ 


= RegisterBGIFontC©Goth_Font); 


:= RegisterBGIFontC©Trip_Font); 
Driver 


:= Detect; 


InitGraphCDriver „Mode, "D; 
if GraphResult <> grOK then 
HaltC1D; 


repeat 
IncCl1); 
ClearViewPort; 


if i and 1 <> O then begin 
Set TextStylelGothicFont ,HorizDir ,52; 
Out TextC 'Gothic'D 

end 

else begin 
SetTextStyleC TriplexFont ,HorizDir „52; 
Out TextC ' Triplex'2 

end; 


Del ayC 500); 
until KeyPressed; 
CloseGraph 


end. 


Wykonanie programu ilustruje zasadę zgłaszania krojów czcio- 
nek. Dzięki zgłoszeniu krojów TIriplex i Gothic przełączanie 
między krojami nie wymaga transmisji dyskowych Czgłoszenie 
automatyczne może dotyczyć co najwyżej jednego kroju kresko— 


wego). 


Release 


Nazwa Release — okrojenie sterty 


Deklaracja procedure 


ReleaseCvar p : pointer) 
Modul System 
Opis Przypisanie zmiennej HeapPtr, wskazującej pierw— 


szy bajt poza stertą, danej wskazującej repre-— 
zentowanej przez argument procedury i tym samym 
usunięcie ze sterty wszystkich zmiennych znajdu— 


jących się powyżej miejsca wskazanego przez p. 


Uvagti Wskazanie p powinno być uprzednio określone za 
pomocą procedury Mark. 

Porównaj Mark, Dispose, FreeMem 

Przyklad 


< Release > 


uses 
Crt; 


Łype 
ArrPtr = arrayli..2000] of byte; 


353 
12 — Turbo Pascal 5.0 


Var 


Ref : 


Ptr 


pointer; 
*ArrPtŁr; 


Savel ,Save2,Save3 : longint; 


begin 


CirScer; 


Savei 


:= MemAvail; 


MarklRef); 
NewCPtŁrJ; 


Save2 


:= MemAvail; 


ReleaselRef); 


Save3 


:= MemAvail; 


WritelnCSavel — Save2); ( 2000 > 
WriteCSave3 — Savel); <O > 


end. 


Wykonanie programu powoduje wyprowadzenie liczb 2000 i O. 


Rename 

Nazwa Rename — zmiana nazwy zbioru 

Deklaracja procedure 
Renamelvar f; 

name : string) 

Modut System 

Opis Zmiana nazwy zbioru skojarzonego z plikiem iden- 
tyfikowanym przez f na name. 

Uvagt Pierwszym argumentem procedury Rename musi być 
nazwa zmiennej plikowej. Plik identyfikowany 
przez f£ nie może być otwarty. Niepomyślne wyko- 
nanie procedury powoduje powstanie błędu wejścia- 
wyjścia. 

Porównaj Erase 

Przyklad 


< Rename > 


uses 
Crt; 


var 


Doc : 


begin 


file; 


C1rSer; 
Assign( Doc ,ParamStrCc13)0; 
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<$I -> 


RenameC Doc ,ParamStrC<2)0D; 


<$I +> 


if IOResult <> O then 
WriteC'Failure"'D; 


end. 


Wykonanie programu powoduje przemianowanie zbioru o nazwie 


określonej przez pierwszy parametr programu. Nowa nazwa zbio 


ru jest określona przez drugi parametr. 


Reset 


Nazwa 


DeRlarac ja 


Modul 
Opts 


Uwvagt 


Porównaj 


Reset — otwarcie pliku 
procedure 
Resetćvar f; 

size : word) 
System 
Otwarcie pliku identyfikowanego przez f i usta— 
wienie go w pozycji początkowej. Określenie roz— 
miaru bufora pliku jako liczącego size bajtów. 
Pierwszym argumentem procedury Reset musi być 
nazwa zmiennej plikowej identyfikująca plik sko— 
jarzony z już istniejącym zbiorem. Drugi argument 
może wystąpić jedynie wtedy, gdy otwierany plik 
jest plikiem blokowym. Jeśli warunek ten jest 
spełniony, ale drugi argument zostanie pominięty, 


to domniema się argument 128. 


Plik jest otwierany w trybie określonym przez 
predeklarowaną zmienną FileMode, która ma jedną z 
następujących wartóści (domniemanie 2) 


Wartość Iryb 


O wprowadzanie Cread only), 
i wyprowadzanie CĆwrite only), 
2 wprowadzanie i wyprowadzanie. 


Niepomyślne wykonanie procedury Reset powoduje 
powstanie błędu wejścia-wyjŚcia. 


Append, Assign, Rewrite 
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Przyklad 


<« Reset > 


uses 
Crt; 


VAT 
Doc : file; 


begin 
CirScer; 
AssignCDoc ,ParamStrCc10D0; 
ResetC(Doc,1)D; 


Writećl'File ',ParamStrC1D,' contains ” 
FileSize(Doc),* bytes') 


end. 


Wykonanie programu powoduje wyznaczenie rozmiaru zbioru o naz- 


wie określonej przez pierwszy parametr programu. 


RestoreCr ŁMode 


Nazwa RestoreCrtMode — przywrócenie trybu tekstowego 


Deklaracja procedure 


RestoreCr ŁMode 
Modut Graph 
Opis Przywrócenie trybu tekstowego jaki obowiązywał 


przed ustanowieniem trybu graficznego. 

Uwagi System musi być w trybie graficznym. Użycie pro- 
cedury RestoreCrtMode na przemian z procedurą 
SetGraphMode umożliwia przełączanie systemmu 
między trybem tekstowym i graficznym. 

Porównaj Detect6raph, InitG6raph, SetGraphMode 


Przyklad 


< RestoreCrtMode > 


uses 
Crt,Graph; 


var 
Driver ,Mode : integer; 
Drop : char; 


begin 


Driver := Detect; 

InitGraphC Driver ,Mode, ' *D; 

1f GraphResult <> grOK then 
HaltC1); 
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Out TextC 'Graphics mode : Jan Bielecki"); 


repeat until KeyPressed; 
Drop := ReadKey; 


RestoreCrtMode; 
writeC' Text mode : Jan Bielecki”) 


end. 


Wykonanie programu powoduje wykreślenie, a następnie wyprowa— 


dzenie napisu Jan Bielecki. 


Rewrite 


Nazwa Rewrite — otwarcie pliku 

Deklaracja procedure 
RewriteCvar f; 

size : word) 

Modut System 

Opts Otwarcie pliku identyfikowanego przez f i usta— 
wienie go w pozycji początkowej. związanie z pli- 
kiem bufora liczącego size bajtów. 

Uwagt Pierwszym argumentem procedury Rewrite musi być 
nazwa zmiennej plikowej identyfikująca plik sko- 
jarzony ze zbiorem. Jeśli plik jest otwarty, to 
jest zamykany. Jeśli zbiór skojarzony z plikiem 
już istnieje, to jest usuwany. Następnie jest 
tworzony zbiór pusty, a skojarzony z nim plik 
jest ustawiany w pozycji początkowej. Drugi 
argument procedury może wystąpić jedynie wtedy, 
gdy otwarcie dotyczy pliku blokowego. Jeśli 
warunek ten jest spełniony, ale drugi argument 
zostanie pominięty, to domniema się argument 128. 
Niepomyślne wykonanie procedury Rewrite powoduje 
powstanie błędu wejścia-wyjścia. 

Porównaj Append, Assign, Reset 


Przyklad 


< Rewrite > 


uses 
Crt; 


VaV 
Doc : file; 
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begin 
CirSer; 
Assign( Doc ,ParamStrt1D0); 
Rewri tel Doc) 


end. 


Wykonanie programu powoduje utworzenie zbioru pustego o na- 


zwie określonej przez pierwszy parametr programu. 


Nazwa RmDir — usunięcie pustego podkatalogu 
Deklaracja procedure 


RmDirCdir : string) 


Modut System 
Opis Usunięcie pustego podkatalogu o nazwie dir. 
Uwagi Niepomyślne wykonanie procedury RmDir, spowodowa- 


ne podaniem nazwy podkatalogu bieżącego albo naz- 
wy podkatalogu, który nie jest pusty, powoduje 
powstanie błędu wejścia-wyjścia. 

Porównaj ChDir, GetDir, MkDir 


Przyklad 
< RmDir > 


uses 
Crt; 


begin 
CLirSer; 


MKkDirC*Level-1'D; 
MkDirC*Level-ievel-2'); 


<$I -> 
RmDi rC 'Level-1'D; 
<$SI +> 


if IOResult <> O then 
WriteC 'Failure'>; < Failure > 


end. 


Wykonanie programu powoduje wyprowadzenie napisu Failure. 


Nazwa Round — zaokrąglenie 
Deklaracja function 


RoundC>O : longint 
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Modut 


System 


Opis Utworzenie danej typu longint o wartości najbliż- 
szej wartości x. 

Uvagti Argumentem funkcji Round może być dowolne wyra— 
żenie rzeczywiste albo całkowite. Jeśli x ma 
wartość równą średniej arytmetycznej dwóch są- 
siadujących wartości całkowitych, to rezultatem 
funkcji Round jest dana o większej wartości bez— 
względnej. 

Porównaj TIrunc, Int 

Przyklad 

< Round > 
uses 
Crt; 
begin 
C1lrSer; 
WriteCRoundl -1.5S200; << -2 » 
end. 


Wykonanie programu powoduje wyprowadzenie liczby -2. 


RunEr ror 


Nazwa 


DeRlarac ja 


Modut 


Opis 


Uwagi 


Porównaj 


Przyklad 


RunError — wymuszenie błędu wykonania 

procedure 

RunErrorClcode : word. 

System 

Zakończenie wykonywania programu w taki sposób, 
jakby było ono spowodowane błędem wykonania o 
numerze code. 

Wywołanie procedury bez argumentu jest równoważne 
jej wywołaniu z argumentem O. 

Halt 


< RunError >» 


uses 
Crt; 


var 
P.q 


real; 


xi ,x2,Delta : real; 
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begin 


ReadlnC(p,q); 


Delta 


'=pxp-4x*q; 


x2 :=(-p + SqrtCDeltaD) / 2; 


if q 


= 0.0 then 


RunEr rorC2003D 


else 
xi 


:=q / Xe; 


WritelnCx1D; 
WritelnClCx2) 


end. 


Program ilustruje symulowanie błędu wykonania. 


Sector 

Nazwa Sector — wykreślenie wypełnionego sektora elipsy 

Deklaracja procedure 
SectorCx,y : integer; 

angb, ange : word; 
xrad,yrad : word) 

Modul Graph 

Opis Wykreślenie sektora elipsy o środku w punkcie 
Cx,y), kątach początku i końca sektora angb i 
ange oraz półosiach xrad i yrad. 

Uwagi System musi być w trybie graficznym. Sektor jest 
wypełniany bieźącym wzorem. Wykreślanie odbywa 
się w kierunku przeciwnym do kierunku ruchu wska” 
zówek zegara. 

Niepomyślne wykonanie procedury Sector powoduje, 
że rezultatem funkcji GraphResult jest dana o 
wartości 
grNoScanMem — brak pamięci do wypełnienia 
obszaru metodą scan <-56> 

Porównaj Arc, Circle, Ellipse, PieSlice, SetFillStyle 

Przyklad 

< Sector > 
uses 

Crt,Graph; 
var 


Driver ,Mode : integer; 
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begin 


Driver := Detect; 
InitGraphCDriver „Mode, ” *D; 


if GraphResult <> grOK then 
HaltC1D; 


SectorC(GetMaxX div 2,GetMaxY div 2, 
0,270, 


repeat until KeyPressed; 


CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie sektora elipsy. 


Seek 


Nazwa Seek — zmiana pozycji pliku 

Deklaracja procedure 
SeekCvar f; 

pos : longint) 

Modul System 

Opts Ustawienie otwartego pliku identyfikowanego przez 
f w pozycji przed rekordem o numerze pos. 

Uwagi Pierwszy rekord pliku ma numer O. Pierwszym argu— 
mentem procedury Seek musi być nazwa zmiennej 
plikowej identyfikująca plik blokowy albo ele— 
mentowy. Niepomyślne wykonanie procedury Seek 
powoduje powstanie błędu wejścia—wyjścia. 

Porównaj FilePos, FileSize 


Przyklad 
< Seek > 


uses 
Crt; 


const 
MyName : stringl20] = 
"Jan Andrzej Bielecki”; 


AStŁ : char = ”"»**; 
var 


Chr : char; 
Doc : file of char; 


i : byte; 
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begin 


C1lrScer; 


Assign(Doc,ParamStrCc10); 
Rewriteć Doc); 


for i := 1 to LengthCMyName) do begin 
Chr := MyName[i]; 
Wri tel Doc „Chr. 

end; 


SeekC Doc , 4); 


for i := 1 to 7 do 
WriteCl Doc, ASŁD; 
Closeć Doc); 


ResetC Doc); 
while not EofCDoc) do begin 
Read( Dac „Chr; 
WriteCChr>; (€ Jan 086666 Bielecki > 
end 


end. 


Wykonanie programu ilustruje wyrywkowy dostęp do danych za- 


wartych w pliku. 


i 


SeekEof 


POZNANE A OO 


Nazwa 


SeekEof — rozpoznanie końca pliku 


Deklaracja function 


SeekEofCvar £(£ : text)» : boolean 


Modut System 
Opts Pominięcie w pliku identyfikowanym przez f naj- 
bliższych spacji, tŁabulacji i znaków końca wier- 
sza, a następnie utworzenie danej typu boolean 
o wartości EofCf). | 
Uwa gt Plik identyfikowany przez f musi być otwarty. 
Jeśli funkcja SeekEof zostanie wywołana w postaci 
bez argumentu, to zostanie domniemany argument 
Input. Niepomyślne wykonanie funkcji SeekEof 
powoduje powstanie błędu wejścia-wyjścia. 
Porównaj Eof, SeekEoln 
Przyklad 
< SeekEof > 
uses 
Crt; 
var 
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Num : word; 
Doc : text; 


begin 


ClrScer; 


Assign(Doc, 'JanB. doc” 3; 
RewriteCl Doc); 


WriteCDoc,13,' 2; 
CloseC Doc); 


ResetC Doc); 
ReadC Doc , Num ; 


WritelnCEofCDoc));  « FALSE > 
WritelnC(SeekEofC(Doc));  < TRUE > 


end. 


Wykonanie programu powoduje wyprowadzenie napisów FALSE 
i TRUE. 


SeekEoln 


Nazwa 


SeekEoln — rozpoznanie końca wiersza 


DeRlaracja function 


SeekEolnlvar £( : text» : boolean 


Modul System 

Opis Pominięcie w pliku identyfikowanym przez £f naj— 
bliższych spacji i tabulacji, a następnie utwo— 
rzenie danej typu boolean © wartości EolnCf). 

Uwagi Plik identyfikowany przez f musi być otwarty. 
Jeśli funkcja SeekEoln zostanie wywołana w pos— 
tŁaci bez argumentu, to zostanie domniemany 
argument Input. Niepomyślne wykonanie funkcji 
powoduje powstanie błędu wejścia-—wyjścia. 

Porównaj Eoln, SeekEof 

Przyklad 


< SeekEoln > 


uses 


Crt; 


Var 


Doc : text; 
Count : longint; 
Chr : char; 


begin 


CirSer; 


Count := O; 
Assign(Doc,ParamStrCc100; 
ResetC Doc; 
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while not SeekEofCDoc) do begin 
while not SeekEoln(Doc) do begin 
IncClCountD); 
Read(C Doc , Chr 
end 
end; 


WritelnC Count = *' „CountJ 


end. 


Wykonanie programu powoduje zliczenie tych znaków zawartych 
w pliku, które nie są znakami spacji, tŁabulacji ani znakami 


nowego wiersza. 


Seg 


Nazwa Seg — wyznaczenie numeru segmentu 

Deklaracja function 
SegCx) : word 

Modul System 

Opis Utworzenie danej typu word o wartości równej 
numerowi segmentu, w którym znajduje się obiekt 


reprezentowany przez argument funkcji. 


Uvagi Argumentem funkcji Seg może być nazwa zmiennej 
albo identyfikator procedury. 

Porównaj Addr, Ofs 
Przyklad 

< Seg >» 

uses 

Crt; 
const 


Fix : byte = 13; 


VAT 
Ref : Obyte; 


begin 
CirScer; 
Ref := PtrCSegCF1x>O „OfSCF1xX0); 
WritećCRef">; C 13 > 


end. 


Wykonanie programu powoduje wyprowadzenie liczby 13. 


SetActivePage 


Nazwa 


DeRlarac ja 


Modut 
Opis 


Uwvagt 


Porównaj 


Przyklad 


SetActivePage — wybranie strony aktywnej 
procedure 

SetActivePagel num : word) 

Graph 

Wybranie jako strony aktywnej, strony o numerze 
num. 

System musi być w trybie graficznym. Po wykonaniu 
procedury SetActivePage, wszystkie operacje gra— 
ficzne będą dotyczyć strony o podanym numerze. 
Możliwość wyboru Strony aktywnej dotyczy jedynie 
kart EGA, VGA i Hercules. 

SetVisualPage 


< SetActivePage > 


uses 
Crt,Graph; 

var 
Driver ,Mode : integer; 
Drop char; 

begin 
Driver := HercMono; 
Mode := HercMonoHi ; 


InitGraphCDriver „Mode, '"D; 

if GraphResult <> grOK then begin 
WriteC 'Failure'D; 
HaltCiD 


end; 


SetVisualPageCO); 
SetActi vePageCO) ; 


Out TextC "Press any key'); 
SetActivePageC1); 
LinecO,O,GetMaxX,GetMaxY); 


repeat until KeyPressed; 


Drop 


:= ReadKey; 


SetVisualPageC1); 


repeat until KeyPressed; 


CloseGraph 


end. 


Program ilustruje zasadę posługiwania się stronami graficz— 


nymi. 
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SetAllPalette 


Nazwa 


DeRlarac ja 


Modul 
Opis 


Uvagi 


Porównaj 
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SetAllPalette — zmiana kolorów przypisanych 
pozycjom palety 

procedure 

SetAllPaletteCvar palette : PaletteType> 

Graph 

Przypisanie pozycjom palety identyfikatorów kolo- 
rów określonych przez pola rekordu palette. 
System musi być w trybie graficznym. Typ Palette- 
Type jest zdefiniowany następująco: 


type 
PaletteType = record 
Size : byte; 
Colors : arraylO..15] 
of shortint 
end; 


Pole Size określa rozmiar palety; pole Colors 
określa identyfikatory kolorów. Jeśli element 
tablicy Colors ma wartość —1, to kolor przypisany 
odpowiedniej pozycji palety nie ulega zmianie. 
Identyfikatory kolorów mogą być wyrażone za po- 
mocą następujących symboli: 


Black — czarny (CO> 

Blue — niebieski <1> 
Green — zielony <2> 

Cyan — turkusowy <3> 

Red — czerwony <4> 
Magenta — karmazynowy <5> 
Brown — brązowy <6> 
LightGray — jasnoszary <7> 
DarkGray — ciemnoszary <8> 

Li ghtBl ue — jasnoniebieski <OQ> 


LightGreen — jasnozielony <10O> 
LightCyan — jasnoturkusowy <11> 


LightRed — jasnoczerwony <12> 
LightMagenta — jasnokarmazynowy <13> 
Yellow — żółty <14> 

Whi Łe — biały X15> 


GetBkColor, GetŁColor, GetŁPalette, SetBkColor, 
SetColor, SetPalette 


Przyklad 
<« SetAllPalette > 


uses 


Crt ,Graph; 


VaT 


Driver ,Mode : integer; 
Palette : PaletteType; 


Drop : char; 
begin 

Driver := EGA; 

Mode := EGAHi; 


InitGraphCDriver „Mode, ''); 

if GraphResult <> grOK then begin 
C1lrSer; 
WriteC "Failure"; 
HaltC1D 

end; 


SetPaletteC1 ,BlueD); 
SetColorC1); 


LinecO,0,GetMaxX,GetMaxY); 


repeat until KeyPressed; 
Drop := ReadKey; 


with Palette do begin 
ColorsLOJ) := -1;: 
Colors/[1i] := Red 
end; 


SetAllPaletteCPalette); 
repeat until KeyPressed; 


CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie niebieskiej głównej 


przekątnej, a po wykonaniu procedury SetAllPalette, dokonanie 


zmiany koloru przekątnej na czerwony. 


SetAspectRatio 


Nazwa 


SetAspectRatio — zmiana aspektu ekranu 


Deklaracja procedure 


SetAspectRatioCxasp,yasp : word. 


HModut Graph 

Opts Zmiana aspektu ekranu na wartość xasp/yasp. 

Uwvagt System musi być w trybie graficznym. Właściwy 
dobór aspektu umożliwia wykreślanie okręgów nie 
przypominających elips. 

Porównaj GetAspectRatio 
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Przyktlaa 


< SetAspectRatio >» 


uses 


Crt ,OGraph; 


var 


Driver ,Mode : integer; 


begin 


Dr i ver 


:= Detect; 


InitGraphCDriver „Mode, ”'D; 


if GraphResult <> grOK then 
HaltC1D; 


SetAspectRatioC2,3); 


CircleC(GetMaxX div 2,GetMaxY div 2,1002; 


repeat until KeyPressed; 


CloseGraph 


end. 


Wykonanie programu w Środowisku z kartą Hercules powoduje wy- 


kreślenie okręgu, a nie elipsy. 


oo ZZ ROA 


SetŁBkColor 


A Z ZZ Z Z Z Z RZ Z A Z R NĄ) 


Nazwa 


DekRlarac ja 


Modul 
Opts 


Uwagi 


Porównaj 


Przyklad 


SetBkColor — zmiana koloru tła 

procedure 

SetBkColorlnum : word) 

Graph 

Zmiana koloru tła na taki kolor, jaki jest zwią- 
zany z pozycją num bieżącej palety. Wyjątek: 
jeśli num=0, to kolor tła zostanie zmieniony na 
czarny. 

System musi być w trybie graficznym. 

GetBkColor, GetColor, GetPalette, SetAllPalette, 
SetColor, SetPalette 


<« SetBkColor > 


uses 


Crt,Graph; 


VAT 


Driver ,Mode : integer; 
Palette : PaletteType; 


Drop : 
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char ; 


begin 


Driver := EGA; 
Mode : = EGAHi; 
InitGraphCDriver „Mode, "DD; 
if GraphResult <> grOK then begin 
CirScer; 
WriteC'Failure'D; 
HaltC1D 
end; 


SetPaletteC1 „,Red); 
SetBkColor(10D; 


repeat until KeyPressed; 
Drop := ReadKey; 


Set BkCol or COD); 
repeat until KeyPressed; 


CloseGraph 


end. 


Wykonanie programu powoduje obranie jako koloru tła najpierw 


koloru czerwonego, a następnie czarnego. 


SetCBreak 


Nazwa. 


SetCBreak — określenie reagowania na Ctrl-Break 


Deklaracja procedure 


SetŁCBreakCbreak : boolean) 


Modut Dos 
Opts Określenie na podstawie break, sposobu reagowania 
systemu na naciśnięcie klawisza Ctrl-Break. 
Uwvagt Jeśli break = true, System reaguje podczas 
każdego odwołania do jego funkcji. W przeciwnym 
razie reaguje jedynie podczas wykonywania 
operacji wejścia-wyjścia dotyczących konsoli, 
drukarki i łącz szeregowych. 
Porównaj GetCBreak 
Przyklad 
<« SetCBreak > 
uses 
Dos; 
var 
Break : boolean; 
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Wykonanie programu powoduje wyprowadzenie napisu TRUE. 


begin 
SetCBreakC true); 
GetCBreakCBreak)D; 
WritelnC(Break); Ć TRUE > 


end. 


SetColor 


Nazwa 


linii 


DeRlaracja procedure 


SetŁColorlnum : word. 


SetColor — wybranie numeru koloru do wykreślania 


Modul Graph 

Opis Wybranie do wykreślania linii koloru o numerze 
num. 

Uwagi System musi być w trybie graficznym. 

Porównaj GetBkColor, GetŁColor, GetPalette, SetAllPalette, 


SetBkColor, SetPalette 


Przyktad 


< SetColor > 


uses 
Crt,Graph; 


var 
Driver ,Mode : integer; 
Palette : PaletteType; 
Drop : char; 


begin 
Driver := HercMono; 
Mode := HercMonoHi ; 


InitGraphC Driver ,Mode, ''D; 

if GraphResult <> grOK then begin 
ClrSer; 
WriteCć ' Failure"); 
HaltC1D 

end; 


SetCol or ( GetŁMaxColor); 
Linec0,0,0,GetMaxY); 
repeat until KeyPressed; 
CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie odcinka linii 


wzdł 
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uż lewego obrzeża ekranu. 


prostej 


SetDate 


Nazwa SetDate — ustawienie daty 
Deklaracja procedure 
SetDateCyear : word; 
month : word; 


day : word) 
Modut Dos 


Opis Ustawienie systemowej daty na podstawie numeru 
roku Cyear), numeru miesiąca Cmonth> i numeru 
dnia Cday). 

Uwagi Wartość year musi być zawarta w przedziale 
1980..2099, month w przedziale 1..12, a day 
w przedziale 1..31. Jeśli warunki te nie są 
spełnione, to wykonanie procedury nie wywoła 
żadnych skutków. 

Porównaj GetDate, GetTime, SetlIime 


Przyklad 


< SetDate > 


uses 
Crt,Dos; 
var 
Today : record 
Year „Month, Day, 
DayOfWeek : word 
end; 
begin 
C1lrSer; 


with Today do begin 
GetDateCYear ,Month, Day, DayOfWeek)D; 
DecClYearD; 
SetDateC Year ,Month, Day) 

end 


end. 


Wykonanie programu powoduje cofnięcie daty systemowej o jeden 


rok. 


SetFAttr 


Nazwa SetFAttr — ustawienie atrybutów zbioru 
DeRlaracja procedure 
SetFAttrćvar (£; 


attr : byte) 
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Modut Dos 

Opis Ustawienie atrybutów zbioru, z którym skojarzono 
plik identyfikowany przez f, na wartość attr. 

Uvagt Pierwszym argumentem procedury SetFAttr musi być 
nazwa zmiennej plikowej. Plik identyfikowany 
przez f nie może być otwarty. Poszczególne atry- 
buty zajmują w attr pozycje bitowe. Ich zestaw 
może być określony jako suma masek wyrażonych za 


pomocą następujących symboli: 


ReadOnly — zbiór tylko do odczytu <$01> 
Hidden — zbiór ukryty <$02> 

SysFile — zbiór systemowy <$04> 
VolumelD — etykieta woluminu <$08> 
Directory — podkatalog <%102> 

Archive — zbiór archiwalny <$20> 


Niepomyślne wykonanie procedury SetFAttr powodu- 
je. że zmiennej DosError zostanie przypisana dana 


o. wartości: 


3 — błędna ścieżka 
S -— zabroniony dostęp 


Porównaj GetFAttr, GetFTime, SetFTime 
Przyklad 


< SetFAttr > 


uses 
Crt, Dos; 


var 
Doc : file; 


begin 
ClrSer; 
Assign(C Doc ,ParamStrC100; 


LSI -> 
SetFAttrCDoc,SysFile + ReadOnly)J; 
LSI +> 


case DosError of 
3: WriteC "Invalid path'D; 
5: WriteC'Access denied'D 
else 
WwriteC "Done! "3 
end 


end. 
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Wykonanie programu powoduje, że zbiór o nazwie określonej 
przez pierwszy argument programu staje się zbiorem systemo— 


wym, przewidzianym tylko do odczytu. 


SetFillPattern 
Nazwa SetFillPattern — ustalenie wzoru wypełniania 
obszarów 


Deklaracja procedure 
SetFillPatternC(pattern : FillPatternlype; 


num : word) 

Modul Graph 

Opts Ustalenie wzoru do wypełniania obszrów CFillPoly, 
FloodFi1l, Bar, Bar3D, PieSlice)> na podstawie 
pattern i numeru koloru wzoru wypełniającego num. 

Uwvagt System musi być w trybie graficznym. Wzór wypeł — 
niający jest bitowym prostokątem 8 x 8 punktów, 
zapamiętanym w tablicy typu FillPatternlIype. Typ 
FillPatternType jest zdefiniowany następująco: 


type 
FillPatternType = arrayl(1..8] of byte; 


Porównaj GetBkColor, GetColor, GetPalette, SetBkColor, 


SetColor, SetPalette 
Przyklad 


< SetFillPattern > 


uses 
Crt ,Graph; 


var 
Driver „Mode : integer; 


const 
Pattern : FillPatternType = 
c $12,$6c,$844,892,$44,$6c,$90,$00 2; 
begin 


Driver := Detect; 

InitGraphCDriver „Mode, ""); 

if GraphResult <> grOK then 
HaltC1D; 


SetFillPatternC(Pattern, GeŁMaxColor); 
FloodFi11C0,0,GetMaxColor); 

repeat until KeyPressed; 

CloseGraph 


end. 
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Wykonanie programu powoduje wypełnienie ekranu zaprojektowa- 


nym wzorem. 


SetFillStyle 


Nazwa 


DeRlarac ja 


Porównaj 


Przyklad 
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SetFillSŁyle — ustalenie standardowego wzoru 
wypełniania obszarów 
procedure 
SetFillStŁyleCpatt : word; 

num : wordJ 
Graph 
Ustalenie numeru patt wzoru do wypełniania obsza- 
rów CFillPoly, FloodFi11, Bar, Bar3D, PieSliceD 
i numeru koloru num wzoru wypełniającego. 
System musi być w trybie graficznym. Numery wzo- 
rów wypełniających mogą być wyrażone za pomocą 
następujących symboli: 


EmptyFill — wypełnienie kolorem tła <O> 

SolidFil1l1 — wypełnienie ciągłe <1> 

LineFi11 — wypełnienie pogrubionymi liniami 
poziomymi <2> 

LtSlashFi11 — wypełnienie liniami pochyłymi <3> 

SlashFill — wypełnienie pogrubionymi liniami 
pochyłymi <4> 

BkSlashFi11 — wypełnienie pogrubionymi liniami 
ukośnymi <5> 

LtBkSlashFi1ll — wypełnienie liniami ukośnymi <6> 

HatchFil11 — wypełnienie siatką pionową <€7> 

xHatchFill — wypełnienie siatką ukośną <€8> 

InterleaveFi1ll — wypełnienie liniami spleciony- 
mi <9> 

WideDotFill — wypełnienie kropkami <10> 

CloseDotFi11 — wypełnienie zagęszczonymi krop- 
kami <11> 


Bar, Bar3D, GetFillSettings, FillPoly, PieSlice 


<« SetFillStyle > 


uses 


Crt ,Graph; 


var 


Driver ,Mode : integer; 
Num byte; 
Drop char; 
begin 
Driver := Detect; 


InitGraphCDriver ,Mode,*''); 
if GraphResult <> grOK then 
HaltC1)D; 


Num : 


repeat 


xHatchFill; 


SetFil11StyleCNum, GetMaxColorD; 
FloodFi11CO,O,GetMaxColorD); 


repeat until KeyPressed; 


Drop 


:= ReadKey; 


RestoreCr tMode; 
ReadlnCNunm; 
Set Gr aphModeć Mode) 


until Num = O; 


CloseGraph 


end. 


Wykonanie programu umożliwia zapoznanie się ze standardowymi 


wzorami wypełniania obszarów. Po naciśnięciu dowolnego klawi — 


sza klawiatury należy podać numer wzoru, a następnie nacisnąć 


klawisz Enter. 


SetF Ti me 


Nazwa 


DeRlarac Ja 


Modul 
Opts 


Uwagi 


SetFTime — wymuszone ustawienie daty 1 czasu 
modyfikacji zbioru 
procedure 
SetFTimelvar f; 

time : longint) 
Dos 
Ustawienie na podstawie time daty i czasu ostat— 
niej modyfikacji zbioru, z którym skojarzono plik 
identyfikowany przez (£. 
Pierwszym argumentem procedury SetFIime musi być 
nazwa zmiennej plikowej identyfikująca otwarty 
plik. Przekształcenie czasu do postaci upakowanej 
może być dokonane za pomocą procedury PackTime. 


Niepomyślne wykonanie procedury SetFIime powodu— 
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je, że zmiennej DosError zostanie przypisana dana 


o wartości: 


6 — błędny uchwyt 


Porównaj GetFTime, PackTime, Unpack Ti me 
Przyklad 
< SetFTime > 
uses 
Cr t,Dos; 
const 
FullTime : DateTime = 
C Year 1981; Month : 12; Day : 13; 
Hour 6; Min : O; Sec OD; 
var 
Time : longint; 
Doc : file; 
begin 
CirSer; 


Assign(C Doc ,ParamStrC100; 
ResetCDoc); 


Pack TimeCFull Time, Time); 
SetFTIi mel Doc, Time); 
WriteC' Done! ') 


end. 
Wykonanie programu powoduje ustawienie nowej daty i czasu 
modyfikacji zbioru o nazwie określonej przez pierwszy para" 


metr progranu. 


td LL L)2 
SetGraphBuf Size 


Z O Z Z Z A RE ZE O A ZN Z O A W 


Nazwa SetGraphBufSize — ustalenie rozmiaru bufora wyko- 


rzystywanego do wypełniania obszarów 


DeRlarac ja 


Modut 
Opis 


Uvagi 


Porównaj 
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procedure 
SetGraphBufSizeCsize : 
Graph 


wor dJ 


Ustalenie rozmiaru bufora wykorzystywanego do 
wypełniania obszarów na wartość size bajtów. 
System musi być w trybie graficznym. Rozmiar 
bufora musi być ustalony przed wywołaniem pro” 
cedury InitGraph. Miejsce dla bufora jest przy” 
dzielane na stercie. 

InitGraph 


Przyktad 


< 


SetGraphBufSize > 


uses 


Crt,Graph; 


Q 
< 
U 
< 
© 
0 
Hu 
NOR 


var 


Driver ,Mode : integer; 
1i,j : word; 


begin 


SetGraphBufSize(163840;  € Necessary >» 


Driver := HercMono; 
Mode := HercMonoHi; 


InitGraphC Driver „Mode, '*); 
if GraphResult <> grOK then 
HaltC1D; 


for j := 1 to TruncC(GetMaxY / step) do begin 
MoveToCO, j % stepD; 
for i := 1 to TruncC2 / 3 % GetMaxX „ dx do begin 
if OddC1D> then 
LineRelCdx, +dy) 
else 
LineRelCdx, dy) 
end 
end; 


FloodFi11CGetMaxX ,O, GeŁMaxColor); 
DelayC 500) ; 
CloseGraph 


end. 


Program ilustruje zastosowanie procedury SetGraphBufSize. Bez 


wywołania tej procedury wypełnienie obszaru byłoby jedynie 


częściowe. 


SetGraphMode 


Nazwa 


SetGraphMode — przełączenie systemu do trybu 


graficznego 


Deklaracja procedure 


Modut 
Opis 


SetGraphModel mode : integer. 

Graph 

Przełączenie systemu do trybu graficznego o nume— 
rze mode, a następnie niejawne wykonanie procedu— 


ry GraphDefaults. 
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Wykonanie procedury SetGraphMode musi być poprze- 
dzone pomyślnym wykonaniem procedury GraphlInit 
(nie oznacza to jednak, że system musi być w try- 
bie graficznym”. Najczęściej procedura SetGraph- 
Mode jest wykonywana przemiennie z procedurą 
RestoreCrtMode, w celu przełączania między trybem 
graficznym i tekstowym. Niepomyślne wykonanie 
procedury SetGraphMode powoduje, że rezultatem 
funkcji GraphResult jest dana o wartości: 


grInvalidMode — niewłaściwy tryb graficzny €-10> 


Numery trybów mogą być wyrażone za pomocą nastę- 
pujących symboli: 


CGACO — 3280 x 200, paleta O <O> 

CGACi — 320 x 200, paleta 1 1. 

CGAC2 — 380 x 200, paleta 2 (2 

CGAC3 — 320 x 200, paleta 3 <3> 

CGAHi — 640 x 200, 1 strona <4> 

MCGACO — 320 x 200, paleta O <O> 

MCGACI — 380 x 200, paleta 1 <1> 

MCGAC2 — 3280 x 200, paleta 2 <2> 

MCGAC3 — 3820 x 200, paleta 3 <3> 

MCGAMed — 640 x 200, 1 strona <4> 

MCGAHi — 640 x 480, 1 strona <S5> 

EGALo — 640 x 200, 16 kolorów, 4 strony <O> 
EGAHi — 640 x 350, 16 kolorów, 2 strony (1 
EGAG64Lo — 640 x 200, 16 kolorów, 1 strona CO» 
EGA64Hi — 640 x 350, 4 kolory, 1 strona <1> 
EGAMonocHi — 640 x 3580, 


64K na karcie, 1 strona <3> 

356K na karcie, 2 strony <€3> 
HercMonoHi — 720 x 348, 2 strony <O> 
ATT400CO — 320 x 200, paleta O <O> 


ATT400C1 — 320 x 200, paleta 1 <1> 
ATT400C2 — 3820 x 200, paleta 2 <e> 
ATT400C3 — 320 x 200, paleta 3 <3> 
ATT40OMed — 640 x 200, 1 strona <4> 
ATT400Hi — 640 x 400, 1 strona <5> 
VGALo — 640 x 200, 16 kolorów, 4 strony CO» 


VGAMed — 640 350, 16 kolorów, 2 strony (i 


x 
VGAHi — 640 x 480, 16 kolorów, 1 strona <2> 
PC3270Hi — 720 x 3580, 1 strona <O> 
I BM851 4 — 640 x 480, 256 kolorów <O> 
I BM851 4 — 1024 x 768, 256 kolorów <1> 
Porównaj ClearDevice, DetectGraph, GetGraphMode, 


InitGraph, RestoreCrtMode 
Przyklad 


< SetGraphMode > 


uses 
Crt,Graph; 


var 
Driver ,Mode : integer; 
Num : word; 
Gothic : stringl[51; 


begin 


Driver := Detect; 

InitGraphCDriver „Mode, ' *D; 

1f CGraphResult <> grOK> then 
HaltC1D; 


RestoreCr ŁMode; 
ReadlnCNuno ; 
SetGr aphModeC Mode) ; 


Set TextStyleC(DefaultFont ,HorizDir ,3); 
SetTextJustifyC(LeftText, TopText); 


Str CNum, Gothic); 

Out Text 'Value = " + GothicJ; 
repeat until KeyPressed; 
CloseGraph 


end. 


Wykonanie programu powoduje ustanowienie trybu graficznego, 

przełączenie systemu do trybu tekstowego, wprowadzenie licz— 
by, przełączenie systemu do trybu graficznego i wykreślenie 

wprowadzonej liczby. 


SetlIntVec 


Nazwa. SetIntVec — zmiana wektora przerwań 


Deklaracja procedure 
SetlntVeclnum : byte; 


vector : pointerJ 
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Modul 


Opis 


Poró 


Przy 


Dos 


Dokonanie zmiany wektora przerwań o numerze num 


na wskazanie vector. 


Drugim argumentem procedury 


SetIntVec jest najczęściej identyfikator procedu- 


ry do obsługi przerwań poprzedzony operatorem ©. 


wna j GetlntVector 


klad 


< SetIntVec > 


uses 
Crt, Dos; 


var 
Ref pointer; 
Count : word; 
Flag : boolean; 


($F+> 


procedure TimerCFlags,CS,IP,AX,BX,CX,DX, 


SI ,DI,DS,ES,BP 
interrupt; 


begin 
Inel Count) ; 
if Count > 50 then begin 
Count := O; 
Flag := true 
end 
end; 
<8F-> 


begin 
GetIntVecC$1C, Ref); 
SetI ntVecC$1C, ©TimerJ; 
Count := 50; 

repeat 


if Flag then begin 
Flag := false; 
WritŁeC"G) 

end 


until KeyPressed; 
SetI ntVecC$1C, Ref) 


end. 


wor dV ; 


Wykonanie programu powoduje aktywowanie sygnału dźwiękowego 


w pr 


zybliżeniu co 1 s. 


Zakończenie wykonywania programu nas— 


tępuje po naciśnięciu dowolnego klawisza klawiatury. 
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SetLineStyle 


Nazwa SetLineStyle — wybranie postaci linii 
Deklaracja procedure 


SetLineStyleC(style : word; 


pattern : word; 
thickness : word) 
Modul Graph 
Opts Wybranie postaci linii na podstawie style i gru- 


bości linii na podstawie thickness. W przypadku 
gdy style=UserBitLn zdefiniowanie postaci linii 
na podstawie układu bitów pattern. 

Uwagi System musi być w trybie graficznym. Numery pos— 
Łaci linii mogą być wyrażone za pomocą następu- 
jących symboli: 


SolidLn — linia ciągła <O> 
DottedLn — linia kropkowa C1> 
CenterLn — linia centrowana (2> 
DashedLn — linia przerywana <3> 


UserBitŁLn — linia zdefiniowana <4> 


Grubość linii może być wyrażona za pomocą nastę— 
pujących symboli: 


Normwidth — linia cienka (12 
ThickWidth — linia pogrubiona <3> 


Porównaj GetLineSettings, Line, LineRel, Linel[o 


Przyklad 


< SetLineStyle > 


uses 
Crt,Graph; 


var 
Driver „Mode : integer; 


begin 


Driver := Detect; 

InitGraphC Driver „Mode, ''2; 

if GraphResult <> grOK then 
HaltC1D; 


SetLineStyleCDottedLn,O, ThickWidtho; 


CircleCGetMaxX div 2,GetMaxY div 2,1000; 
LinecO,0,GetMaxX ,OJ; 


repeat until KeyPressed; 


CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie okręgu i prostej. 
Oba te obiekty graficzne są wykreślane za pomocą linii 


kropkowych, potrójnej grubości. 

SetPalette 

Nazwa SetPalette — zmiana koloru przypisanego pozycji - 
palety 

Deklaracja procedure 
SetPaletteCnum : word; 

color : byteJ 

Hodut Graph 

Opis Przypisanie pozycji num palety identyfikatora 
koloru color. 

Uvagi System musi być w trybie graficznym. Zmiana 
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koloru ujawnia się na ekranie natychmiast po 
wykonaniu procedury SetPalette. Identyfikatory 
kolorów mogą być wyrażone za pomocą następują- 
cych symboli: 


Black — czarny <O> 

Blue — niebieski <1> 

Green — zielony 2 

Cyan — turkusowy <€3> 

Red — czerwony <4> 
Magenta — karmazynowy <5> 
Brown — brązowy <6> 
LightGray — jasnoszary <7> 
DarkGray — ciemnoszary <8> 

Li ghtBl ue — jasnoniebieski <9> 
LightGreen  — jasnozielony <10> 
LightCyan — jasnoturkusowy <11> 
Li ghtRed — jasnoczerwony €12> 
LightMagenta — jasnokarmazynowy <13> 
Yellow — żółty <14> 

Whi te — biały <15> 


Porównaj GetBkColor, GetColor, GetPalette, SetBkColor, 
SetCol or 


Przyklad 


< SetPalette > 


uses 
Cr t,Graph; 

var 
Driver ,Mode : integer; 
Drop : char; 

begin 
Driver := EGA; 
Mode := EGAHi; 


Ini tGraphCDriver ,Mode, *"D; 

if GraphResult <> grOK then begin 
CirSer; 
WriteC'Failure"'D; 
HaltC12 

end; 


SetPalette(1 ,RedoD; 
SetColorC1D; 
LinecO,O,GetMaxX „OJ; 


repeat until KeyPressed; 
Drop := ReadKey; 


SetPaletteC1i ,Green)D; 
repeat until KeyPressed; 
CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie odcinka linii prostej 
w kolorze czerwonym, a po naciśnięciu dowolnego klawisza kla— 


wiatury, zmianę tego koloru na zielony. 


SetRGBPalette 


Nazwa SetŁRGBPalette — zmień pozycję palety w IBM8541 
DeRlaracja procedure 
SetŁRGBPaletteC(num : integer; 


red,green,blue : integer) 
Modut Graph 
Opis Związanie pozycji num palety karty IBM8514, z 
kolorem określonym łącznie przez red, green, 
blue. 
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Uvagti System musi być w trybie graficznym. Pod uwagę 
jest branych tylko 6 bardziej znaczących bitów 


mniej znaczącego bajtu słów red, green, blue. 
Porównaj SetPalette 
Przyklad 


< SetRGBpalette >» 


uses 
Graph ,Crt; 


var 
Driver „Mode: integer; 


const « Magenta > 
cRed =$70; 
cGreen = $00; 
cBlue = $70; 


begin 


Driver := IBM8514; 
Mode := IBM8514Hi; 
InitGraphC Driver „Mode, '”D; 


if GraphResult <> grOK then 
HaltC1); 


SetColorC10; 
Out TextC 'Hello'J; 


DelayC10002; 


SetRGBpaletteC1 ,0,0,00); 


DelayC1OO0OD; 
SetRGBpaletteC1 ,cRed,cGreen,cBlueD); 


repeat until KeyPressed; 


CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie napisu Hello w 


kolorze niebieskim, a następnie karmazynowym. 


a 


Set TextBuf 
o ./”/Y „—_L 
Nazwa SetTextBuf — związanie z plikiem tekstowym jawne- 


go bufora 
Deklaracja procedure 
SetTextBuflvar ( : text; 
var buf; 


size : word) 
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Modul System 

Opts związanie z plikiem tekstowym identyfikowanym 
przez f bufora o rozmiarze size bajtów, znajdu— 
jącego się w obszarze pamięci identyfikowanym 
przez buf. 

Uvagti Wykonanie procedury SetlTextBuf dotyczącej pliku 
identyfikowanego przez f powinno nastąpić po 
skojarzeniu pliku ze zbiorem, ale przed wykona— 
niem pierwszej instrukcji Read, Readln, Write 
albo Writeln dotyczącej tego pliku. Jeśli proce— 
dura SetTextBuf zostanie wywołana bez trzeciego 
argumentu, to za rozmiar bufora przyjmie się 
rozmiar zmiennej reprezentowanej przez drugi 


argument. 


Porównaj Assign 


Przyklad 


< SetTextBuf > 
uses 
Crt; 


Var 


Buffer : array[i..128] of char; 
Doc : text; 
Chr : char; 
begin 
C1lrSer; 


Assign(Doc,ParamStrCc100; 
Set TextBuf C Doc, Buffer); 


Buffer[i] := '%'; 

ResetC Doc); 

WriteCBuffer[(1]0; ( % >» 
ReadC Doc ,ChrD; 

WritećBuffer[i] = Chr; € TRUE > 


end. 


Wykonanie programu powoduje wyprowadzenie znaku * C(gviazdko, 


a następnie napisu TRUE. 


13 —- Turbo Pascal 5,0 385 


SetTextJustify 


Nazwa 


DeRlarac ja 


Porównaj 


Przyktad 


SetTextJustify — ustalenie sposobu wyrównywania 
tekstów graficznych 


procedure 
SetTextJustifyChoriz : word; 

vert : word) 
Graph 


Ustalenie sposobu wyrównywania tekstów graficz"— 
nych w poziomie na podstawie horiz i ustalenie 
sposobu ich wyrównywania w pionie na podstawie 
vert. 

System musi być w trybie graficznym. Wyrównanie 
odbywa się względem punktu wyróżnionego przez 
kursor graficzny (procedura OutTextD, albo wzglę- 
dem punktu o podanych współrzędnych Cprocedura 
Out TextŁXYDJ. 


Wyrównanie w poziomie może być wyrażone za pomocą 
następujących symboli: 


LeftText — wyrównanie do lewej <O> 
Center Text — wyrównanie centryczne <i> 
RightText — wyrównanie do prawej <2> 


Wyrównanie w pionie może być wyrażone za pomocą 
następujących symboli: 


BottomText — wyrównanie do dołu <O> 
CenterText — wyrównanie centryczne <1> 
TopText — wyrównanie do góry <2> 
GetTextSettings, OutText, OutlextXY, 
SetLineStyle, TextHeight, TextŁWidth 


< SetTextJustify > 


uses 


Crt,Graph; 


var 


Driver ,Mode : integer; 


begin 


Dr i ver 


:= Detect; 


I ni ŁGraphCDr i ver „Mode, ' *D; 
if GraphResult <> grOK then 
HaltC1); 


386 


SetTextJustifyC(Right Text ,BotŁtomlIext); 
Set TextStyleCTriplexFont „,HorizDir ,5); 


Out TextXYCGetMaxX,GetMaxY, 'Izabela'D; 
repeat until KeyPressed; 
CloseGraph 


end. 


Wykonanie programu powoduje wyprowadzenie napisu Izabela, 


wyrównanego do prawego-dolnego narożnika ekranu. 


setTextStyle 


Nazwa SetTextStŁyle — wybranie kroju czcionek, kierunku 
wykreślania znaków tekstu i rozmiaru znaków 


Deklaracja procedure 
SetTextStyleCfont : word; 


dir : word; 
size : word) 
Modut Graph 
Opis Wybranie kroju czcionek font, kierunku wyprowa— 


dzania dir i rozmiaru czcionek Size. 


Uwagi System musi być w trybie graficznym. Krój czcio— 
nek może być wyrażony za pomocą następujących 
symboli: 

Defaul'tFont — krój domniemany, określony przez 
wzorzec 8 x 8 bitów <O» 
TriplexFont — krój kreskowy potrójny (1 
SmallFont — krój kreskowy indeksowy <2> 
SansSerifFont — krój kreskowy bezszeryfowy <3> 
GothicFont — krój kreskowy gotycki (4> 


Kroje kreskowe charakteryzują się tym, że,.ich 
powiększenie nie pogarsza wyglądu czcionki. 
Kierunek wyprowadzania może być wyrażony za pomo- 
cą następujących symboli: 

HorizDir — poziomo od lewej do prawej <O> 


VertDir — pionowo od dołu do góry <€12 


Czcionki o krojach kreskowych mogą być rozciągane 
w pionie i w poziomie Cpor. procedura SetUserChar — 


Size). Wykorzystanie tej możliwości wymaga użycia 
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Porównaj 


Przyklad 


< Se 


uses 
Cr 


Var 


parametru Size o wartości określonej przez symbol: 
UserCharSize — rozmiar programowany <O> 


Ponieważ kroje czcionek są zazwyczaj ładowane z 
dysku, niepomyślne wykonanie procedury SetlText— 
SŁyle powoduje, że rezultatem funkcji GraphResult 


jest dana o wartości: 


grFileNotFound — brak zbioru definiującego 
krój <-8> 
grNoFontMem — brak pamięci do załadowania 


kroju kreskowego €C-9> 


grError — liczba krojów kreskowych 
przekracza 1O <-11> 

grIOEr ror — błąd operacji wejścia-wyjś- 
cia €-12> 

grInvalidFont — niewłaściwy krój czcio- 
nek €-13> 

grInvalidDeviceNum — niewłaściwy numer urządze— 
nia C-14> 


GetlextSettings, OutText, OutTextXY, 
SetTIextJustify, TextHeight, TextWidth 


tTextStyle > 


tŁt,Graph; 


Driver „Mode : integer; 


begin 
Driver := Detect; 
InitGraphć Driver ,Mode, "DD; 


if 


Se 
Se 


Ou 


re 


GraphResult <> grOK then 
HaltC1); 


tTextJustifyClRightText, Toplext); 
tŁTextStŁyleCTriplexFont, VertDir ,5; 


tTextŁXYCGetMaxX ,O, 'Kajusia'D; 
peat until KeyPressed; 


CloseGraph 


end. 


Wykonani 
w taki s 


narożnik 
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e programu powoduje wyprowadzenie napisu Kajusia 
posób, że jest on wyrównany do prawego-górnego 


a ekranu. 


Nazwa 


Deklarac ja 


Modut 
Opts 


Uwagi 


Porównaj 


Przyklad 


SetTime — ustawienie czasu systemowego 
procedure 
SetTimeChour : word; 

min : word; 

sec : word; 


sec1lO0O : word) 


Dos 

Ustawienie godziny na podstawie hour (CO..23, 
liczby minut na podstawie min CO..59), liczby 
sekund na podstawie sec CO..59> i liczby setnych 
części sekundy na podstawie seciO0O CO..S99). 
Jeśli czas jest określony niepoprawnie, to wyko-— 
nanie procedury SetTime nie wywołuje żadnych 
skutków. 

GetDate, GetTime, SetDate 


< SetlTime > 


uses 


Crt, Dos; 


begin 


CirSer; 
SetTimel12,0,0,00; « 12:00:00,000 > 
WriteC' Done! '2) 


end. 


Wykonanie programu powoduje ustawienie czasu systemowego na 


godzinę 12 w południe. 


SetUserCharSize 


Nazwa 


DekRlarac ja 


Modul 
Opts 


SetUserCharSize — zdefiniowanie współczynników 
rozciągania czcionek krojów kreskowych 
procedure 
SetUserCharSizeC(mulx,divx : word; 

muly,divy : word) 
Graph 
Zdefiniowanie współczynnika rozciągania w pozio-— 
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Porównaj 


Przyklad 


mie jako mulx/divx i współczynnika rozciągania 

w pionie jako muly/divy. 

System musi być w trybie graficznym. Po wykonaniu 
procedury SetUserCharSize należy wywołać procedu- 
rę SetTextStyle z trzecim parametrem o wartości 
UserCharSize <Ov. 

Set TextStyle 


< SetŁUserCharSize > 


uses 


Crt, Graph; 


VaT 


Driver ,Mode : integer; 
i : byte; 


begin 


Driver 


:= Detect; 


InitGraphCDriver „Mode, ”'); 
if GraphResult <> grOK then 
HaltC1D; 


SetTextJustifyCLeft Text ,TopTextD; 
SetUserCharSizeć(3,1 ,1 ,10; 


SetTextStŁyleCGothicFont ,HorizDir ,UserCharSizeD); 
OutTextC "Jan Bielecki'J; 


SetTextJustifyCLeftText,BottomTextD; 
SetUserCharSizeCi ,1,3,10; 


SetTextStyleC(GothicFont ,HorizDir ,UserCharSizeD; 
Out lextŁXYCO,GetMaxY, ' Jan Bielecki'DJ; 


repeat until KeyPressed; 


CloseGraph 


end. 


Wykonanie programu powoduje dwukrotne wykreślenie napisu Jan 


Bielecki. Jeden z tych napisów jest trzykrotnie rozciągnięty 


w poziomie, 


a drugi jest trzykrotnie rozciągnięty w pionie. 


SetVerify 
Nazwa SetVerify — określenie stanu znacznika verify 
DeRlaracja procedure 
SetVerifyCverify : boolean) 
HModut Dos 
Opis Określenie na podstawie verify, czy ma być 


przeprowadzana kontrola poprawności wyprowadzania 


danych na dysk. 


Uwvagt 


Porównaj 


Przyklad 


Jeśli verify = true, kontrola będzie przeprowa— 
dzana. W przeciwnym razie nie będzie przeprowa— 
dzana. 


GetVerify 


< SetVerify > 


uses 
Dos; 


vVaT 


Verify : boolean; 


begin 


SetVerifyCfalse); 
GetVerifyCVerifyJ; 
WritelnCVerify);  € TRUE > 


end. 


Wykonanie programu powoduje wyprowadzenie napisu TRUE. 


SetViewPort 


Nazwa 


Deklaracja 


Modut 
Opts 


Uwagi 


SetViewPort — zdefiniowanie okienka graficznego 
procedure 
SetVvViewPortCxi ,yl : integer; 

x2,y2 : integer; 


clip : boolean) 


Graph 

Zdefiniowanie okienka graficznego jako prostoką— 
ta o współrzędnych przeciwległych wierzchołków 
Cx1i,y1D i Cx2,y2). Określenie na podstawie clip 
czy wykresy wykraczające poza okienko mają być 
obcinane. 

System musi być w trybie graficznym. Sposób trak— 
towania wykresów wykraczających poza okienko mo- 


że być wyrażony za pomocą następujących symboli: 


C1lipOff — nie obcinaj <false> 
ClipOn — obcinaj <true> 


Po utworzeniu okienka graficznego wszystkie ope— 


racje graficzne Cz wyjątkiem SetViewPort»> są wy— 
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konywane w tym okienku. Przez donniemanie przyj- 


muje się, że takim okienkiem jest cały ekran. 


Porównaj ClearViewPort, GetVvViewSettings, Window 
Przyklad 
< SetViewPort > 
uses 
Crt,Graph; 
var 


Driver „Mode : integer; 


begin 
Driver := HercMono; 
Mode := HercMonoHi; 


InitGraphC Driver ,Mode, ''); 
if GraphResult <> grOK then 
HaltC1)D; 


SetViewPortC(GetMaxX div 2,0, 
GetMaxX, GetŁMaxY ,ClipOnD; 


LineCO,0,O,GetMaxY div 3); 
repeat until KeyPressed; 
CloseGraph 


end. 


Wykonanie programu powoduje zdefiniowanie i wypełnienie 


wzorami, ciągu przypadkowo obranych okienek graficznych. 


SetVisualPage 


Nazwa SetVisualPage — wybranie strony wyświetlanej 

Deklaracja procedure 
SetVisualPagelnum : wordD 

Modul Graph 

Opts Wybranie jako strony wyświetlanej, strony © 
numerze num. 

Uwagi System musi być w trybie graficznym. Możliwość 
wyboru strony wyświetlanej dotyczy jedynie kart 
EGA, VGA i Hercules. 

Porównaj SetActi vePage 


Przyklad 


< SetVisualPage > 


uses 
Crt,Graph; 
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var 


Driver ,Mode : integer; 
Num O..1; 
i : byte; 
begin 
Driver := Detect; 


InitGraphCDriver „Mode, "DD; 
if GraphResult <> grOK then 
HaltC1D; 


SetTextJustifyC(LeftText, TopText); 
Set TextStyleC(GothicFont ,HorizDir ,6D; 


Out TextŁXYCO,O, 'Kajunia'D; 


SetActivePageC10; 
SetTextJustifyCRightText, TopText); 


Out TextŁXYCGetMaxX ,O, 'Izunia'D; 


Num :=O; 

for i = 1 to 20 do begin 
Num := 1 — Num; 
SetVvVisualPagelNuno; 
DelayC 300) 

end; 

CloseGraph 

end. 


Wykonanie programu powoduje przemienne wyświetlanie napisów 


Izunia i Kajunia. 


SetWr i teMode 


Nazwa 


Deklaracja 


Modul 
Opis 


Uwagi 


Porównaj 


SetWriteMode — określenie sposobu wykreślania 

linii prostych 

procedure 

SetWriteModeć mode : integer) 

Graph 

Określenie na podstawie mode sposobu wykreślania 

odcinków linii prostych. 

System musi być w trybie graficznym. Odcinki mogą 

być wykreślane w jednym z dwóch trybów, które 

można wyrazić za pomocą następujących symboli: 
copyPut — przez nałożenie nieodwracalne, 
xorPut  — przez nałożenie odwracalne. 

Nałożenie nieodwracalne jest implementowane za 

pomocą rozkazu mov, a odwracalne za pomocą 

rozkazu xor. 


PutŁImage, SetLineStyle 
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PrzykRTad 


< SetWriteMode > 


uses 


Crt,Graph; 


Var 


Driver ,Mode : integer; 
i : integer; 


begin 


Driver := Detect; 
InitGraphCDriver „Mode, '*); 


if GraphResult <> grOK then 
HaltC1D; 


SectorClGetMaxX div 2,GetMaxY div £, 
0,270, 
150,100); 


Set Wr i ŁeMode(l xor Put) ; 


for i := O to 144 do begin 
LineCO,GetMaxr,5 %* i,OJ; 
LineCO,GetMaxY,5 * i,OD 
end; 


repeat until KeyPressed; 


CloseGraph 


end. 


Wykonanie programu powoduje wykreślenie sektora elipsy i 


przesuwającego się na jego tle odcinka linii prostej. 


Sin — wyznaczenie sinusa 


Deklaracja function 


SIiNCO : real/extended 


Modut System 

Opis Utworzenie danej typu real/extended o wartości 
sin x. 

Uvagi Argumentem funkcji Sin może być dowolne wyrażenie 
rzeczywiste albo całkowite. Argument jest wyrażo- 
ny w radianach. 

Przyklad 

< Sin > 
uses 
Crt; 


begin 
CirScr; 
WriteCSinCPi / 62 :4:2); < O.50 » 


end. 


Wykonanie programu powoduje wyprowadzenie liczby O.50 . 


SizeOf 


Nazwa SizeOf — wyznaczenie rozmiaru 

Deklaracja function 
SizeofCO : word 

Modut System 

Opis Utworzenie danej typu word o wartości równej 
rozmiarowi zmiennej identyfikowanej przez argu— 
ment albo rozmiarowi zmiennej typu określonego 
przez argument. 

Uvagti Argumentem funkcji SizeOf może być nazwa zmiennej 
albo identyfikator typu. Rozmiar jest wyrażany w 
bajtach. Zmienna bez typu ma rozmiar O. 


Przyklad 


<« Sizeof > 


uses 
Crt; 
var 
Rec : record 
Re,Im : real 
end; 
type 
Union = record 
case boolean of 
false: CInt : integer); 
true: CChr : byte) 
end; 
begin 
CirSer; 


WriteCSizeOfCRec) — SizeOfC(UnionD; (C 10O >» 


end. 


Wykonanie programu powoduje wyprowadzenie liczby 10. 
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Sound 


Nazwa 


DekRlarac ja 


Porównaj 


Przyklad 


Sound — włączenie głośnika 


procedure 
SoundChz : 
Crt 


wor dJ 


Włączenie głośnika i emitowanie ciągłego dźwięku 


o częstotliwości hz 
Wyłączenie głośnika 
NoSound 


< Sound > 


uses 
Crt; 


var 


Drop : 


char; 


i : byte; 


const 
Hz : 


begin 


word = 


300; 


ClrSer; 
SoundC Hz) ; 
1 to 5 do begin 


repeat until KeyPressed; 
Drop := ReadKey; 
if Ci and 1D <> O then 
NoSound 
else 
SoundC Hz) 


end 


for i := 


end. 


herców. 


zapewnia procedura NoSound. 


Program ilustruje włączanie i wyłączanie dźwięku o częstotli- 


wości 300 Hz. 
SPtr 
Nazwa SPtr — udostępnienie zawartości rejestru SP 
Deklaracja function 
SPtr word 
Modul System 
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Opis Utworzenie danej typu word identycznej z daną 
przypisaną rejestrowi SP procesora. 


Porównaj SSeg 
Przyklad 


< SPtr > 


uses 
Crt; 


var 
Loc : word; 


procedure Sub; 


var 
Any : real; 


begin 
Loc := SPtr 
end; 


begin 
CirSer; 
Sub; 
WriteCSPtr — Loc); < 6 >» 


end. 


Wykonanie programu powoduje wyprowadzenie liczby 6. 


Sqr 


Nazwa Sqr — wyznaczenie kwadratu 
Deklaracja function 
Sqr«o : typ 


HModut System 
Opts Utworzenie danej o wartości x. 
Uwagi Argumentem funkcji Sqr może być dowolne wyrażenie 


rzeczywiste albo całkowite. Typ rezultatu jest 


identyczny z typem argumentu. 


Przyklad 


< Sqr > 


uses 
Crt; 


VAT 
Fix : 1..100; 


begin 


C1lrSer; 


Fix 


:= SqrC5); 


WriteCF1O; < 25 > 


end. 


Wykonanie programu powoduje wyprowadzenie liczby 285. 


Sqrt 

Nazwa Sqrt — wyznaczenie pierwiastka kwadratowego 

Deklaracja function 
Sqrt(O : real/extended 

Modut System 

Opis Utworzenie danej typu real/extended o war- 
tości Yx. 

Uvagi Argumentem funkcji Sqrt może być dowolne wyraże- 
nie rzeczywiste albo całkowite, reprezentujące 
daną o wartości nieujemnej. 

Przyklad 

< Sqrt > 
uses 
Crt; 
begin 
CirSer; 
WriteCSqrtC(144) :4:20; < 12.0 > 
end. 


Wykonanie programu powoduje wyprowadzenie liczby 12.0 


SSeg 


SSeg — udostępnienie zawartości rejestru stosu 
function 

SSeg : word 

System 

Utworzenie danej typu word identycznej z daną 
przypisaną rejestrowi SS procesora. 

CSeg, DSeg, SPtŁr 


Przyklad 
< SSeg >» 


uses 
Crt; 


begin 


ClrSer; 


writeC 


end. 


"Stack segment : "',SSeg) 


Wykonanie programu powoduje wyprowadzenie numeru segmentu 


stosu. 

Str 

Nazwa. Str — przekształcenie danej arytmetycznej w łań- 
cuchową 

Deklaracja procedure 
StŁrcx : typ; 

var Ss : string 

Modul System 

Opis Przekształcenie danej arytmetycznej x w ciąg 
wzorcowy zawierający liczbę o wartości tej danej, 
a następnie przekształcenie tego ciągu w daną 
łańcuchową i przypisanie jej s. 

Uwagi Jeśli pierwszy argument procedury Str jest typu 


całkowitego, to przyjmuje się, że ciąg wzorcowy 
ma postać liczby całkowitej o minimalnej liczbie 
cyfr. Jeśli bezpośrednio po tym argumencie wystę 
puje specyfikacja :m Cm jest wyrażeniem całkowi — 
tym, Ło m określa liczbę znaków danej łańcucho— 
wej, w której wymieniony wyżej ciąg wzorcowy jest 
wyrównany prawostronnie. Jeśli ciąg wzorcowy 
liczy więcej niż m znaków, to m jest niejawnie 
zwiększane do liczby znaków ciągu wzorcowego. 
Utworzona w taki sposób dana łańcuchowa jest 
przypisywana zmiennej reprezentowanej przez drugi 
argument procedury. Przypisanie odbywa się według 
zwykłych zasad przypisywania danych łańcuchowych 
Ctj. od lewej do prawej i z ewentualnym obcina— 


niemo, ale w przypadku gdy rozmiar danej łańcu— 
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chowej przekracza rozmiar argumentu, jest poprze- 
dzone usuwaniem z danej łańcuchowej ewentualnych 
spacji wiodących. Usuwanie spacji kończy się w 
momencie zrównania rozmiaru danej łańcuchowej z 
rozmiarem argumentu albo po usunięciu wszystkich 


spacji. Jeśli specyfikacja :m nie zostanie użyta, 


to domniema się :1. 


Przyklady (przyjęto, że s jest typu string [3]) 


Wywołanie Ciąg Dana War Łość 
wZOrcowy łańcuchowa s 
StŁrC2-7: 3,S) "-5  -5>  -S5' 
Str(127,S) "127" "127" "127" 
Str C-800: 5,S) *-800? * -800O' "-8O' 
Strl-5: 4,S) "-5' > -5' > -5' 


Jeśli pierwszy argument procedury Str jest typu 
rzeczywistego, to przyjmuje się, że w środowisku 
bez koprocesora arytmetycznego ciąg wzorcowy ma 


postać napisu 

bsa. dddddddddd C11 cyfr mantysy) 
a w Środowisku z koprocesorem ma postać 

bsd. dddddddddddddddaddEsdddd (18 cyfr mantysy) 


W napisie tym b jest spacją, s jest znakiem man- 
Łysy lub wykładnika, a d jest cyfrą. Znak mantysy 
jest reprezentowany przez spację albo znak — C(mi- 
nus), a znak wykładnika jest reprezentowany przez 
znak + Cpłus) albo — (minus). Jeśli bezpośrednio 
po pierwszym argumencie występuje specyfikacja 

:m Cm jest wyrażeniem całkowitym, to m określa 
liczbę znaków danej łańcuchowej, w której wymie-— 
niony ciąg wzorcowy jest wyrównywany prawostron” . 
nie. Jeśli rozmiar ciągu wzorcowego przekracza m, 
to ciąg ten jest skracany do rozmiaru m. W pierw- 
szej kolejności są z niego usuwane spacje wiodą- 
ce, a jeśli to nie wystarczy, są usuwane najmniej 
znaczące cyfry mantysy, ale tak, aby pozostały 
co najmniej dwie. Jeśli po wykonaniu tych czyn- 


ności rozmiar ciągu wzorcowego wciąż przekracza m, 


Porównaj 


Przyklad 
< Str > 


uses 
Crt; 


Ło przyjmuje się, że dana łańcuchowa składa się 

z maksymalnie skróconego ciągu wzorcowego. Następ- 
nie dana ta jest przypisywana drugiemu argumen- 
towi. Przypisanie może być jak uprzednio poprze— 
dzone usuwaniem z danej łańcuchowej ewentualnych 
spacji wiodących. Pozostaje dodać, Że jeśli spe-— 
cyfikacja :m nie zostanie użyta, to w środowisku 
bez koprocesora domniema się :17, a w środowisku 


z koprocesorem domniema się :26. 


Przyklad (przyjęto, że s jest typu string [5], 
a wywolanie procedury Str odbywa się 
w srodowisku bez Roprocesora arytme— 


tycznego) 
Wywołanie: StŁrC-456. 78: 7,S3D 
Ciąg wzorcowy: ” -4. 5678000000E+02" 
Dana łańcuchowa: *-4, 6E+02* 
Wartość s: *"-4.6E" 


Jeśli pierwszy argument procedury Str jest typu 
reeczywistego, a po nim występuje specyfikacja 
:m:n Cm i n są wyrażeniami całkowitymi), to dana 
łańcuchowa przypisywana drugiemu argumentowi 


składa się z wszystkich znaków ciągu wzorcowego 


bsd.ddd ... ddd Cn cyfr ułamkowych) 
Podobnie jak w poprzednich przypadkach, jeśli 
rozmiar danej łańcuchowej przekracza rozmiar 
drugiego argumentu funkcji Str, to przypisanie 
danej łańcuchowej jest poprzedzone usuwaniem 


jej ewentualnych spacji wiodących. 


PrzykTad (przyjęto, że s jest typu string [512 


Wywołanie: Str C -456. 78: 9: 3,S) 
Ciąg wzorcowy: > —456. 780" 

Dana łańcuchowa: * —456. 780* 
Wartość s: —456. * 


Val, Write 
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var 


Value : 


begin 


string; 


C1lrSer; 
StrC12. 349 :4:1,Value); 
WriteCValue); C i2.3 > 


end. 


Wykonanie programu powoduje wyprowadzenie liczby 12.3 


Succ 


Nazwa 


Deklaracja 


Modul 
Opis 
Uvagt 


Porównaj 


Przyklad 


<« Succ > 


uses 
Crt; 


begin 


Succ — utworzenie następnika 

function 

SuccCO : type 

System 

Utworzenie danej o wartości i typie następnika «x. 
Argumentem funkcji Succ może być dowolne wyraże- 
nie porządkowe. 


Pred, Inc 


CirSer; 
WritelSucc(-500; ( -4 > 


end. 


Wykonanie programu powoduje wyprowadzenie liczby —4. 


Swap 
Nazwa Swap — przestawienie bajtów 
Deklaracja function 
SwapC©O : type 
Modut System 
Opis Utworzenie danej typu identycznego z typem argu" 
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mentu skojarzonego z x, której górny bajt jest 
identyczny z dolnym bajtem x, a dolny bajt jest 
identyczny z górnym bajtem x. 


Uvagt Argumentem funkcji Swap może być dowolne wyraże- 
nie całkowite. Jeśli jest to wyrażenie innego 
Łypu niż integer i word, to utworzona dana ma 
wartość nieokreśloną. 


Porównaj Hi, Lo 


Przyklad 
< Swap >» 


uses 
Crt; 


begin 
CirSer; 
WriteCSwapC25800;  « 513 >» 


end. 


Wykonanie programu powoduje wyprowadzenie liczby 513. 


SwapVectors 


Nazwa SwapVectors — wymiana wektorów przerwań 


Deklaracja procedure 


SwapVectors 
Modut Dos 
Opis Wymiana wektorów zapamiętanych przez system Turbo 


Pascal i aktualnych wektorów przerwań. 


Uwagi Wymiana dotyczy tylko następujących wektorów 


OO O2ż ib 23 24 3, 35 36 37 
38 39 3a 3b 3c 3d J3e S£ 75 


Przyklad 

< SwapVectors > 

<$M 8192,0,0> 

uses 
Dos; 

begin 
SwapVectors; 
ExecC * NCOMMAND. COM' ,”.C dir %.pas"D; 
SwapVectors 


end. 


Wykonanie programu powoduje wykonanie dyrektywy dir z 
wektorami jak przed wywołaniem systemu DOS. 


403 


TextBackground 


Nazwa 


DeRlarac ja 


Poró 


vna j 


Przyklad 
< TextŁBackground > 


uses 


TextBackground — ustalenie koloru tła 
procedure 

TextBackgroundlcolor : byteJ) 

Crt 

Przypisanie zmiennej TextAttr atrybutu koloru 
tła color. 

Atrybut koloru tła jest trzybitowy i może być 
wyrażony za pomocą następujących symboli: 


Black — czarny <O> 

Blue — niebieski <12> 
Green — zielony (2 
Cyan — turkusowy <3> 
Red — czerwony €4> 
Magenta — karmazynowy <5> 
Brown — brązowy <5> 
Lightóray — jasnoszary <7> 


Po ustaleniu koloru tła, wszystkie znaki wyprowa- 
dzane na ekran (także i spacje) będą przedstawio- 
ne na podanym tle. 

HighVideo, LowVvVideo, NormVideo, TextColor 


Crt ,Graph; 


VaT 


Driver ,Mode : integer; 


begin 


CirScer; 


DetectGr aphC Dr i ver , Mode) ; 

if CGraphResult <> grOK) or 
(Driver <> EGAD then begin 
WriteC'Failure'D; 
HaltC1D 


end; 


TextBackground(l Green) ; 
TextColorCRed); 
WriteC'Jan') 


end. 


Wykonanie programu powoduje wyprowadzenie czerwonego napisu 


Jan na zielonym tle. Jeśli użytą kartą graficzną nie jest EGA 


w Łrybie EGAHi, to wykonanie programu powoduje wyprowadzenie 


napisu Failure. 


TextColer 
Nazwa TextColor — ustalenie koloru znaku 
Deklaracja procedure 
TextColorlcolor : byteJ 
Modut Crt 
Opis Przypisanie zmiennej TextAttr atrybutu koloru 
znaku Ci migotania) color. 
Uwagi Atrybut koloru znaku jest czterobitowy i może 
być określony za pomocą następujących symboli: 
Black — czarny <CO> 
Blue — niebieski 12 
Green — zielony <2> 
Cyan — turkusowy <3> 
Red — czerwony (4 
Magenta — karmazynowy <5> 
Brown — brązowy <6> 
LightGray — jasnoszary <7> 
Dar kGr ay — ciemnoszary <8> 
LightBl ue — jasnoniebieski <9> 
LightGreen — jasnozielony <1O> 
LightCyan — jasnoturkusowy <112> 
LightRed — jasnoczerwony <€12> 
LightMagenta — jasnokarmazynowy <13> 
Yellow — żółty <14> 
white — biały <15> 
Blink — migotanie <128> 
Po ustaleniu koloru znaku wszystkie znaki 
będą wyprowadzane na ekran w tym kolorze. 
Porównaj HighVideo, LowVideo, NormVideo, TextBackground 


Przykład 
< TextColor > 
uses 
Crt,Graph; 
var 
Driver ,Mode : integer; 
begin 
ClrSer; 


DetectGr aphC Dr i ver , Mode) ; 
if CGraphResult <> grOK> or 
(Driver <> EGA> then begin 
WriteC 'Failure"'); 
HaltC1) 
end; 


TextŁBackground( Green)D ; 
TextColorlRed + BlinkD; 
WriteC'Jan') 


end. 


Wykonanie programu powoduje wyprowadzenie na ekran migoczące- 


go, czerwonego napisu Jan na zielonym tle. 


TextHeight 


Nazwa TextHeight — wyznaczenie wysokości tekstu 
Deklaracja function 


TextHeightC(atext : string> : word 
Modut Graph 


Opis Utworzenie danej typu word o wartości równej pio- 


nowemu rozmiarowi tekstu atext, wyrażonemu w pik- 


selach. 

Uwagt System musi być w trybie graficznym. Rezultat 
uwzględnia współczynnik rozciągania znaków w 
pionie. 

Porównaj OutText, OutTlextŁXY, SetlextStŁyle, 
SetUserCharSize, TextWidth 

Przyklad 

< TextHeight > 
uses 

Crt ,Graph; 
var 


Driver ,Mode : integer; 
Height : word; 


begin 


Driver := Detect; 
InitGraphCDriver „Mode, ''D; 
if GraphResult <> grOK then 


HaltC1D; 
SetTextStyleC(GothicFont ,HorizDir ,10; 
Height := TextHeightC '%'); 
Restor eCr Mode; 
WriteC'Height = "',HeightD>; ( if Herc => 16 > 


end. 


Wykonanie programu powoduje wyznaczenie wysokości tekstu 


wyprowadzonego gotykiem. Na monitorze sterowanym przez kartę 


Hercules wynosi ona 16 pikseli. 


TextMode 


Nazwa 


TextMode — ustanowienie trybu tekstowego 


Deklaracja procedure 


Modut 
Opis 


Uwagi 


TextModel mode : word) 

Crt 

Zmiana bieżącego trybu tekstowego na tryb teksto— 
wy mode. 

Nowy tryb może być wyrażony za pomocą następują— 
cych symboli: 


BW40 — 40 x 8O, czarno-biały <O> 

C40 — 40 x 25, kolorowy 1 

BWBO — 8O x 25, czarno-biały <2> 

C80 — 80 x 25, kolorowy <3> 

Mono — 8O x 25, czarno-biały Cna monitorze mono 


chromatycznym <C7> 


Dodatkową możliwością określenia trybu jest odwo— 
łanie się do zmiennej LastMode. W prologu progra— 
mu, zmiennej tej jest przypisywany numer trybu, 

jaki obowiązywał przed podjęciem wykonywania pro— 


gramu. 


W celu umożliwienia wyprowadzania na ekran 43 


wierszy tekstu (karta EGA) albo 50 wierszy (karta 
VGAD, zdefiniowano dodatkowy symbol 


FOonŁ8x8 <S$1O0O> 
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Porównaj 


Przyklad 


W szczególności wywołanie 
TextModel(CO80 + Font8x82 


spowoduje ustanowienie trybu tekstowego kolorowe- 


go BO x 25 z wyprowadzaniem 43 albo 50 wierszy. 


Pozostaje nadmienić, że bezpośrednio po wywołaniu 
procedury lTextMode, bieżącym okienkiem tekstowym 
staje się cały ekran, okienko zostaje wyczyszczo- 
ne, a zmiennej TextAttr zostają przypisane atry- 

buty jak po wywołaniu procedury NormVideo. Ponad- 
to zmiennej DirectVideo jest przypisywana dana 

o wartości true, a jeśli wybrano tryb z kolorem, 

dotyczy to także zmiennej CheckSnow. 


RestoreCrt 


< TextMode > 


uses 


Crt; 


begin 


CirScer ; 

HighVideo; 
WritelnC'Jan'J; 
Readln; 

TextModeć LastMode)D ; 
WriteC 'Ewa') 


end. 


Wykonanie programu powoduje wyprowadzenie na ekran rozjaśnio- 


nego napisu Jan, a po naciśnięciu klawisza Enter, wyprowadze- 
nie napisu Ewa w takim trybie, jaki obowiązywał przed podję- 


ciem wykonywania programu. 


TextWidth 


YZ ORA 


Nazwa 


DekRlarac ja 


Modul 
Opis 
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TextWidth — wyznaczenie szerokości tekstu 


function 

TextWidthCatext :stringo> : word 

Graph 

Utworzenie danej typu word o wartości równej 
poziomemu rozmiarowi tekstu atext, wyrażonemu 


w pikselach. 


Uvagt System musi być w trybie graficznym. Rezultat 
uwzględnia współczynnik rozciągania znaków w 
poziomie. 

Porównaj Out Text, OutTextXY, SetTextStyle, 
SetUserCharSize, TextHeight 


Przyklad 


< TextWwWidth > 


uses 
Crt,Graph; 

var 
Driver ,Mode : integer; 
Width : word; 
Drop : char; 

begin 
Driver := Detect; 


InitGraphCDriver „Mode, ''D; 
if GraphResult <> grOK then 
HaltC1D; 


Set TextStyleC(GothicFont, VertDir ,10; 
Set TextJustifyCRightText ,Bottomlext0); 


Out TextŁXYCGetMaxX,GetMaxY, ' jb'D; 


repeat until KeyPressed; 


Drop := ReadKey; 

Width := TextWidthC' jb'D; 

RestoreCrtMode; 

WriteC "Width = ”,Width>; C if Herc => 13 > 
end. 


Wykonanie programu powoduje wyznaczenie szerokości tekstu 
wyprowadzonego gotykiem. Na monitorze sterowanym przez kartę 


Hercules szerokość ta wynosi 13 pikseli. 


Trunc 


Nazwa Trunc — odrzucenie części ułamkowej 

Deklaracja function 
TrunclCO : longint 

Modul System 

Opts Utworzenie danej typu longint o wartości równej 
części całkowitej x. 

Uwagt Argumentem funkcji Trunc może być dowolne wyraże— 
nie rzeczywiste albo całkowite. Jeśli utworzona 
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dana ma wartość wykraczającą poza zakres wartości 


Łypu longint, to powstaje błąd wykonania progra- 


mu. 
Porównaj Int, Round 
Przyklad 
< Trunc > 
uses 
Gr t; 
const 


Float : real = 12.99; 
begin 
CirScer; 
WriteCTruncC(FloatD>; < i2 >» 


end. 


Wykonanie programu powoduje wyprowadzenie liczby 12. 


Truncate 


Nazwa Truncate — obcięcie pliku 


Deklaracja procedure 


TITruncateCvar £D 


HModut System 


Opis 


Usunięcie z pliku identyfikowanego przez f£, 
wszystkich elementów występujących między jego 
pozycją bieżącą a końcową. 


Uwagi Argumentem procedury Truncate musi być nazwa 


zmiennej plikowej identyfikująca plik otwarty. 
Niepomyślne wykonanie procedury Truncate powo— 


duje powstanie błędu wejścia—wyjścia. 


Porównaj Reset, Seek 


Przyklad 


410 


< Truncate > 


uses 
Crt; 


var 
Doc : file of word; 
OneWord,i : word; 


procedure OutŁCNum : word); 


begin 
for i := Num to Num + 2 do 
WriteCDoc,iD 
end; 


begin 
ClrSer; 


ASsign( Doc ,ParamStrC100; 
Rewr i Łel Doc); 


Out 10D; 

OutC 20); 
Seek C Doc ,3); 
TruncateC Doc); 
OutŁC30D; 
Close( Doc); 
ResetC Doc); 


while not EofCDoc) do begin 


ReadC Doc , OneWord) ; 
WriteCOneWord, * *J; 


end 


end. 


Program ilustruje zasadę obcięcia pliku. 


< 10 11 12e 30 31 32 >» 


Jego wykonanie 


powoduje wyprowadzenie liczb 10, i1, i2e, 30, 31, 32. 
UnpackTi me 
Nazwa UnpackTime — rozpakowanie daty i czasu 
Deklaracja procedure 
UnpackTimeCptime : longint; 
var utime : DateTime) 
Modul Dos 
Opis Przekształcenie upakowanej daty i czasu, wyrażo— 
nych za pomocą ptŁime, w daną rekordową typu 
DateTime i przypisanie jej utime. 
Uvagt Nie przeprowadza się kontroli poprawności ptime. 


Typ DateTime jest zdefiniowany następująco 


type 
DateTime = record 
Year word; 
Month : word; 
Day : word; 
Hour word; 
Min : word; 
Sec word 
end: 


rok C1980..20992, pole Month 


Pole Year określa 


określa numer miesiąca C1..122, pole Day określa 


numer dnia C1i..31D>, pole Hour określa liczbę go— 
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Porównaj 


Przyklad 


dzin, jakie upłynęły od północy CO..232, pole Min 
określa liczbę minut, jakie upłynęły od ostatniej 
godziny CO..590, a pole Sec określa liczbę sekund, 
jakie upłynęły od ostatniej minuty CO..59). 
GetFTime, GetTime, PackTime, SetFlime, SetTlime 


< UnpacklTime >» 


uses 
Crt, Dos; 
var 
Doc file; 
Time : longint; 
Date : DateTime; 
begin 
ClrSer; 
Assign( Doc ,ParamStrC1002; 
ResetC Doc) ; 


GetFTi mel Doc , Ti me) ; 
UnpackTi meC Ti me,DateJ); 


with Date do 
WriteCDay,'—' „Month, '—' ,Year) 


end. 


Wykonanie programu powoduje wyprowadzenie daty utworzenia 


albo ostatniej modyfikacji zbioru o nazwie określonej przez 


pierwszy parametr programu. 


a 


UpCase 
ód |h dd h.Ó.../ Nm _ 
Nazwa UpCase — przekształcenie litery małej w dużą 
DeRlaracja function 
Upcaselch : char) : char 
Modut System 
Opis Utworzenie danej typu char składającej się z du- 
żej litery odpowiadającej małej literze ch. 
Uvagt Jeśli ch nie reprezentuje małej litery, to rezul- 
tat jest identyczny z ch. 
Przyklad 
< UpCase > 
uses 
Crt; 
var 
Str stringl9]; 
i byte; 
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begin 


CirScer; 

Str "Jan 68 Ewa; 

for i := 1 to LengthC(Str. do 
Str[(i)] := UpCaseC(Str[i])D; 


WriteCStr>; € JAN 8 EWA > 


end. 


Wykonanie programu powoduje wyprowadzenie napisu JAN 8 EWA. 


Val 


Nazwa 


Deklaracja 


Porównaj 
PrzykRtTad 


< Val > 


uses 
Crt; 


var 
Num : 
Code 


Val — przekształcenie danej łańcuchowej w arytme— 
tyczną 
procedure 
ValCs : string; 

var v; 

var code : integer) 
System 
Przekształcenie danej łańcuchowej s, składającej 
się ze znaków mających postać liczby poprzedzonej 
spacjami, w daną arytmetyczną o wartości tej 
liczby, a następnie przypisanie tej danej zmien— 
nej v. W przypadku pomyślnego wykonania prze— 
kształcenia, przypisanie code danej o wartości O, 
a w przeciwnym razie przypisanie jej danej o war— 
tości równej numerowi tej pozycji s, która zawie— 
ra niedozwolony znak. 
Drugim argumentem procedury Val może być nazwa 
zmiennej całkowitej albo rzeczywistej. Jeśli jest 
nim nazwa zmiennej całkowitej, to przekształcana 
dana łańcuchowa musi składać Się ze znaków mają— 
cych postać liczby całkowitej. 
Str 


integer; 
integer; 


const 
Minus_13 : string = ”" -1S3'; 


begin 
C1lrScer; 
ValCMinus_13,Num,CodeD); 
WriteCNum; . -13 >» 


end. 


Wykonanie programu powoduje wyprowadzenie liczby -13. 


WhereX 


Nazwa WhereX — udostępnienie poziomej współrzędnej 


kursora tekstowego 


Deklaracja function 


WhereX : byte 


Modul Crt 


Utworzenie danej typu byte o wartości równej 


poziomej współrzędnej kursora tekstowego. 


Uwagi Współrzędna dotyczy bieżącego okienka tekstowego. 
Lewy-górny znak okienka ma współrzędną poziomą 1. 
Porównaj GotoXY, WhereY, Window 
Przyklad 
< WhereX > 
uses 
Crt; 
begin 
C1rSer; 


WriteC'Jan'J; 
WriteCWhereX); (C 4 > 


end. 


Wykonanie programmu powoduje wyprowadzenie napisu Jan i licz- 
by 4. 


dd t,Ół,t$4t a 
WhereY 


a NZ EN 


Nazwa WhereY — udostępnienie pionowej współrzędnej 


kursora tekstowego 


Deklaracja function 


WhereY : byte 


Modut Crt 
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Opis Utworzenie danej typu byte o wartości równej 
pionowej współrzędnej kursora tekstowego. 
Uwvagt Współrzędna dotyczy bieżącego okienka tekstowego. 
Lewy-górny znak okienka ma współrzędną pionową 1. 
Porównaj GotŁoXY, WhereX, Window 
Przyklad 
< WhereY > 
uses 
Crt; 
begin 
ClrScer; 
WriteC'Jan'D; 
WritelnCWhereYD; (CC 1 > 
end. 


Wykonanie programu powoduje wyprowadzenie napisu Jan i licz— 


by 1. 


Window 


Nazwa 


Deklaracja 


Modut 
Opts 


Uvagt 


Window — utworzenie okienka tekstowego 
procedure 
WindowC xi ,yli : byte; 


x2,y2 : byte) 
Crt 


Zdefiniowanie okienka tekstowego jako prostokąta, 
którego przeciwległe wierzchołki mają współrzędne 
Cxi,y1lD i Cxe2,y2). 

Współrzędne są liczone względem ekranu. Lewy— 
-górny narożnik ekranu ma współrzędne (1,1). 
Najmniejsze okienko składa się z jednej kolumny 

i jednego wiersza. Okienko domniemane ma współ - 
rzędne C(1,1,80,250 w trybach 80-kolumnowych 

i współrzędne C(1,1,40,250 w trybach 40-kolumno— 
wych. W przypadku błędnego określenia współrzę— 
dnych okienka wykonanie procedury Window nie 
wywołuje żadnych skutków. Po ustanowieniu okienka 
tekstowego wszystkie współrzędne tekstowe Cz wy-— 
jątkiem wymienionych w procedurze Window) są 
liczone względem okienka. Współrzędne ekranowe 


okienka Ckażda zmniejszona o 12 są zapamiętywane 
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Porównaj 


Przyklad 


w zmiennych WindMin i WindMax. Pierwsza z nich 
określa współrzędne lewego-—górnego, a druga 
prawego-dolnego narożnika okienka. Pierwszy bajt 
każdej z tych zmiennych zawiera współrzędną x, 

a drugi współrzędną y. 

Set Vi ewPor t 


< Window > 


uses 
Crt; 


var 
i 


begin 


word; 


CirScer; 
Randomi ze; 


for i 


:= 1 to e00 do begin 


GotoXYCRandom( 810) ,RandomC 2600 ; 
WriteCChrCOrdl('a*”> + RandomC2623.202 


end 


end. 


Wykonanie programu powoduje utworzenie okienka tekstowego, 


a następnie umieszczenie w nim przypadkowo dobranych małych 
liter kodu ASCII. 


Write 
Nazwa Write — wyprowadzenie danych do pliku 
Deklaracja procedure 
WriteCvar f; 
vi,ve, ... „VvnNJ 
Hodut System 
Opts Wyprowadzenie do pliku identyfikowanego przez £ 
danych określonych przez vi,ve, ... „vn. 
Uwagi Pierwszym argumentem procedury Write (w podanej 
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postaci) musi być nazwa zmiennej plikowej identy"- 
fikująca otwarty plik elementowy albo Łekstowy. 


jeśli f identyfikuje plik elementowy, to pozosta-— 
łe argumenty procedury muszą być nazwami zmien-— 
nych takiego samego typu jak elementy pliku. 

W takim przypadku wykonanie procedury powoduje 
wyprowadzenie do pliku danych przypisanych tym 


zmiennym. 


Jeśli f identyfikuje plik tekstowy, to argumen— 
tami mogą być dowolne wyrażenia typu znakowego 
Cchar), całkowitego Cinteger, shortint, longint, 
byte, word), rzeczywistego Creal, double, exten— 
ded, comp), łańcuchowego C(stringiln], arrayltyp] 
of char) oraz logicznego (boolean). Po każdym 

z takich argumentów może wystąpić specyfikacja 

:m Cm jest wyrażeniem całkowitym, a po argumen— 
Łach typu rzeczywistego może wystąpić specyfika— 
cja :m albo :m:n Cm i n są wyrażeniami całkowity— 
mi». W specyfikacjach tych, m określa Szerokość 
pola zewnętrznego, a n określa liczbę cyfr ułam- 
kowych. W każdym z pól jest umieszczany napis 
wyrażający wartość kolejnego argumentu. Napis ten 
jest wyrównany w polu prawostronnie. Jeśli pierw-— 
szy argument procedury Write zostanie pominięty, 
to domniema się argument Output. 


Jeśli argument jest typu znakowego, to w polu 
wyjściowym jest umieszczany znak. Jeśli m=0, to 
przyjmuje się m=1. 


Jeśli argument jest typu całkowitego, te w polu 


jest umieszczana najkrótsza liczba całkowita o 


postaci 
sddd ... ddd 


Jeśli liczba nie mieści Się w polu, to m zostaje 
niejawnie zwiększone tak, aby było to wykonalne. 


Jeśli argument jest typu rzeczywistego, a po nim 
występuje specyfikacja :m, to w środowisku bez 
koprocesora arytmetycznego jest umieszczana 


liczba o postaci 


4 
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Porównaj 
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sd. ddddddddddEsada C11 cyfr mantysy) 


a w środowisku z koprocesorem jest umieszczana 


liczba 
sd.dddddddddddddddddEsdddd (C18 cyfr mantysyJ 


Jeśli rozmiar pola określony przez m jest zbyt 
mały aby pomieścić taką liczbę, to podejmuje się 
próbę skrócenia liczby do rozmiaru m. W tym celu 
usuwa się z liczby najmniej znaczące cyfry manty- 
sy, ale tak aby pozostały co najmniej dwie. Jeśli 
po wykonaniu tych czynności liczba wciąż nie 
mieści się w polu, to pole jest poszerzane, a 
liczba jest wyprowadzana w postaci maksymalnie 
skróconej. Jeśli specyfikacja :m nie zostanie 
użyta, to w środowisku bez koprocesora domniema 


się :17, a w środowisku z koprocesorem domniema 


się :26. 


Jeśli argument jest typu rzeczywistego, a po nim 
występuje specyfikacja :m:n, to w polu jest umie- 


szczana liczba o postaci 


sd.ddd ... ddd 


zawierająca n cyfr ułamkowych (w środowisku bez 
koprocesora jeśli n>1i1i, to przyjmuje się n=ll; 
a w środowisku z koprocesorem jeśli n>18, to 
przyjmuje się n=180. Jeśli argument jest typu 
łańcuchowego, to pole zawiera wszystkie znaki 


reprezentowane przez argument. 


Jeśli argument jest typu logicznego, to pole 
zawiera napis TRUE albo FALSE, stosownie do 


wartości danej reprezentowanej przez argument. 


W przypadku niepomyślnego wykonania jakiejkol- 
wiek z opisanych operacji powstaje błąd wejścia” 
-wyjścia. 


Writeln 


Przyklad 


<« Write > 


uses 
Crt; 


const 


CharArray : array[1..12] of char = "Jan Bielecki”; 


begin 


CirSer; 
WriteCCharArray); < Jan Bielecki > 


end. 


Wykonanie programu powoduje wyprowadzenie napisu Jan Bielecki. 


Writeln 


Nazwa 


Deklaracja 


Porównaj 


Writeln — wyprowadzenie znacznika końca wiersza 
procedure 

Writelnlvar (f : text) 

System 

Wyprowadzenie do pliku identyfikowanego przez £ 
znacznika końca wiersza Cznaków ©M i TJV. 

Plik identyfikowany przez f musi być plikiem 
tekstowym otwartym za pomocą procedury Rewrite 
albo Append. Wywołanie procedury Writeln bez 


argumentu powoduje domniemanie argumentu Output. 
Jeśli po wywołaniu procedury 

WriteCf,al,a2, ... „an 
zostanie wywołana procedura 


WritelnCfD 


to zestaw takich wywołań może zostać zastąpiony 


wywołaniem 


WritelnCf,al,a2, ... ,„an) 


Write 


Przyklad 


< Writeln > 
uses 
Crt; 


type 
Pair = 3..4; 
RGB = Cred,green,blue); 


var 
i : Pair; 
J : boolean; 
k : RGB; 
const 


CharArray : array([Pair,boolean,RGB] of char = 
CC'Jan*”,” Bi”J,C'ele','cki'D); 
begin 
CirSer; 


for i := 3 to 4 do 
for j := false to true do 
for k := red to blue do 


WritelnCCharArray[i][j]C(k]D0; < Jan Bielecki » 
end. 


Wykonanie programu powoduje wyprowadzenie pionowego napisu 
Jan Bielecki. 


14. BIBLIOTEKA DODATKOWA 


Przedstawiono krótkie opisy procedur graficznych wchodzą— 


cych w skład modułu Graph3. 


Procedury grafiki żółwiowej 


Procedura Back 


Wywołanie: BackCNunD 
Argumenty: Num jest wyrażeniem typu integer. 


Wykonanie procedury Back powoduje przemieszczenie żółwia w 
kierunku "do Łyłu' o Num pikseli. Jeśli Num reprezentuje da— 
ną o wartości ujemnej, to żółw przemieszcza się do przodu. 
Jeśli pióro związane z żółwiem jest opuszczone, a koniec 
pióra dotyka punktu w obrębie okienka, to przemieszczanie 


się żółwia powoduje kreślenie linii. 


Procedura ClearScreen 


Wywołanie: ClearScreen 


Argumenty: Procedura ClearScreen jest bezargumentowa. 


Wykonanie procedury ClearScreen powoduje wyczyszczenie okien— 
ka 1 przemieszczenie żółwia do punktu o współrzędnych CO,OJ, 
znajdującego się w środku okienka. Po wykonaniu tej operacji 


żółw jest niewidoczny, a pióro związane z żółwiem opuszczone. 
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Procedura Forvd 


Wywołanie: ForwdCNum 
Argumenty: Num jest wyrażeniem typu integer. 


Wykonanie procedury Forwd powoduje przemieszczenie żółwia 

w kierunku "do przodu' o Num pikseli. Jeśli Num reprezentuje 
daną o wartości ujemnej, to żółw przemieszcza się do tyłu. 
Jeśli pióro związane z żółwiem jest opuszczone, a koniec 
pióra dotyka punktu w obrębie okienka, to przemieszczanie się 
żółwia powoduje kreślenie linii. 


Funkc ja Neadtng 


Wywołanie: Heading 


Argumenty: Funkcja Heading jest bezargumentowa. 


Rezultatem funkcji jest dana typu integer. Wartość tej danej 
określa kierunek, w którym jest zwrócony żółw. Kierunek jest 
określany z dokładnością do 1 stopnia. Wartość O oznacza kie- 
runek "do góry", a kolejne wartości dodatnie, aż do 359 włą- 
cznie, oznaczają kierunki tworzone na skutek obrotu zgodnego 


z ruchem wskazówek zega"a. 


Procedura H. uerurtle 


Wywołanie: HideTurtle 


Argumenty: Procedura HideTurtle jest bezargumentowa. 


Wykonanie procedury HideTurtle powoduje, że żółw staje się 
niewidoczny. Niewid.czność nie pozbawia jednak żółwia innych 
właściwości, jak np. zdol: >+ i do przemieszczania się albo 


kreślenia linii za pomocą pióra. 


Procedura Home 


Wywołanie: Home 


Argumenty: Procedura Home jest bezargumentowa. 


Wykonanie procedury Home powoduje umieszczenie żółwia w punk- 
cie o współrzędnych CO,00 i nadanie mu kierunku "do góry". 
Taka zmiana pozycji żółwia nie powoduje kreślenia linii nawet 


wtedy, gdy pióro związane z żółwiem jest opuszczone. 
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Procedura NoWrap 


Wywołanie: NoWrap 


Argumenty: Procedura NoWrap jest bezargumentowa. 


Wykonanie procedury powoduje, że przemieszczenie się żółwia 


poza okienko czyni go niewidocznym. 


Procedura PenDown 


Wywołanie: PenDown 


Argumenty: Procedura PenDown jest bezargumentowa. 


Wykonanie procedury PenDown powoduje opuszczenie pióra zwią— 
zanego z żółwiem. Spowoduje to, że przemieszczanie się żółwia 


w obrębie okienka będzie powodować kreślenie linii. 


Procedura PenUp 


Wywołanie: PenUp 


Argumenty: Procedura PenUp jest bezargumentowa. 


Wykonanie procedury PenUp powoduje podniesienie pióra związa— 
nego z żółwiem. Spowoduje to, że przemieszczanie się żółwia 


nie będzie powodować kreślenia linii. 


Procedura SetHeading 


Wywołanie: SetHeadi ngl Num0 


Argumenty: Num jest wyrażeniem typu integer. 


Wykonanie procedury SetHeading powoduje zwrócenie żółwia 

w kierunku określonym przez Num. Kierunek jest określany z 
dokładnością do 1 stopnia. Wartość Num=O oznacza kierunek 
"do góry', a kolejne wartości dodatnie, aż do Num=359 włącz— 
nie, oznaczają kierunki tworzone na skutek obrotu zgodnego 


z ruchem wskazówek zegara. 


Procedura SetPenColor 


wywołanie: SetPenColorCNum 
Argumenty: Num jest wyrażeniem typu integer. 


Wykonanie procedury SetPenColor powoduje wybranie koloru uży— 
wanego do kreślenia linii. Wybierany kolor ma numer Num bie— 
żącej palety barw. Jeśli Num=i, to wybór koloru odbywa się 


poprzez wektor barw. 
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Procedura SetPosttton 


Wywołanie: SetPosition(xCoord,yCoord) 
Argumenty: xCoord 1 yCoord są wyrażeniami typu integer. 


Ół — 
Wykonanie procedury SetPosition powoduje przemieszczenie Ż 


wia do punktu o współrzędnych (xCoord, yCoord). Taka zmiana 
pozycji żółwia ani nie powoduje kreślenia linii, ani zmiany 
kierunku, w którym żółw jest zwrócony. Z tego powodu wykona” 
nie procedury SetPosition(0,00 nie jest równoważne wykonaniu 


procedury Home. 


Procedura ShovTurtte 


Wywołanie: ShowTurtle 


Argumenty: Procedura ShowTurtle jest bezargumentowa. 
Wykonanie procedury ShowTurtle powoduje, że żółw staje się 
widoczny. 

Procedura Turnieft 


Wywołanie: TurnLef Ł(Num 
Argumenty: Num jest wyrażeniem Łypu integer. 


Wykonanie procedury TurnLeft powoduje obrót żółwia "w lewo' 
o liczbę stopni określoną przez Num. Jeśli Num reprezentuje 


daną o wartości ujemnej, to obrót następuje w prawo. 


Procedura TurnRtight 


Wywołanie: TurnRightCNum 
Argumenty: Num jest wyrażeniem typu integer. 


Wykonanie procedury TurnRight powoduje obrót żółwia 'w prawo" 
o liczbę stopni określoną przez Num. Jeśli Num reprezentuje 


daną o wartości ujemnej, to obrót następuje w lewo. 


Procedura TurtleWindow 


Wywołanie: TurtleWi ndowć xCoord,yCoord, Hor , Ver) 


Argumenty: xCoord, yCoord, Hor i Ver są wyrażeniami typu 
integer. 


Wykonanie procedury TurtleWindow powoduje zdefiniowanie okien- 
ka żółwiowego. Środek tego okienka znajduje się w punkcie 


o współrzędnych CxCoord,yCoord), a okienko ma rozmiar pozio- 
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my Hor pikseli i rozmiar pionowy Ver pikseli. Bezpośrednio po 
ustanowieniu trybu graficznego okienkiem żółwiowym jest cały 
ekran. Wynika to z niejawnego wykonania procedury Turtle— 


Window zgodnie z następującym zestawieniem: 

dla trybów średniej rozdzielczości 
TurtleWindowC(159,99,320,200) 

dla trybu dużej rozdzielczości 


TurtleWindowC319,99,640,200) 


Funkcja TurtleThere 


Wywołanie: Turtlel[here 


Argumenty: Funkcja TurtleThere jest bezargumentowa. 


Rezultatem funkcji TurtleThere jest dana typu boolean. War— 
Łość tej danej określa prawdziwość zdania żółlv jest wido— 
czny. W szczególności bezpośrednio po wykonaniu procedury 
HideTurtle rezultatem funkcji TurtleThere jest dana o wartoś—' 


ci false. 


Procedura Wrap 


Wywołanie: Wrap 


Argumenty: Procedura Wrap jest bezargumentowa. 


Wykonanie procedury Wrap powoduje, że następujące po wykona— 
niu tej procedury przemieszczenie się żółwia poza krawędź 
okienka sprowadzi go do tego punktu okienka, który znajduje 
się na krawędzi przeciwległej. W szczególności przemieszcze— 
nie się żółwia w kierunku pionowym odbywa się tak, jakby po— 
ziome krawędzie okienka były ze sobą połączone, a okienko 


było zwinięte w walec. 


FunkRc ja xCor 


Wywołanie: xCor 


Argumenty: Funkcja xCor jest bezargumentowa. 


Rezultatem funkcji xCor jest dana typu integer. Wartością tej 
danej jest odcięta bieżącej pozycji żółwia. W Szczególności, 
bezpośrednio po wykonaniu procedury Home rezultatem funkcji 


xCor jest dana o wartości O. 


425 


Funkc ja yCor 


Wywołanie: yCor 


Argumenty: Funkcja yCor jest bezargumentowa. 


Rezultatem funkcji yCor jest dana typu integer. Wartością tej 
danej jest rzędna bieżącej pozycji żółwia. W szczególności, 
bezpośrednio po wykonaniu procedury Home, rezultatem funkcji 


yCor jest dana o wartości O. 


Pozostałe procedury graficzne 


Procedura Arc 


Wywołanie: ArcCxCor „,yCor ,Angle,Radius,ColorDJ 
Argumenty: xCor, yCor, Angle, Radius i Color są wyrażeniami 
Łypu integer. 


Wykonanie procedury Arc powoduje wykreślenie łuku okręgu o 
promieniu Radius i w kolorze o numerze Color. Wykreślanie 
łuku rozpoczyna się w punkcie o współrzędnych CxCor ,yCor)J. 
Argument Angle określa kąt łuku wyrażony w stopniach. Jeśli 
kąt ma wartość dodatnią, to łuk jest wykreślany w kierunku 
zgodnym z ruchem wskazówek zegara. Jeśli jest ujemny, to łuk 
Jest wykreślany w kierunku przeciwnym. Jeśli Color=-i, to 


kolor punktów łuku jest określany poprzez wektor barw. 


Procedura Circle 


Wywołanie: CircleCxCor ,yCor ,Radius,ColorJ 
Argumenty: xCor, yCor, Radius i Color są wyrażeniami typu 


integer. 


Wykonanie procedury Circle powoduje wykreślenie okręgu © pro- 
mieniu Radius i Środku w punkcie o współrzędnych CxCor ,yCor). 
Okrąg jest wykreślany w kolorze o numerze Color. Jeśli Color= 
=-1, to kolor punktów okręgu jest określany poprzez wektor 


barw. 


Procedura ColorTable 


W : 
ywołanie Col or Table Hue, Hue, , Hue. , Hue_) 


Argumenty: Hue, Hue, , Hue_ i Hue są wyrażeniami typu 
integer. 
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Wykonanie procedury ColorTable powoduje zdefiniowanie wektora 


barw. Przyjmuje się, że argument Hue, Ci= O,1,2,3 określa na 


i 
jaki kolor ma być zmieniony kolor piksela wyświetlanego w ko- 


lorze o numerze i. 


Procedura Draw 


Wywołanie: DrawCxi ,yi,x2,y2,Color) 
Argumenty: xi, yl, xe, y2 i Color są wyrażeniami typu 


integer. 


Wykonanie procedury Draw powoduje wykreślenie odcinka linii 
prostej. Odcinek jest zawarty między punktami o współrzęd— 
nych Cx1,y1) i Cx2,y2) i wyświetlony w kolorze o numerze 
Color. Jeśli Color=-i, to kolor punktów odcinka jest określa— 


ny poprzez wektor barw. 


Procedura FtLltPattern 


Wywołanie: FillPatternCxMin,yMin,xMax,yMax,Color) 
Argumenty: xMin, yMin, xMax, yMax i Color są wyrażeniami 
typu integer. 


Wykonanie procedury FillPattern powoduje zlokalizowanie pros— 
tokąta, którego przeciwległe wierzchołki mają współrzędne 
CxMin,yMin)> i CxMax,yMa>0O, a następnie wypełnienie go wzorem 
określonym za pomocą procedury Pattern. Te bity wzoru, które 
mają wartość 1 zostają wyświetlone w kolorze o numerze Color. 
Pozostałe nie zmieniają obrazu na ekranie. Jeśli Color=-i,to 
kolor punktów wypełniających prostokąt jest określany poprzez 


wektor barw. 


Procedura FtLLScreen 


Wywołanie: FillScreen 
Argumenty: Color jest wyrażeniem typu integer. 


Wykonanie procedury FillScreen powoduje wypełnienie okienka 
graficznego punktami w kolorze o numerze Color. Jeśli Color= 
=-1, to kolor punktów wypełniających jest określany poprzez 


wektor barw. 
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Procedura FtillShape 


Wywołanie: FillShapeC xCor „yCor ,Fi1llColor ,BorderColorD) 
Argumenty: XxCor, yCor, FillColor i BorderColor są wyrażeniami 
Łypu integer. 


Wykonanie procedury FillShape powoduje zlokalizowanie obszaru 
otaczającego punkt o współrzędnych CxCor ,yCor>, ograniczonego. 
linią w kolorze o numerze BorderColor, a następnie wypełnie— 
nie go punktami w kolorze o numerze FillColor. Jeśli Fill— 
Color=-i, to kolor punktów wypełniających jest określany po- 
przez wektor barw. Wymaga się, aby kolor wypełniający nie był 


kolorem tła. 


FunkRc ja GetDotColor 


Wywołanie: GetDotColorCxCor „,yCorJ 
Argumenty: xXxCor i yCor 


Rezultatem funkcji GetDotColor jest dana typu integer. Wartoś— 
cią tej danej jest numer koloru, w jakim wyświetlono punkt 

o współrzędnych CxCor ,yCorJ». Kolor jest określany w ramach 
bieżącej palety barw. Jeśli współrzędne punktu wykraczają po- 


za okienko, to rezultatem funkcji jest dana o wartości —1. 


Procedura GetPtc 


Wywołanie: GetPicCBuffer „,xMin,yMin, xMax, yMax 
Argumenty: Buffer jest nazwą zmiennej dowolnego typu; xMin, 
yMin, xMax i yMax są wyrażeniami typu integer. 


Wykonanie procedury GetPic powoduje skopiowanie do obszaru 
pamięci operacyjnej, zajmowanego przez zmienną Buffer, zawar — 
tości pamięci ekranu związanej z prostokątem o współrzędnych 
przeciwległych wierzchołków CxMin,yMin) i CxMax,yMax0. Wymaga 
się, aby rozmiar obszaru przydzielonego zmiennej Buffer był 
nie mniejszy niż wynika to z następujących wzorów: 


dla trybów średniej rozdzielczości 
CCHor + 30 div 40 * Ver * 2 + 6 

dla trybu dużej rozdzielczości 
CCHor + 72 div 8 x Ver + 6 


We wzorach tych 
Hor = absCxMax — xMin) + 1 
Ver = absCyMax — yMin) + 1 
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Procedura GotoXY 


Wywołanie: GotoXYCxPos ,yPos) 
Argumenty: xPos i yPos są wyrażeniami typu integer. 


Wykonanie procedury GotoXY powoduje ustawienie kursora w ta— 
kiej pozycji, że wyróżnia on znak o współrzędnych CxPos,yPos)2. 
Przyjmuje się, że lewy-górny narożnik ekranu ma współrzędne 
C1,10. Odcięte są liczone od lewej do prawej, a rzędne od 
góry do dołu. Zdefiniowanie okienka graficznego nie ma wpływu 
na sposób wykonania procedury GotoXY. 


Procedura GraphBackground 


Wywołanie: GraphBackgroundC Hue) 
Argumenty: Hue jest wyrażeniem koloru typu integer. 


Wykonanie procedury GraphBackground powoduje określenie kolo- 
ru Łła na podstawie wartości danej reprezentowanej przez wy— 
rażenie Hue. W trybie graficznym dużej rozdzielczości tło 
jest zawsze czarne, a więc wykonanie procedury GraphBack— 
ground nie wywołuje żadnych skutków. W trybie tekstowym 


następuje jedynie zmiana koloru obrzeża ekranu. 


Procedura GraphCoLlorMode 


Wywołanie: GraphColor Mode 


Argumenty: Procedura GraphColorMode jest bezargumentowa. 


Wykonanie procedury GraphColorMode powoduje ustanowienie try— 
bu graficznego średniej rozdzielczości, z możliwością wyś— 
wietlania w kolorach. W ustanowionym trybie lewy-górny punkt 
ekranu ma współrzędne CO,02. Współrzędne zwiększają się 


w prawo i do dołu ekranu. 


Procedura GraphMode 


Wywołanie: GraphMode 


Argumenty: Procedura GraphMode jest bezargumentowa. 


Wykonanie procedury GraphMode powoduje ustanowienie trybu 
graficznego średniej rozdzielczości. Wyświetlanie jest w za— 
sadzie czarno-białe, jednak na kolorowym monitorze RGB jest 
możliwe wyświetlanie w kolorach. W ustanowionym trybie lewy-— 
-górny punkt ekranu ma współrzędne CO,O0). Współrzędne zwięk— 


szają się w prawo i do dołu ekranu. 
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Procedura GraphWtndow 


wywołanie: GraphWindowC xMin,yMin, xMax, yMa>O 
Argumenty: xMin, yMin, xMax i yMax są wyrażeniami typu 


integer. 


Wykonanie procedury GraphWindow powoduje zdefiniowanie okien— 
ka graficznego. Lewy-górny narożnik tego okienka ma współ — 
rzędne CxMin,yMin), a prawy-dolny narożnik ma współrzędne 
CxMax, yMax0. Po wykonaniu procedury GraphWindow wszystkie 
współrzędne są liczone względem zdefiniowanego okienka. Wy- 
Jątek stanowią jedynie współrzędne kursora, które są w 
dalszym ciągu wyznaczane względem ekranu. 


Procedura HtitRes 


Wywołanie: HiRes 


Argumenty: Procedura HiRes jest bezargumentowa. 


Wykonanie procedury HiRes powoduje ustanowienie trybu gra-— 
ficznego dużej rozdzielczości. W tym trybie lewy-górny punkt 
ekranu ma współrzędne CO,O2. Współrzędne zwiększają się w pra— 


wo i do dołu ekranu. 


Procedura HiResColor 


Wywołanie: HiResColorCHueDJ) 
Argumenty: Hue jest wyrażeniem typu integer. 


Wykonanie procedury HiResColor powoduje wybranie koloru o nu- 
merze Hue jako koloru pikseli pierwszego planu, wyświetlanych 
w trybie graficznym dużej rozdzielczości. Wywołanie w tym 
trybie procedury HiResColor powoduje natychmiastową zmianę 


koloru wszystkich pikseli pierwszego planu. 


Procedura Palette 


Wywołanie: PaletteCNum 
Argumenty: Num jest wyrażeniem typu integer. 


Wykonanie procedury Palette powoduje wybranie palety barw 
o numerze Num. Pojęcie palety dotyczy tylko trybu graficzne— 


go średniej rozdzielczości. 
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Procedura Pattern 


Wywołanie: PatternCArr) 
Argumenty: Arr jest nazwą tablicy typu arrayl[O..7]J of byte. 


Wykonanie procedury Pattern powoduje ustalenie wzoru wyko- 
rzystywanego do wypełniania obszaru za pomocą procedury Fill— 
Pattern. Wzór ma postać tablicy 8 * 8 bitów i jest zawarty 

w tablicy Arr. 


Procedura Plot 


Wywołanie: PlotCxXCor „,yCor „,ColorJ 
Argumenty: XCor, yCor i Color są wyrażeniami typu integer. 


Wykonanie procedury -Plot powoduje wyświetlenie jednego pikse— 
la w tym punkcie ekranu, który ma współrzędne CxCor „,yCorJ. 
Wyświetlanie odbywa się w kolorze o numerze Color. Jeśli 
Color=-i, to kolor piksela zostanie określony poprzez wektor 
barw. W trybach średniej rozdzielczości jest brana pod uwagę 
bieżąca paleta barw. W trybie dużej rozdzielczości wyświetla— 
nie odbywa się w kolorze tła albo w kolorze określonym za po— 


mocą procedury HiResColor. 


Procedura PutPtic 


Wywołanie: PutPicClBuffer ,xCor „,yCorJ 
Argumenty: Buffer jest nazwą zmiennej dowolnego typu: xCor 

i yCor są wyrażeniami typu integer. 
Wykonanie procedury PutPic powoduje umieszczenie na ekranie 
prostokątnego obrazu zapamiętanego w zmiennej Buffer. Obraz 
jest umieszczany w taki sposób, że jego lewy-dolny narożnik 
zajmuje w okienku pozycję o współrzędnych CxCor ,yCor. Usta— 
lanie koloru wyświetlanych pikseli odbywa się poprzez wektor 


bar w. 


Procedura TextBackground 


Wywołanie: TextBackgroundC Hue) 
Argumenty: Hue jest wyrażeniem typu integer. 


Wykonanie procedury TextBackground powoduje obranie jako ko— 


loru tła, koloru o wartości określonej przez argument Hue. 
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Procedura łextColor 


Wywołanie: TextColorCHue) 
Argumenty: Hue jest wyrażeniem typu integer. 


Wykonanie procedury TextColor powoduje obranie jako koloru 


znaków, koloru o wartości określonej przez argument Hue. 


Procedura TexMode 


Wywołanie: TextModeC BW40O00D 
TextModeC C403) 
TextModeC BW8OJ 
TextŁModeC COD 
TextMode( LastMode) 
Argumenty: BW40, C40, BWSO i C80 są predefiniowanymi litera— 
łami o wartościach odpowiednio O, 1, 2 i 3. 


Wykonanie procedury TextMode powoduje ustanowienie trybu 
tekstowego: BW4O0 — czarno-białego o 40 znakach w wierszu, 
C40 — kolorowego o 40 znakach w wierszu, BWSO — czarno-białe—: 
go o 80 znakach w wierszu i CS80 — kolorowego o 80 znakach w 
wierszu. Wywołanie procedury TextMode z argumentem LastMode 
powoduje ustanowienie trybu tekstowego jaki obowiązywał przed 
podjęciem wykonywania programu. W każdym przypadku ustanowie— 
nie trybu powoduje wyczyszczenie ekranu i przemieszczenie 


kursora do lewego-górnego narożnika ekranu. 


Funkcja WhereX 


Wywołanie: WhereX 


Argumenty: Funkcja WhereX jest bezargumentowa. 


Rezultatem funkcji WhereX jest dana typu integer. Wartością 
tej danej jest numer kolumny zawierającej znak wyróżniony 


przez kursor. 


Funkcja WhereY 


Wywołanie: WhereY 


Argumenty: Funkcja WhereY jest bezargumentowa. 


Rezultatem funkcji WhereY jest dana typu integer. Wartością 
tej danej jest numer wiersza zawierającego znak wyróżniony 


przez kursor. 
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Procedura Window 


Wywołanie: WindowCxMin,yMin,xMax,yMax0 
Argumenty: xMin, yMin, xMax i yMax są wyrażeniami typu 


integer. 


Wykonanie procedury Window powoduje zdefiniowanie okienka 
tekstowego, którego lewy-górny narożnik ma współrzędne znako— 
we CxMin,yMin), a prawy-dolny narożnik ma współrzędne znakowe 
CxMax,yMax0. Wymaga się, aby tak zdefiniowane okienko miało 


rozmiary co najmniej 2 * © znaki. 


CZEŚĆ IV. TURBO ASSEMBLER 


15. Asembler 


Mimo iż współczesne języki programowania wysokiego poziomu u— 
możliwiają nie tylko wygodne, ale również efektywne programo— 
wanie systemowe, w tych rzadkich przypadkach gdy jest szcze— 
gólnie ważne uzyskanie optymalnego kodu wynikowego, należy 


posłużyć się językiem asemblerowym. 


Przedstawiony tu Turbo Assembler został opracowany przez fir— 
mę Borland International z przeznaczeniem dla mikrokomputerów 
rodziny IBM PC, wyposażonych w mikroprocesory Intel 80x86, 

takie jak 8088, 8086, 80286 itp. Jest on zgodny z asemblerem 
MASM firmy Microsoft Corporation, ale zawiera szereg użytecz— 


nych rozszerzeń i ulepszeń, a ponadto jest znacznie szybszy. 


Asembler jest aktywowany w trybie Masm Czgodność z wersją 
MASM 4.%0, ale za pomocą specjalnych dyrektyw może być prze— 
łączony do trybu Masm51i Czgodność z wersją MASM 5.12 albo 


Ideal Cpreferowana wersja firmy Borland). 


Kompi Lator 


Kompilator Turbo Assembler jest programem wykonywalnym zawar —- 


tym w zbiorze TASM.EXE. Wywołanie go za pomocą dyrektywy 


TASM name 


w której name jest częścią główną nazwy zbioru, powoduje 
skompilowanie zbioru źródłowego name. ASM i utworzenie w 


zbiorze name. OBJ przemieszczalnego modułu wynikowego. 
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Wywołanie kompilatora TASM ma w ogólnym przypadku postać 
TASM /ftteset;/ftleset; ... ;ftleset 

w której każde /tileset jest napisem 
options sources,object,list,cross 


W napisie tym, options jest zestawem opcji dotyczących po— 
Jjedynczego /tleset, każde sources jest zestawem nazw zbiorów 
zawierających moduly źródlowe, a object jest nazwą zbioru, w 
którym będzie umieszczony utworzony przez asembler modul wy-— 
nikRowy. Napis Ltsłt reprezentuje nazwę zbioru, w którym będzie 
umieszczony raport Romplłacjt, a napis cross reprezentuje 
nazwę zbioru, w którym będzie umieszczony raport odwolań 
skRrośnych. Raport ten zawiera zestawienie nazw symbolicznych 
modułu, wyszczególniające miejsca ich zdefiniowania oraz 
numery wierszy, w których wystąpiły odwołania do nich. Ele- 
menty zestawu opcji są zazwyczaj oddzielane spacjami, a 
elementy zestawu nazw zbiorów muszą być oddzielone spacjami 


albo znakami + Cplus). 


Szczegółowy opis zasad posługiwania się kompilatorem TASM 
podano w Dodatku E. W tym miejscu wystarczy podać, że na 
przykład wywołanie go dyrektywą 


TASM /zi testi+test2,test ; /1l greet 


spowoduje utworzenie z modułów źródłowych test1i.asm i 

test2. asm, skompilowanych z opcją /zi, modułu wynikowego 
tŁest.obj, a ponadto utworzenie z modułu źródłowego greet.asm 
modułu wynikowego greet.obj i raportu kompilacji, który 
będzie umieszczony w zbiorze greet.lst Copcja /zi umożliwi 


przyszłe symboliczne uruchamianie programu wykonywalnego). 


Konsolidator 


W celu utworzenia programu wykonywalnego należy przeprowadzić 
konsolidację modułów wynikowych z ewentualnymi modułami bi — 
bliotecznymi. Zadanie to można wykonać za pomocą konsolidato— 
ra Turbo Link firmy Borland. 


Konsolidator Turbo Link jest programem wykonywalnym zawartym 
w zbiorze TLINK. EXE. Jego wywołanie dyrektywą 


TLINK name 
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w której name jest częścią główną nazwy zbioru, powoduje 
skonsolidowanie modułu wynikowego zawartego w zbiorze 


name.OBJ i utworzenie programu wykonywalnego name.EXE. 


Wywołanie konsolidatora ILINK ma w ogólnym przypadku postać 
TLINK options objects,exec,map, lLtbrartes 


w której options jest zestawem opcji, objects jest zestawem 
nazw zbiorów zawierających moduły wynikowe, exec jest nazwą 
zbioru, w którym będzie umieszczony program wykonywalny, map 
jest nazwą zbioru, w którym będzie umieszczona mapa konsoli -— 
dacji, a łtbdrartes jest zestawem nazw zbiorów zawierających 
biblioteki modułów wynikowych Cmoduły pochodzące z biblio— 
tek wchodzą do programu wykonywalnego tylko wtedy, gdy wystą- 
pity odwołania do nich). Elementy zestawu opcji są zazwyczaj 
oddzielane spacjami, a elementy zestawu nazw zbiorów muszą 


być oddzielone spacjami albo znakami + Cplus). 


Przykład Pierwszy program 


Zgodnie z przyjętą tradycją, wykonanie pierwszego programu 
powinno zakończyć się wyprowadzeniem napisu Hello world. Taki 
program napisany w języku Turbo Assembler i przewidziany do 
wykonania w systemie DOS, ma postać 


Data SEGMENT 
Greet DB "Hello world” ,13,10,'$%* 
Data ENDS 


ASSUME CS: Code, DS: Data 


Code SEGMENT 

Start: 
mov ax,Data ; załadowanie numeru segmentu 
mov ds,ax ; do rejestru DS 
mov dx,OFFSET Greet  ; wyprowadzenie napisu 
mov ah,9 
int £1ih 
mov al,O ; powrót do systemu 
mov ah,4ch 
int £1h 

Code ENDS 


Stack_ SEGMENT SIACK 
DB 1OOh DUPC?D ; Stos o rozmiarze 256 bajtów 
StŁack_ ENDS 


END Start adres początku programu 
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Przytoczony program składa się z następujących części: 


segmentu danych 


Data SEGMENT 


Data ENDS 
segmentu rozkazów 


Code SEGMENT 


Code ENDS 
segmentu stosu 
StŁack_ SEGMENT STACK 
Stack_ ENDS 
oraz z dyrektyv ASSUME i END. 
Segmenty wyznaczają podział programu na logicznie rozłączne 


części, w których zgrupowano dane i rozkazy oraz zarezerwo— 


wano miejsce dla stosu. 


Dyrektywa ASSUME deklaruje, że podczas wykonywania tych roz— 
kazów programu, które występują po ASSUME, a niejawnie odwo— 
łują się do wymienionych w niej rejestrów procesora Ctu CSi 
DS, podane rejestry będą zawierać numery segmentów o wymie- 


nionych nazwach Ctu Code i DatavV. 


Dyrektywa END kończy zapis tekstu programu i poleca, aby jego 
wykonywanie rozpoczęło Się od rozkazu opatrzonego etykietą 


podaną w dyrektywie Ctu Start). 


Ponieważ załadowanie rejestru CS numerem segmentu, w którym 
znajduje się rozkaz opatrzony etykietą wymienioną w dyrek— 
Ływie END, jest wykonywane przez system operacyjny, pozos— 


taje jedynie załadować rejestr DS. Odbywa się to za pomocą 


rozkazów 
mov ax,Data ; umieść w AX numer segmentu Data 
mov ds,ax +; przenieś AX do DS 


Wykonanie tej czynności "na raty' wynika stąd, że w proceso— 
rze BOx86 nie ma rozkazu umożliwiającego bezpośrednie zała— 
dowanie stałą rejestru DS. 

Po załadowaniu rejestrów, następuje dwukrotne odwołanie się 
do funkcji systemu DOS: najpierw w celu wyprowadzenia napisu 
Hello world, a następnie w celu zakończenia wykonywania pro-— 


gramu. W każdym z tych przypadków następuje wykonanie funkcji 
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systemowej realizowanej przez przerwanie programowe spowodo— 


wane wykonaniem rozkazu int 21h. 


Przed wykonaniem przerwania, w rejestrach procesora Są 


umieszczane następujące parametry 


v celu wyprowadzenia napisu Hello world 
w AH numer funkcji 'wyprowadź napis'': mov ah,9 


w DX przemieszczenie napisu wzglęcem DS: mov dx,OFFSET Greet 


w celu zakończenia wykonywania programu 
w AH numer funkcji "powrót do systemu": mov ah,4dch 


w AL kod powrotu: mov al,O 


(co można by wyrazić prościej, rozkazem: mov ax,4CcOOhD. 


W celu przetworzenia przytoczonego programu do postaci 


wykonywalnej należy na przykład 


— umieścić go w zbiorze GREET. ASM, 

- skompilować, wydając dyrektywę 
tasm greet 

— skonsolidować, wydając dyrektywę 
tlink greet 


Po wykonaniu tych czynności, które powodują utworzenie zbioru 
GREET.EXE, program można wykonać, wprowadzając wiersz składa— 
jący Się z napisu greet (w systemie DOS małe i duże litery 
występujące w nazwach zbiorów Są nieodróżnialneDJ. 


15.1. Procesory 


Najbardziej rozpowszechnionymi procesorami mikrokomputerów 
IBM PC i PCZXI są Intel 8088 i Intel 6086. Procesory te są 
zainstalowane w ponad 10 milionach komputerów zgodnych z IBM 
PC i chociaż minęło już ponad 1O lat od ich wprowadzenia na 
rynek, wciąż na nim dominują. 


Typowym reprezentantem rodziny mikroprocesorów Intel 80x86 
jest mikroprocesor 8086. Jego lista rozkazów jest identyczna 
z listą rozkazów mikroprocesora 8088 i stanowi podzbiór list 
rozkazów pozostałych mikroprocesorów wymienionej rodziny. Z 
tego względu, ten właśnie mikroprocesor obrano za podstawę 


wykładu o programowaniu w języku Turbo Assembler. 
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Przestrzeń adresowa mikrokomputera z mikroprocesorem 8086 ma 
rozmiar 1 MB. Dostęp do dowolnego z 1,048,576 bajtów pamięci 
odbywa się za pomocą adresów 20-bitowych składanych z części 
nazywanych nunerem segmentu i przemieszczeniem v segmencie. 
Utworzenie adresu pamięci polega na pomnożeniu numeru 


segmentu przez 16 i dodaniu do niego przemieszczenia. 


W Łym sensie, adres przedstawiony umownie jako 
segment:o/ffset 


jest w istocie adresem bajtu o numerze 


segment % 16 + offset 


Ponieważ posługiwanie się adresami składającymi się z 16- 
bitowego numeru segmentu i 16-bitowego przemieszczenia, 
bardzo wydłużyłoby kod rozkazów maszynowych, stosuje się 
uproszczenie polegające na tym, że w większości rozkazów 
domniemywa się, że część segmentowa rozkazu znajduje się w 


jednym z rejestrów segmentowych. 


Dzięki takiemu domniemaniu, kody rozkazów ulegają znacznemu 
skróceniu, ale użycie rozkazu w którym zastosowano domniema— 
nie, musi być poprzedzone odpowiednim załadowaniem rejestrów 


segmentowych. 


Jeśli program jest krótki, a więc wtedy, gdy ani jego rozkazy 
ani dane nie zajmują więcej niż 64 KB pamięci, ładowanie 
rejestrów może być jednokrotne i jest wykonywane zazwyczaj 
bezpośrednio po podjęciu wykonywania programu. W przeciwnym 
razie może zaistnieć potrzeba wielokrotnego ładowania rejest— 
rów segmentowych. W mikroprocesorze 80386 uciążliwość tę 
praktycznie wyeliminowano, wprowadzając możliwość posługi wa— 


nie się segmentami o rozmiarze do 4 GB. 


Klasyfikacja rejestrów 


Ogół rejestrów mikroprocesora 8086 można podzielić na 
następujące grupy 
rejestr znaczników: FL 
rejestry uniwersalne: AX, BX, CX, DX 
SI, DI, BP, SP 
rejestr licznika: IP 
rejestry segmentowe: CS, DS, ES, SS 
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Każdy z wymienionych rejestrów jest 15-bitowy. Niezależnie od 
tego, rejestr FL może być traktowany jak zespolenie 16 re- 

jestrów 1-bitowych, a każdy z rejestrów AX, BX, CX i DX może 
być traktowany jako zespolenie pary rejestrów S-bitowych Cna 
przykład bardziej znacząca połowa rejestru AX jest rejestrem 


AR, a mniej znacząca jest rejestrem AL>, tzn. 


Niezależnie od wprowadzonego podziału, rejestry BX i BP będą 
nazywane bazowvymt, a rejestry SI i DI będą nazywane 


tndekRsovymt. 


Wartości początkowe rejestrów 


Należy przyjąć, że bezpośrednio po podjęciu wykonywania pro— 
gramu wywołanego przez interpreter poleceń, wartości począt— 
kowe rejestrów uniwersalnych są nieokreślone. Wyjątek doty— 

czy jedynie rejestru SP. W rejestrze tym jest bowiem umiesz— 


czana liczba bajtów stosu zarezerwowanego przez program. 


Zawartości rejestru licznika i rejestrów segmentowych są 
określone jednoznacznie. Jeśli program zapisany w języku 
Turbo Assembler zawierał dyrektywę END, w której wystąpiła 
etykieta rozkazu Cnp. Start», to rejestr CS jest ładowany 
numerem segmentu, w którym znajduje się ten rozkaz CSEG 
Start, a rejestr IP jest ładowany przemieszczeniem w 
segmencie tego właśnie rozkazu COFFSET Start». Dzięki temu, 
wykonywanie programu rozpocznie się od rozkazu opatrzonego 
podaną etykietą. W tym właśnie momencie, w rejestrze DS i ES 
będzie znajdować się numer £S6-bajtowego segmentu PSP 
umieszczanego w pamięci operacyjnej tuż przed pierwszym 
bajtem programu, a w rejestrze SS będzie znajdować się numer 


segmentu przeznaczonego na stos. 
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Uwaga: W przypadku gdy w programie występuje dyrektywa 
END bez etykiety, początkowe zawartości wymienionych 


rejestrów są następujące 
DS = ES = SEG PSP; 
CS DS + iOh; 
IP=O 


W Łakiej sytuacji poprawne wykonanie programu nie jest na 


ogół możliwe. 


Rejestr znaczników 


W rejestrze znaczników są przechowywane dane o stanie proce— 
sora oraz o wynikach wykonania niektórych rozkazów. Spośród 
16 bitów tego rejestru jedynie 9 ma ustaloną interpre— 

tŁację 


— Overflow (bit nadmiaru) 

— Direction Cbit kierunku) 

- Interrupt Cbit przerwania) 

— Trap Cbit pułapkiDJ 

Sign Cbit znaku) 

— Zero Cbit zera) 

— Auxiliary Cbit przeniesienia tetradyJ 
— Parity Cbit parzystości) 

— Carry Cbit przeniesienia) 


NANU>NAHHUO 
l 


W chwili rozpoczęcia wykonywania programu wywołanego przez 
interpreter poleceń, I=1 oraz T=O. Wartości pozostałych bitów 


są nieokreślone. 
Znaczenie wymienionych bitów po ich ustawieniu na wartość 1 
jest następujące: 


O — wynik operacji nie mieści się w rejestrze, 


D — operacje na łańcuchach znaków będą wykonywane w 
kierunku malejących adresów, 


I - procesor reaguje na przerwania, 

T - po każdym wykonaniu rozkazu nastąpi wpadnięcie w 
pułapkę, 

S -— najbardziej znaczący bit rezultatu operacji ma 
wartość 1. 

Z — rezultatem operacji jest dana o wartości zero, 

A — wykonanie operacji spowodowało wystąpienie przenie— 


sienia z najmniej znaczącej tetrady bitów rezultat!:. 


441 


P - 8 najmniej znaczących bitów rezultatu stanowi daną o 
parzystej liczbie bitów 1, 


C -— wykonanie operacji spowodowało wystąpienie 
przeniesienia. 


Rejestry uniwersalne 


Każdy z rejestrów uniwersalnych może przechowywać dane 16-— 
bitowe. Rejestry uniwersalne AX, BX, CX i DX mogą przecho 
wywać pary danych 8-bitowych. 


AX 

Rejestr AX jest akumulatorem. Służy on najczęściej do 
wykonywania operacji arytmetycznych, logicznych i przesłań. 
Operacje na tym rejestrze są optymalizowane i Są zazwyczaj 
wykonywane szybciej niź na pozostałych rejestrach. 


Przykłady 
mov ax,1i3 ; umieść w AX daną o wartości 13 


mov al,O , wyzeruj dolny bajt rejestru AX 
mov ax,[Fix] ; załaduj daną spod adresu DS:Fix 


BX 
Rejestr BX jest rejestrem bazowym. Zawiera zazwyczaj prze— 
mieszczenie względem początku segmentu, którego numer znaj— 


duje się w obranym rejestrze segmentowym Cprzez domniemanie 
w DSO. 


Przykład 

mov bx,3 

mov ax,[bx] ; załaduj daną spod adresu DS: 3 
CX 


Rejestr CX jest rejestrem Licznikowym. Zawiera zazwyczaj 


licznik, określający liczbę wykonań grupy instrukcji. 


Przykład 
xor bx,bx ; wyzeruj rejestr BX 
Mov cx,S5 ; ustaw licznik 
Again: 
mov [word ptr bx],13 ; traktuj BX jako adres słowa 
inc bx : zwiększ BX o 1 


loop Again : wykonaj według licznika CS razy) 
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DX 
Rejestr DX jest rejestrem wykorzystywanym w operacjach mno— 
żenia i dzielenia oraz jedynym rejestrem, w którym można po— 


dać adres portu w rozkazach wejścia-wyjścia. 
Przykład 


mov ax,300 
mul bx , umieść w DX-AX iloczyn AX %* BX 


SI i DI 

Rejestry SI i DI są rejestrami tndeksowymt. Zawierają one 
zazwyczaj przemieszczenia względem początku wybranych seg— 
mentów pamięci operacyjnej i tym samym umożliwiają wykony— 


wanie operacji na ciągach danych, najczęściej znakowych. 


Przykład 


mov ax,OFFSET String 
mov Ssi,ax 


cld ; wyzeruj znacznik kierunku CDFDJ 
mov cx,-1i ; ustaw licznik bajtów niezerowych 
Again: 
mov al,[(si] ; załaduj bajt z DS: SI 
inc cx , zwiększ CX 
inc si ,; zwiększ SI 
and al,al : zbadaj czy zero 
; powtórz _ośli nie zero 


jnz Again 


BP 

Rejestr BP jest rejestrem bazowym. Podobnie jak rejestr BX 
zawiera on-zazwyczaj przemieszczenie względem początku seg— 
mentu, z ta różnicą, że przez domniemanie dotyczy on segmentu 


stosu wskazywanego przez daną przypisaną rejestrowi SS. 


Przykład 

mov bp,Sp ; przenieś SP do BP 

push ax ; umieść na stosie daną z AX 

add ax,[bp-2] ; dodaj do AX daną ze szczytu stosu 
SP 


Rejestr SP jest wskaźnikiem stosu. Zawiera on przemieszcze— 
nie w segmencie określonm przez SS, najmniej znaczącego 


bajtu danych, ostatnio odesłanego na ten stos. 
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Przykład 


push ax ; niejawne zmniejszenie SP o 2 


IP 

Rejestr IP jest licznikiem rozkazów. Zawiera on przemiesz— 
czenie w segmencie określonym przez CS, rozkazu który będzie 
wykonywany jako następny. Każde wykonanie rozkazu procesora 
powoduje niejawne zwiększenie licznika IP o liczbę bajtów, 
które służą do reprezentowania danego rozkazu. Wyjątek od 

tej zasady dotyczy rozkazów przejścia (patrz dalej) wymienio- 


nych w opisie rejestru CS. 


Przykład 


mov ax,1 
mov cx,5 
Again: 5 
add ax,ax ; wyznaczenie liczby 2 

loop Again : nieciągła zmiana IP 


Rejestry segmentowe 


Rejestrami segmentowymi są CS, DS, ES i SS. Zawartość każdego 
z nich, w połączeniu z przemieszczeniem w segmencie, wyznacza 
adres bajtu pamięci operacyjnej. Jeśli przyjąć, że seg repre- 
zentuje zawartość rejestru segmentowego, a off reprezentuje 


przemieszczenie, to adresem tym jest seg:o/f/. 


Uwaga: Ze względu na przyjęty sposób wyznaczania adresu 
Cprzesunięcie seg i dodanie o//D, każdy adres może być 
przedstawiony na wiele sposobów. W szczególności, adresem 
tego samego bajtu jest (wyrażonym w zapisie szesnastkowym) 
40:6C i 46:0C. Z tego względu jest niekiedy wygodnie mówić o 
adresie znormaltzowanym, Ło jest takim, w którym przemiesz— 


czenie jest liczbą mniejszą niż 16. 


Rejestr CS 

Rejestr CS zawiera numer segmentu, z którego spod adresu 
CS:IP zostanie pobrany i wykonany następny rozkaz. Początkowa 
wartość rejestru CS i IP jest ustawiana na podstawie numeru 
segmentu i przemieszczenia, wyznaczonych dla etykiety wymi e— 
nionej w dyrektywie END. Zmiana zawartości rejestru CS może 
wystąpić jedynie na skutek wykonania takich m.in. rozkazów 
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Jak CALL Cwywołanie procedury), JMP (skok do innego segmen— 
tu), RET Cpowrót z procedury. i INT Cprzerwanie programowe). 


Przykład 


ASSUME CS: Codel 


Codei SEGMENT 

Start: ; Łu CS = SEG Codeli, IP = OFFSET Start 
jmp far ptr Lab ; "daleki" skok do Lab 

Codei ENDS 


ASSUME CS: Code2 
Code2 SEGMENT 


Lab: ; Łu CS = SEG Codeć, IP = OFFSET Lab 
mov ax,4COOh ; kod powrotu O 
int 21h 


Code2 ENDS 


Stack_ SEGMENT STACK 
DB 1OOH DUPC?D2 
Stack_ ENDS 


END Start 


Rejestr DS 
Rejestr DS zawiera numer segmentu danych, a więc tego seg— 
mentu, do którego przez domniemanie odwołuje się większość 


rozkazów współpracy z pamięcią. 
Przykład 


Data SEGMENT 
Fix DB 13 
Data ENDS 


ASSUME CS: Code, DS: Data 


Code SEGMENT 

Start: ;: Łu DS = SEG PSP 
mov ax,Data 
mov ds,ax 
mov al,[Fix] ; Łu DS = SEG Data 
mov ah,4ch 
int 21h 

Code ENDS 


Stack_ SEGMENT STACK 
db 1OOH DUPC?D 
StŁack_ ENDS 


END Start 


Rejestr ES 
Rejestr ES zawiera numer segmentu dodatkowego, a więc Łego 
segmentu, do którego przez domniemanie odwołują się niektóre 


rozkazy do wykonywania operacji na łańcuchach danych. 
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Przykład 


DataSrc SEGMENT 
Src DB 13 
DataSrc ENDS 


DataDst SEGMENT 
Dst DB ? 
DataDst ENDS 


ASSUME CS: Code, DS: DataSrc ,ES: DataDst 


Code SEGMENT 
Start: 
mov ax,DataSrc 
mov ds,ax 
mov ax,DataDst 
mov es,ax 
mov Ssi,OFFSET Src 
mov di,OFFSET Dst 
movsb ; przesłanie bajtu z DS:SI do ES:DI 
mov ds,ax 
mov al,[DstJ 
mov ah,4ch 
int 21h 
Code ENDS 


Stack _ SEGMENT STACK 
DB 1OOh DUPC?) 
Stack_ ENDS 


END Start 


; pobranie przesłanego bajtu 


Rejestr SS 

Rejestr SS zawiera numer segmentu stosu, a więc tego segmen— 
tu, którego dotyczą wszystkie rozkazy współpracy ze Sstosem, 
m. in. push Codłóż na stosie) i pop Czdejmij ze stosu), a 
także typowe rozkazy odwołujące się do rejestru BP. 


Przykład 
ASSUME CS: Code 


Code SEGMENT 

Start: ; Łu SS = SEG Stack_, SP = 1OOh 
mov ax,7 
push ax 
mov ax,5 
push ax 
mov bp,sp 
mov al,l[bp+2]j + pobierz 7 
add al,[bpj : dodaj 6 
mov ah,4ch 
int 2ih 

Code ENDS 


Stack_ SEGMENT STACK 
DB 1OOh DUPC?) 
Stack_ ENDS 


END Start 
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Prefiksowanie 


Konsekwencją zrezygnowania, w większości rozkazów odwołują— 
cych się do pamięci, z posługiwania się jawnym numerem seg— 
mentu, jest znaczne skrócenie kodu tych rozkazów. Dodatkowe 
jego skrócenie osiągnięto dzięki ustaleniu, że dla konkretne— 
go rozkazu, wymagany numer segmentu będzie znajdował się w 


ustalonym rejestrze. 


W tŁych rzadkich przypadkach, gdy przyjęte przyporządkowanie 
rejestrów segmentowych rozkazom okazuje się niewygodne, można 
je zmienić, poprzedzając adres rozkazu prefiksem mającym 
postać nazwy rejestru segmentowego. Użycie takiego prefiksu 
Ćwydłużającego kod rozkazu o jeden bajt) powoduje, że 
domniemany rejestr segmentowy jest zastępowany rejestrem 


segmentowym określonym przez prefiks. 


Posługując się prefiksami należy pamiętać o kilku 


ograniczeniach 


— użycie prefiksu dotyczy tylko argumentów rozkazu (nie 
można zatem spowodować pobierania rozkazów względem innego 
rejestru niż CS); 

- nie można spowodować, aby rozkazy do wykonywania operacji 
na stosie (push i pop) były realizowane za pomocą odwołania 
do innego rejestru niż SS; 

— nie można spowodować, aby występujące w niektórych 
rozkazach łańcuchowych Cmovs, cmps, Scas, stos) odwołania do 
rejestru ES były zastąpione odwołaniami do jakiegokolwiek 


innego rejestru. 


Przykład 


ASSUME CS: Code 


Code SEGMENT 
Fix DB 13 
Start: 
mov al,([cs:Fixl +: adresowanie względem CS 
mov ah,4ch 
int 21h 
Code ENDS 


Stack_ SEGMENT STACK 
DB 10O0h DUPC?D 
Stack_ ENDS 


END Start 
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Ponieważ etykieta Fix znajduje się w segmencie, który daje 
się zaadresować tylko przez rejestr CS, użycie prefiksu cs 


jest zbyteczne, ponieważ rozkaz 
mov al,[(Fix] 


i Łak zostałby zastąpiony podanym rozkazem. 


Tryby adresowania 


W mikroprocesorze Intel 80x86 istnieją trzy tryby adresowania 
adresowanie bezpośrednie 


© 
© adresowanie rejestrowe 
© 


adresowanie pamięci: bezpośrednie i pośrednie. 


Adresowanie bezpośrednie 


Adresowanie bezpośrednie wiąże się z argumentami rozkazów, 
które są wyrażeniami stalymi. Wartości tych wyrażeń mogą być 


wyznaczone przed podjęciem wykonywania programu. 


Przykłady Adresowanie bezpośrednie 


mov ax,20 ; załadowanie rejestru AX daną o war— 
tości 20 

załadowanie rejestru AX daną o 
wartości równej przemieszczeniu 
adresu zmiennej Fix 

wygenerowanie przerwania programo—- 
wego o numerze e1ih 


mov ax,OFFSET Fix 


int 21h 


vo we we W w: W 


Adresowanie rejestrowe 


Adresowanie rejestrowe wiąże się z argumentami rozkazów, 


które znajdują się bezpośrednio w rejestrach procesora. 


Przykłady Adresovanie rejestrowe 


inc si ; wykonanie operacji SI := SI + 1 
mov ax,bx ; skopiowanie danej przypisanej 
+: rejestrowi BX do rejestru AX 


Adresowanie pamięci 


Adresowanie pamięci operacyjnej może być bezpośrednie albo 
pośrednie. W rozkazach adresowania bezpośredniego występują 
symbole reprezentujące adresy zmiennych i rozkazów. W rozka- 
zach adresowania pośredniego występują ponadto odwołania do 
rejestrów bazowych i indeksowych. W każdym przypadku mają 


miejsce niejawne odwołania do rejestrów segmentowych. 
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Adresowanie bezpośrednie zmiennych 


Rozkazy adresowania bezpośredniego dotyczące zmiennych, 
określają ich adresy za pomocą napisów o postaci ogólnej 

[cd] 
albo 

d 
w której d jest wyrażeniem stałym zawierającym symbol zmien— 
nej i określającym przemieszczenie adresu zmiennej w segmen— 


cie. 


Adresowanie bezpośrednie rozkazów 


Rozkazy adresowania bezpośredniego dotyczące rozkazów (skoki 
i wywołania procedur) określają ich adresy za pomocą napisów 
o postaci ogólnej 

ad 
w której da jest wyrażeniem stałym. 


Przykłady Bezpośrednie adresowanie pamięci 


mov ax,[Fix] ; pobranie danej przypisanej zmiennej Fix 
do rejestru AX 
call Fun ; wywołanie procedury Fun 


Adresowanie pośrednie 


Rozkazy adresowania pośredniego określają adresy zmiennych i 

rozkazów posługując się rejestrami bazowymi CBX, BP> i indek— 
sowymi CSI, DID. W ogólnym przypadku adres może być wyrażony 

za pomocą jednego z 156 następujących napisów 


[bx] lad + bx] 
(bpj [ad + bp] 
[sij [d + sil 
[di] Cd + di] 
[bx + Si] [2 + bx + SIij 
(bx + dil [c + bx + di] 
(bp + sil [ad + bp + si] 
(bp + di] (dd + bp + di] 


w których dc reprezentuje wyrażenie stałe. 


Przykłady Pośrednie adresowanie pamięci 


pobranie do rejestru AX danej przypisa— 
nej zmiennej, której adres znajduje się 
w rejestrze BX 

skok do rozkazu, którego adres znajduje 
się w rejestrze SI 


mov ax,Llbx] 


jmp [sij 


w. we we Wo 
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Wyznaczenie adresu efektywnego, bezpośredniego albo pośred- 
niego, polega na zsumowaniu wszystkich jego składowych, a 
więc zarówno określonych przez wyrażenie Stałe da, jak i tych, 
które znajdują się w podanych albo domniemanych rejestrach 


procesora. 
Przykład Wyznaczenie adresu efektywnego 
mov bx,5 


mov Si,=7 
mov ax,[(Fix + bx + si + 82] 


; BX 
; SI 


5 
—7 


Ponieważ BX + SI + 2 = O, więc wykonanie przytoczonego rozka- 
zu adresowania pośredniego ma taki sam skutek jak wykonanie 


rozkazu adresowania bezpośredniego 


mov ax,[Fix] 


Uwaga: Jeśli nie będzie to podane jawnie w opisach rozkazów 
Cpor. punkt 15.3), to należy przyjąć, że adresowanie pośrednie 
z użyciem rejestru BP dotyczy segmentu o numerze znajdującym 
się w rejestrze SS, a adresowanie pośrednie z użyciem re- 
jestrów BX, SI i DI dotyczy segmentu o numerze znajdującym 
się w rejestrze DS. 


Reprezentowanie adresów 


Zapisując adresy odwołujące się do etykiet zmiennych i roz— 
kazów należy mieć na względzie zapewnienie zgodności odwoła— 
nia i deklaracji. W szczególności, jeśli Fix jest etykietą 


zmiennej dwubajtowej, np. 
Fix DW 258 


to w celu załadowania rejestru AX daną słowową spod adresu 


Fix można posłużyć się rozkazem 
mov ax,[FixJ 


ale w celu załadowania rejestru AL daną bajtową spod adresu 
Fix należy poddać adres słowowy Fix poddany konwersji na ad— 
res bajtowy. 


Ponieważ operatorem umożliwiającym dokonanie takiej konwersji 
jest BYTE PIR, poprawny rozkaz odwołujący się do mniej zna- 


czącego bajtu zmiennej Fix przybiera postać 


mov al,[byte ptr Fix] 


450 


W ogólnym przypadku, części adresowe rozkazów mogą być więc 
tworzone nie tylko z symboli i nazw rejestrów, ale mogą za— 


wierać również złożone wyrażenia i prefiksy. 


Istnieje dość znaczna dowolność sposobu zapisywania rozkazów 
odwołujących się do pamięci. W szczególności są poprawne i 


równoważne wszystkie następujące rozkazy 


mov ax,[word ptr ds : bp + Si + 2] (wersja preferowana) 
mov ax,ds : word ptr [bp + si + 2] 
mov ax,word ptr (£ ds : bp + Si + 2) 
mov ax,ds : [word ptr bp + si + ZJ 


mov ax,ds : [word ptr bpllsi + 2] 


15.2. Programy 


Każdy program zapisany w języku Turbo Assembler składa się z 


wierszy o postaci 


labeł dtrecttve comment 
albo 


labeŁł : comnand comment 


w których łabeł jest etykietą, dtirecttve i command są odpo— 
wiednio: dyrektywą albo rozkazem, a comnent jest komentarzem. 
Etykieta poprzedzająca rozkaz, wraz z oddzielającym ją od 
niego znakiem : Cdwukropek0, może być zapisana w osobnym 


wierszu. 


Komentarz jest ciągiem ignorowanych znaków rozpoczynającym 
się od znaku ; Csśredniko. Wystąpienie etykiety oraz komenta— 
rza nie jest wymagane. Nie jest etykietą identyfikator od 
którego zaczyna się ostatni wiersz dyrektywy strukturalnej. 


Przykład Dyrektywy t rozkazy 
ASSUME CS: Code 


Code SEGMENT 
Fix DB 13 
Start: 
mov ax,Code 
mov ds,ax 
mov al,[Fix] 
mov ax,4CcO0h 
int Zih 
Code ENDS 


StŁack_ SEGMENT STACK 
DB 1OOh DUPC?2 
Stack_ ENDS 


END Start 


etykieta Code 

dyrektywa DB opatrzona etykietą 
etykieta Start 

odwołanie do etykiety Code 
rozkaz nie opatrzony etykietą 
odwołanie do etykiety Fix 
rozkaz nie opatrzony etykietą 
rozkaz nie opatrzony etykietą 
odwołanie do etykiety Code 


początek dyrektywy strukturalnej 
dyrektywa nie opatrzona etykietą 
koniec dyrektywy strukturalnej 


odwołanie do etykiety Start 
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Słowa kluczowe 


Słowem kluczowym jest napis o ustalonym znaczeniu, od którego 
rozpoczyna się każda dyrektywa oraz każdy rozkaz. Słowa klu- 
czowe zapisane za pomocą małych i dużych liter Cnp. mov, MOV, 


Mov> Są nieodróżnialne. 


Wykaz słów kluczowych języka Turbo Assembler jest dość ob— 
szerny. Większość z nich ma postać ciągu literowo-cyfrowego 
zaczynającego się od litery, np. 

ASSUME, CS, SEGMENT, DB, mov, int, STACK, ENDS, END 


ale niektóre z nich, np. 


MODEL, %LIST 


zaczynają się od znaku . Ckropkao albo % CprocentoV. 


Etykiety 


Etykietą jest identyfikator opatrujący dyrektywę albo rozkaz. 
Etykieta składa się z ciągu liter i cyfr rozpoczynającego się 
od litery. Literami wchodzącymi w skład etykiety mogą być ma- 
łe i duże litery alfabetu angielskiego oraz znaki 


© $ ? 


zabrania się, aby etykieta miała postać słowa kluczowego 


oraz aby Składała się wyłącznie ze znaku ? CpytajnikO> albo 
$ CdolarD. 


Ogół etykiet można podzielić na 


etykiety stałych, np. 
Fatal EQU 13 


etykiety zmiennych, np. 
Value DB —13 


etykiety rozkazów, np. 


SŁart: mov ax,1i3 


etykiety segmentów, np. 
Data SEGMENT 


ENDS 
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— etykiety procedur, np. 
Fun PROC 


ENDP 


- etykiety makrodefinicji, np. 
Shift MACRO ... 


ENDM 


Jeśli etykieta występuje przed rozkazem, to oddziela się ją 
od niego znakiem : CdwukropekD. W każdym module źródłowym 
dana etykieta może wystąpić tylko jeden raz. Nic jednak nie 
stoi na przeszkodzie wystąpienia wielu odwołań do niej. 


Przykład Etykiety 


Code SEGMENT 


Plus DB '+' ,; etykieta Plus 
Minus DB '-—' ; etykieta Minus 
Start: 
mov al,[Plusj : odwołanie do etykiety Plus 


sub al,([(Minus] ; odwołanie do etykiety Minus 
mov ah,4ch 
int 21h 

Code ENDS 


W segmencie Code występują etykiety Plus i Start. Nie jest 
etykietą symbol Code występujący przed słowem kluczowym ENDS. 


Etykiety lokalne 


znaczne ułatwienie programowania zapewniają etykiety lokalne. 
Zasięg każdej z nich ogranicza się do tego fragmentu modułu 
źródłowego, który jest zawarty między kolejnymi nielokalnymi 
etykietami rozkazów. Dzięki temu jest możliwe posługiwanie 
się w Łym samym module źródłowym, wieloma nie kolidującymi 
ze sobą, mimo iż identycznymi, etykietami. 


Warunkiem posłużenia się etykietami lokalnymi jest użycie 
dyrektywy LOCALS. W jej zasięgu, każda etykieta rozpoczyna— 
Jjąca się od pary znaków © Cat)» jest uważana za lokalną. Zin— 
tŁerpretowanie dyrektywy NOLOCALS powoduje zaniechanie reago— 
wania na etykiety lokalne. W chwili rozpoczęcia kompilacji 
domniemywa się dyrektywę NOLOCALS. 
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Przykład Użycie dyrektyw Lokalnych 


LOCALS 
mov ax,lAlpha]j 
Labi: 
emp ax,[Beta] 
jg ©©Skip 
inc bx 
QeSkip: 
cemp ax, [Gamma] 
Lab2: 
jg ©©Skip ; skok w przód 
inc bx 
aQSkip: 
mov [Delta] ,bx 
Lab3: 
NOLOCALS 


zasięgiem pierwszej etykiety ©©Skip jest fragment programu 
między etykietami nielokalnymi Labi i Lab2. Zasięgiem dyrek— 
tywy LOCALS jest fragment programu między tą dyrektywą, a 
wierszem zawierającym dyrektywę NOLOCALS. 


Literały 


Literały są nazwami stałych. Dzielą się na arytmetyczne, 
znakowe i łańcuchowe. Literały arytmetyczne dzielą się na 
całkowite i rzeczywiste. Literały całkowite dzielą się na 


dziesiętne, szesnastkowe i dwójkowe. 
Obowiązują następujące ustalenia 


— literał dziesiętny składa się z ciągu cyfr dziesiętnych; 
— literał szesnastkowy składa się z ciągu cyfr szesnastko— 
wych zakończonego literą H Cpierwszym znakiem literału musi 
być cyfra dziesiętna; cyfry o wartości większej niż 9 są za— 
pisywane za pomocą liter od A do FD; 

— literał dwójkowy składa się z ciągu cyfr dwójkowych 
zakończonego literą B; 

— literał zmiennopozycyjny składa się z części całkowitej, 
kropki, części ułamkowej, litery E i wykładnika; część 
całkowita i ułamkowa składa się z ciągu cyfr dziesiętnych, 
a wykładnik składa się z takiego ciągu, ewentualnie poprze— 
dzonego znakiem + Cplus> albo — Cmtinus). 

— literał znakowy składa się z widocznego znaku kodu ASCII, 
ujętego w cudzysłowy albo w apostrofy; 
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- literał łańcuchowy składa się z ciągu widocznych znaków 
kodu ASCII, ujętego w cudzysłowy albo w apostrofy; 
- małe i duże litery występujące w literałach arytmetycznych 


są nieodróżnialne; 


Przykłady 
30 - literał całkowity dziesiętny 
ieh — literał całkowity szesnastkowy 
11110b  - literał całkowity dwójkowy 
3.0E+1  - literał rzeczywisty 
"ze" — literał znakowy 
"Hello" -— literał łańcuchowy 


Pierwsze cztery literały reprezentują dane o wartości 30. 


Rozkazy 


Rozkazem jest napis określający akcję procesora. Rozkazy 
dzielą się na bezargumentowe, jednoargumentowe i dwuargumen— 
Łowe. Stosownie do tego podziału, są zapisywane w jednej z 


następujących postaci 


actton +; np. movsb 
action arg ; np. int 21h 
action dst,src ; np. mov ax,13 


Mnemoniki rozkazów są słowami kluczowymi i jako takie mogą 
być zapisywane zarówno za pomocą małych jak i dużych liter. Ww 
rozkazach dwuargumentowych, pierwszy argument jest nazywany 
docelowym, a drugi jest nazywany źródlowym. Niektóre rozkazy 
Cnp. movsb)> mają argumenty domniemane. W takim przypadku 
podział na argumenty źródłowe i docelowe wynika z opisu 


rozkazu. 


W chwili rozpoczęcia wykonywania programu, za rozkazy po— 
prawne uznaje się jedynie rozkazy mikroprocesora Intel 8086 
i koprocesora 8087. Akceptowanie rozkazów innego mikropro— 
cesora wymaga posłużenia się dyrekływamti wyboru procesora. 
Każda z nich składa się ze znaku . CkropkRo00 po którym nas— 
tępuje numer procesora, np. 80286, 80287 itp. 


Przykłady Rozkazy 


xor al,al + wyzeruj AL 
mov al,bh ; skopiuj BH do AL 
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jmp Lab ; skocz do Lab 


push ax ; zapamiętaj AX na stosie 
ret ; powróć według śladu 
Dyrektywy 


Dyrektywą jest polecenie, którego zinterpretowanie powoduje 
zadeklarowanie stałej albo zmiennej, zadeklarowanie makro— 
definicji albo określenie sposobu dalszego kompilowania mo— 
dułu źródłowego. Mnemoniki dyrektyw Cnp. SEGMENT i DBD> są 
słowami kluczowymi, a więc podobnie jak mnemoniki rozkazów, 
mogą być zapisywane zarówno za pomocą małych jak i dużych 


liter. 


Niektóre dyrektywy mają charakter strukturalny i muszą wys— 
tępować w powiązaniu z innymi, pokrewnymi im dyrektywami. Do 
takiej grupy należą m. in. dyrektywy kompilacji warunkowej, 
makrodyrektywy oraz dyrektywy segmentowe i procedurowe. 


Dyrektywa SEGMENT 
Dyrektywa SEGMENT ma postać ogólną 


tab SEGMENT altgn combine class 
body 
lab ENDS 


w której lab jest etykietą segmentu, altgn określa sposób 
umieszczenia segmentu w pamięci operacyjnej, combine 

określa sposób połączenia kilku segmentów opatrzonych taką 
samą etykietą Ca występujących w różnych modułach źródłowych) 
w jeden segment, a class powoduje zaliczenie połączonego 
segmentu do takiej grupy segmentów, która będzie zajmować 
przyległe miejsce w pamięci operacyjnej. 


Zinterpretowanie dyrektywy segmentowej powoduje podjęcie 


tworzenia segmentu o nazwie Lab. 


Jeśli w pewnym module źródłowym występuje kilka dyrektyw 
segmentowych poprzedzonych etykietą lab, to wszystkie one są 
niejawnie łaczone w jedną dyrektywę segmentową. W takim 
przypadku argumenty altgn, combine i class powinny wystąpić 
tylko w pierwszej z łączonych dyrektyw, a jeśli występują w 


następnych, to są ignorowane. 
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Jeśli dyrektywy segmentowe o takiej samej etykiecie 
występują w więcej niż jednym module źródłowym, to jawne 


albo domniemane zestawy ich argumentów muszą być identyczne. 


Dopuszczalne postaci wymienionych argumentów są następbt jące 


altgn 

BYTE rozmieszczenie segmentu na granicy bajtu, 

WORD rozmieszczenie segmentu na granicy Słowa, 

DWORD rozmieszczenie segmentu na granicy dwuSsłowa, 

PARA rozmieszczenie segmentu na granicy paragrafu, 

tj. takiego obszaru, którego adres jest podziel — 
ny przez 16 Ctaki sposób rozmieszczenia jest 
przyjmowany przez domniemanie); 

PAGE rozmieszczenie segmentu na granicy Strony, 

tj. takiego obszaru, którego adres jest podzielny 
przez 256. 
combine 

PRIVATE zakaz scalenia z segmentami innych modułów 
CtŁaki sposób scalenia jest przyjmowany przez 
domniemanie); 

PUBLIC polecenie scalenia w taki sposób, aby rozmiar 
utworzonego segmentu był równy sumie rozmiarów 
segmentów składowych; 

COMMON polecenie scalenia w taki sposób, aby pierwsze 
bajty każdego ze scalanych segmentów pokrywały 
się, a rozmiar utworzonego segmentu był równy 
rozmiarowi najdłuższego segmentu; 

STACK polecenie scalenia jak dla PUBLIC, z uznaniem 
scalonego segmentu za segment stosu; 

MEMORY polecenie scalenia jak dla PUBLIC, z uznaniem 
scalonego segmentu za reprezentujący wolną pa— 
mięć operacyjną; 

AT exp polecenie potraktowania segmentu tak, jakby 
rozpoczynał się od paragrafu o numerze exp, ale 
bez generowania ani danych, ani kodu. 

class 

Argument class ma postać symbolu ujętego w cudzysłowy 

albo w apostrofy. Symbol ten jest nazwą klasy, do której 


zostanie zaliczony dany segment. 
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Przykłady Dyrektywy SEGMENT 


a Program jednomodułowy 


ASSUME CS: Code, DS: Data 


Data SEGMENT 
Pair DB i3 
Data ENDS 


Code SEGMENT 
SŁart: 

mov ax,Data 

mov ds,ax 

mov ax,l[word ptr Pair] 
Code ENDS 


Data SEGMENT 
DB 4ch 
Data ENDS 


Code SEGMENT 
int 21h 
Code ENDS 


SŁack_ SEGMENT STACK 
DB 1OOh DUPC?3 
StŁack_ ENDS 


END Start 


Przytoczony program jest traktowany tak jak program 


ASSUME CS: Code, DS: Data 


Data SEGMENT PARA PRIVATE 
Pair DB 13,4ch 
Data ENDS 


Code SEGMENT PARA PRIVATE 
SŁart: 
mov ax,Data 
mov ds,ax 
mov ax,[word ptr Pair] 
int 21h 
Code ENDS 


SŁack_ SEGMENT PARA STACK 
DB 1OOh DUPC?) 
Stack_ ENDS 


END Start 


b Program dwumodułowy 


pierwszy modul 
ASSUME CS: Code, DS: Data 


Data SEGMENT WORD PUBLIC 
Pair DB O 
Data ENDS 


Code SEGMENT BYTE PUBLIC 
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Start: 

mov ax,Data 

mov ds,ax 

mov ax,l[word ptr Pair] 
Code ENDS 


END Start 


drugi modut 


ASSUME CS: Code, DS: Data 


Data SEGMENT WORD PUBLIC 
DB 4ch 
Data ENDS 


Code SEGMENT BYTE PUBLIC 
int 21h 
Code ENDS 


SŁack_ SEGMENT STACK 
DB 1OOh DUPC?D 
Stack_ ENDS 


END 


Przytoczony program Cpo skonsolidowaniu w kolejności poda— 


nych modułów. jest traktowany tak jak program 


ASSUME CS: Code, DS: Data 


Data SEGMENT WORD 
Pair DB O,?,4ch 
Data ENDS 


Code SEGMENT BYTE 


Start: 
mov ax,Data 
mov ds,ax 
mov ax,[word ptr Pair] 
int 21h 
Code ENDS 


SŁack_ SEGMENT PARA STACK 
DB 1OOh DUPC?) 
SŁack_ ENDS 


END Start 


Ponieważ pierwszy bajt segmentu Data pochodzącego z drugiego 
modułu musi być rozmieszczony na granicy Słowa, między baj— 
tami o wartości O i 4ch pojawia się bajt o wartości nieokreśs— 
lonej. Z tego powodu, do rejestru AH jest pobierana dana o 
wartości nieokreślonej, a skutek wykonania rozkazu int 21h 
nie daje się przewidzieć. Gdyby przyjęto rozmieszczenie seg— 
mentu Data na granicy bajtu, program byłby poprawny. 
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c Zawieranie się segmentów 


ASSUME CS: Code, DS: Data 


Data SEGMENT 
Fix DB 13 


Code SEGMENT 
Start: 
mov ax,Data 
mov ds,ax 
mov al,[Fix] 
mov ah,4ch 
Code ENDS 


Data ENDS 


Stack_ SEGMENT STACK 
DB 1OOh DUPC?2 
Stack_ ENDS 


Code SEGMENT 
int 21h 
Code ENDS 


END Start 


Przytoczony program jest traktowany tak jak program 


ASSUME CS: Code, DS: Data 


Data SEGMENT 
Fix DB 13 
Data ENDS 


Code SEGMENT 
SŁart: 
mov ax,Data 
mov ds,ax 
mov al,[Fix] 
mov ah,4ch 
int 21h 
Code ENDS 


StŁack_ SEGMENT STACK 
DB 1OOh DUPC?3 
SŁack_ ENDS 


END Start 


d Użycie dyrektywy SEGMENT z frazą AT 


Stack_ SEGMENT STACK 
DB 1OO0h DUPC?2 
Stack_ ENDS 


Screen SEGMENT AT ObOOOh 
DW 1999 DUPC?D 
CornerChar DB ? 

DB ? 

Screen ENDS 


Code SEGMENT 
ASSUME CS: Code, DS: Screen 
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Start: 
mov ax,Scereen 
mov ds,ax 
mov bx,OFFSET CornerChar 
mov ax,10000111b SHL 8 + *»%* 
mov [bx],ax 
mov ax,4CcOOh 
int 21h 
Code ENDS 


END Start 


Wykonanie programu powoduje wyświetlenie migoczącego znaku 
* Cgvtazdkoo w prawym-dolnym narożniku ekranu monitora stero— 


wanego przez kartę Hercules. 


Dyrektywa GROUP 
Dyrektywa GROUP ma postać ogólną 
name GROUP segname,segname, ... ,segname 


w której name jest nazwą grupy segmentów, składającej się z 
segmentów o nazwach segname wymienionych po słowie kluczowym 
GROUP. 


Zinterpretowanie dyrektywy GROUP powoduje takie rozmiesz— 
czenie segmentów o podanych nazwach, aby znalazły się one w 
spójnym segmencie pamięci operacyjnej o rozmiarze nie więk— 
szym niż 64 KB. Dzięki przyjętemu rozmieszczeniu, dostęp 

do wszystkich danych i rozkazów tych segmentów będzie mógł 


być realizowany za pomocą jednego rejestru segmentowego. 


Jeśli dyrektywa GROUP z tŁą samą nazwą grupy zostanie użyta 
wielokrotnie Cnawet w rozłącznych modułach), to do danej 
grupy zostaną włączone wszystkie segmenty, które wymieniono w 


tych dyrektywach. 


Posługując się grupami segmentów należy mieć na uwadze, że 
mimo przynależenia segmentu do pewnej grupy, wykonanie 


rozkazu zawierającego wyrażenie z operatorem OFFSET, np. 
mov ax,OFFSET Fix 


powoduje wyznaczenie przemieszczenia względem początku seg— 
mentu, a nie względem początku grupy. Z tego powodu, jeśli 

adresowanie odbywa się za pośrednictwem rejestru, który nie 
został związany z segmentem lecz z grupą segmentów, Ło wyz— 


naczenie przemieszczenia każdego z takich adresów wymaga 
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poprzedzenia adresu specyfikacją grupy składającą się z nazwy 
grupy i dwukropka, np. 


mov ax,OFFSEI DGROUP : Fix 


Przykład Dyrektywa GROUP 


Pair GROUP Datal ,Data2 
ASSUME CS: Code, DS: Pair 


DaŁal SEGMENT 
Ref DW OFFSET Pair: Fix 
Datal ENDS 


Data2 SEGMENT BYTE 
DB 3 
Fix DB 5 
DatŁa2 ENDS 


Code SEGMENT 
Start: 
mov ax,Pair 
mov ds,ax 


mov bx,[Ref] ; zbędna specyfikacja grupy 


;: uwaga: użyto DS:Pair 


; zbędne OFFSET Pair: 


mov al,[bx] ; pobierz 5 
mov bx,OFFSET Pair:Fix ; konieczne OFFSET Pair: 
add al,C[bx]J ; dodaj 5 


mov ah,dch 
int 21h 
Code ENDS 


Stack_ SEGMENT STACK 
DB 1O00h DUPC?) 
Stack_ ENDS 


END Start 


Program kończy się z kodem powrotu 10. Gdyby usunięto z nie- 


go specyfikację grupy Pair, to zakończyłby się z kodem pow- 
rotu 6. 


Dyrektywa ASSUME 
Dyrektywa ASSUME może przyjąć jedną z następujących postaci 


ASSUME reg: name,reg: name, ... „reg: name 
ASSUME reg: NOTHING 
ASSUME NOTHING 


w których każde reg jest nazwą rejestru segmentowego CCS, DS, 
ES, SS, a każde name jest nazwą segmentu albo nazwą grupy 


segmentów. 


Zinterpretowanie dyrektywy ASSUME w odniesieniu do pewnego 
rejestru reg, po którego nazwie występuje name, stanowi 


deklarację, że podczas wykonywania każdego rozkazu który 
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znajduje się w zasięgu tej dyrektywy, w rejestrze reg będzie 


znajdować się numer segmentu name. 


Jesli po reg występuje słowo kluczowe NOTHING, to w zasięgu 
Łakiej dyrektywy nie można zagwarantować, że podczas 
wykonywania programu, w rejestrze reg znajdzie się numer 


segmentu. 


Jeśli dyrektywa ASSUME nie zawiera ani jednej nazwy 
rejestru, to brak wymienionej gwarancji dotyczy wszystkich 


rejestrów segmentowych. 


Ponieważ odwołanie się do etykiety pewnego segmentu jest 
możliwe tylko wtedy, gdy w jednym z rejestrów znajduje się 
numer tego segmentu, nieprzemyślane posłużenie się dyrektywą 
ASSUME może wykluczyć dostępność etykietowanej danej, a w 
najlepszym razie spowodować wygenerowanie rozkazu prefikso— 


wanego Cdłuższego i dłużej wykonywanego). 
Przykład Dyrektywy ASSUME 


ASSUME CS: Code 


Code SEGMENT 
Fix DB 13 
Start: 
mov ax,Code 
mov ds,ax 
mov al,[Fix] ; generuje mov al,l[cs:Fix] 
mov ah,dch 
int 21h 
Code ENDS 


Stack_ SEGMENT STACK 
DB 1OOh DUPC7?D 
StŁack_ ENDS 


END Start 


Odwołanie się do zmiennej Fix wymaga posłużenia się numerem 
segmentu, w którym zadeklarowano etykietę Fix. Mimo iż pod— 
czas wykonywania programu numer ten znajduje się w rejestrze 
DS, podczas kompilowania programu fakt ten nie jest znany 
Cgdyż domniemywa się ASSUME DS: NOIHING>, więc Turbo Assem— 
bler generuje rozkaz prefiksowany. Można by tego uniknąć, 


posłużywszy się dyrektywą ASSUME CS: Code, DS: Code. 


Dyrektywy PUBLIC, GLOBAL i EXTRN 


Użycie wymienionych dyrektyw umożliwia przekazywanie między 
modułami programu etykiet stałych, zmiennych i rozkazów. 
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Komunikacja między modułami odbywa się w taki sposób, że w 
module eksportującym etykietę używa Się dyrektywy PUBLIC, a 
w module importującym używa się dyrektywy EXTRN. Z równym 
skutkiem można w każdym z komunikujących się modułów posłużyć 
się dyrektywą GLOBAL. 

Dyrektywa PUBLIC ma postać 


PUBLIC symbol,symboŁ, ... ,symboł 
w której symboł jest eksportowaną etykietą 
Dyrektywa EXTRN ma postać 

EXTIRN deftine,de/jtne, ... ,de/fine 


w której każde de/ftne jest jednym z następujących napisów 


symboL: type 
symbot: type: count 


w których symbol jest importowaną etykietą, type jest jed— 

nym z następujących słów kluczowych określającym typ impor— 
towanego obiektu Cidentyczny z typem tego obiektu w module 

eksportującymn0 


ABS — nazwa stałej, 

BYTE — nazwa zmiennej typu BYTE (C1 bajt, 
WORD — nazwa zmiennej typu WORD (C2 bajty, 
DWORD — nazwa zmiennej typu DWORD C4 bajty) 
nazwa zmiennej Łypu FWORD C6 bajtów, 
nazwa zmiennej Łypu QWORD C8 bajtów, 
TWORD — nazwa zmiennej typu TWORD C1O bajtów, 


O 
E £ 
O O 
W Mm 
U U 
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NEAR — nazwa bliskiej procedury albo rozkazu, 


FAR — nazwa dalekiej procedury albo rozkazu. 


a count stosuje się tylko do zmiennych i jest liczbą 
zmiennych podanego typu, reprezentowanych przez importowany 
identyfikator. 


Dyrektywa GLOBAL ma postać 
GLOBAL de/ftitne,deftne, ... ,„define 
w której każde deftne jest takie jak w dyrektywie EXTRN. 


Dyrektywa GLOBAL użyta w odniesieniu do obiektu eksportowa— 
nego jest traktowana jak PUBLIC, a użyta w odniesieniu do 
obiektu importowanego jest traktowana jak EXTRN. 
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Przykład Eksportowanie it importowanie obiektów 
pierwszy modut 

GLOBAL Result: BYTE, AddOne: FAR 

PUBLIC Fixed 

ASSUME CS: Code, DS: Data 


Data SEGMENT 
Fixed DB 12 
Data ENDS 


Code SEGMENT 
Start: 
mov ax,Data 
mov ds,ax 
call far ptr AddOne ; wywołanie procedury 
mov al,[Result] 
mov ah,4ch 
int 21h 
Code ENDS 


END Start 


drugi modut 
ASSUME CS: Code, DS: Data 
GLOBAL Result: BYTE, AddOne: FAR 
EXTRN Fixed: BYTE 


Data SEGMENT 
Result DB ? 
Data ENDS 


Code SEGMENT 
AddOne PROC FAR 
mov ah,(C(Fixed] 
inc ah 
mov [(Result],ah 
ret ,;, powrót z procedury 


AddOne ENDP 
Code ENDS 


Stack_ SEGMENT STACK 
DB 1OOh DUPC?) 
Stack_ ENDS 


END 


Dyrektywy uproszczone 


Posługiwanie się dyrektywami segmentowymi oraz dyrektywami 
GROUP i ASSUME umożliwia konstruowanie modułów o dowolnie 
złożonej strukturze logicznej, a w szczególności modułów, 
które mogą być łączone z modułami utworzonymi przez kompila— 


tory języków wysokiego poziomu. 


Biorąc pod uwagę to drugie zastosowanie, rozszerzono Turbo 


Assembler o dyrektywy 
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. MODEL . CÓDE . DATA . DATA? . FARDATA . FARDATA? 


upraszczające zapis programów. 


Dyrektywa . MODEL 


Użycie dyrektywy .MODEL zapowiada posłużenie się dyrektywami 
uproszczonymi. W dyrektywie tej, o postaci ogólnej 


. MODEL modełŁ, Language 


albo 
.MODEL TPASCAL 


model jest nazwą modelu pamięci, a language jest nazwą języka 


programowania, z którego będą wywoływane procedury danego mo" 
dułu. 


Argument language może być napisem C, Pascal, Basic albo 
Prolog. Jeśli procedura modułu. zapisanego w języku Turbo 
Assembler będzie wywoływana z programu napisanego w języku 
Turbo Pascal, to dyrektywa .MODEL powinna mieć postać 


. MODEL TPASCAL 
W pozostałych przypadkach należy podać nazwę języka oraz 
dopuszczalny dla niego model pamięci. W szczególności dla 


Języka C, może Ło być model TINY, SMALL, MEDIUM, COMPACT, 
LARGE albo HUGE. 


W programach zapisanych całkowicie w języku Turbo Assembler, 


wystarczy ograniczyć się do podania modelu pamięci. 


Posłużenie się dyrektywą .MODEL umożliwia zastąpienie 
dyrektyw segmentowych, takich jak na przykład 


FAR_DATA SEGMENT PARA ”FAR_DATA? 
teRst segmentu 
FAR_DATA ENDS 


dyrektywami uproszczonymi, jak 


FARDATA 
tekst segmentu 


oraz umożliwia domniemanie niektórych innych dyrektyw, w tym 
GROUP i ASSUME. 


W każdym z modeli dopuszcza się wystąpienie dyrektyw 


uproszczonych 
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. CODE 

. DATA 

. DATA? 
.FARDATA 


.FARDATA name 


. FARDATA? 


„.FARDATA? name 


. CONST 
. STACK 


a w modelach MEDIUM, LARGE i HUGE, dopuszcza się ponadto 


wystąpienie dyrektywy 


.CODE name 


Cnapis name występujący w dyrektywach FARDATA, FARDATA? i 


CODE jest nazwą segmentu). 


W celu uproszczenia powoływania się na nazwy segmentów 


danych, wprowadzono niejawne definicje następujących symboli 


QData 
QCode 
©FarData 
eFarData? 


a także kilka 
QFileName 
QCurSeg 
QCodeSi ze 
©DataSize 


??Date 
??Time 


Jak już wyjaśniono, 
pewną dyrektywę rozwiniętą, 


nazwa segmentu 
nazwa segmentu 
nazwa segmentu 
nazwa segmentu 


innych definicji 


określonego przez 


. DATA, 


określonego przez . CODE, 
określonego przez .FARDATA, 


określonego 


nazwa kompilowanego zbioru, 
nazwa właśnie kompilowanego segmentu, 


w modelach o "krótkim kodzie'': 
COMPACT — liczba O, 


w modelach o *'krótkich danych': 


MEDIUM — liczba O, 


przez .FARDATA?, 


TINY, SMALL i 
a w pozostałych liczba 1, 


TINY, SMALL i 


w modelach COMPACT 1 LAR— 


GE liczba 1, a w modelu HUGE — liczba £, 
data kompilacji, 
czas kompilacji. 


każda z dyrektyw uproszczonych zastępuje 
a związek między nimi wynika z 


następującego przyporządkowania dyrektywom uproszczonym argu— 
mentów dyrektyw SEGMENT 


Uproszczente Model Nazwa 


. CODE 
. CODE 
. CODE 
.CODE name 
. CODE 


podane nodele 


TINY _TEXT 
SMALL TEXT 


MEDIUM /ttle_IEXT WORD 


MEDIUM name 


Argumenty 
WORD PUBLIC 
WORD PUBLIC 
PUBLIC 
WORD PUBLIC 
PUBLIC 


LARGE /ftle_IEXT WORD 


* CODE? 
CODE? 
* CODE? 
* CODE? 
* CODE” 
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„CODE name LARGE name WORD PUBLIC ” CODE? 
. CODE HUGE /file_TEXT WORD PUBLIC » CODE? 
. CODE name HUGE name WORD PUBLIC ” CODE? 


wszystkie modele 


. DATA _DATA WORD PUBLIC "DATA 

. DATA? _BSS WORD PUBLIC  "'BSS' 

. FARDATA FAR_DATA PARA PRIVATE  "FAR_DATA' 
.FARDATA name name PARA PRIVATE  "FAR_DATA' 
. FARDATA? FAR_BSS PARA PRIVATE  "FAR_BSS' 
.FARDATA? name name PARA PRIVATE  "FAR_BSS*' 
. CONST CONST WORD PUBLIC "CONST" 

. STACK STACK PARA STACK * STACK” 


Uwaga: Napis file występujący w dyrektywach .CODE jest częś- 
cią główną nazwy zbioru zawierającego tę dyrektywę. W dyrek— 
tywie .STACK można podać liczbę określającą rozmiar stosu 
(domniemanie 10240). 


Ponadto, dla każdego z modeli jest domniemywana 
dyrektywa GROUP 
która w modelu TINY ma postać 
DGROUP GROUP _TEXT,_DATA,CONST,_BSS,STACK 
a w pozostałych modelach ma postać 


DGROUP GROUP _DATA,CONST,_BSS,STACK 


dyrektywa ASSUME 


w której CS jest związane z segmentem określonym przez 
dyrektywę uproszczoną .CODE, a DS i SS są związane z grupą 
DGROUP. 


Uwaga: Po dyrektywie .MODEL IPASCAL mogą wystąpić jedynie 
dyrektywy uproszczone .CODE i .DATA. Obowiązuje wówczas 
następujące przyporządkowanie dyrektywom uproszczonym argu— 
mentów dyrektyw SEGMENT 


Uproszczenie Nazwa Argumenty 


. CODE CODE BYTE PUBLIC 
„DATA DATA WORD PUBLIC 
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Przykład Dyrektywa . MODEL 


a Program z dyrektywami uproszczonymi 


. MODEL SMALL 
„DATA 
Fix DB 13 
. CODE 
Start: 
mov ax,QData 
mov ds,ax 
mov al,[Fix] 
mov ah,4dch 
int 21h 
„STACK 1OOh 
END Start 


b Równoważny program z dyrektywami rozwiniętymi 
DGROUP GROUP _DATA,STACK 


ASSUME CS: __ TEXT, DS: DGROUP, SS: DGROUP 


_DATA SEGMENT WORD PUBLIC "DATA" 
Fix DB 13 
_DATA ENDS 


_IEXT SEGMENT WORD PUBLIC ”CODE? 
Start: 

mov ax, DGROUP 

mov ds,ax 

mov al,[Fix] 

mov ah,4dch 

int 21h 
_IEXT ENDS 


STACK SEGMENT PARA STACK "STACK" 
DB 1OOh DUPC?D3 
STACK ENDS 


END Start 


Dyrektywa DOSSEG 
Dyrektywa DOSSEG składa się ze słowa kluczowego 
DOSSEG 


Zinterpretowanie dyrektywy DOSSEG powoduje, że uporządko— 
wanie segmentów programu wynikowego będzie zgodne z ustale— 
niami przyjętymi przez firmę Microsoft dla języków wysokiego 


poziomu. 


Uwaga: Jeśli moduły napisane w języku Turbo Assembler są 
łączone z modułami wygenerowanymi przez kompilatory tych 
języków, to użycie dyrektywy DOSSEG jest zbędne, ponieważ i 


Łak zostanie zastosowane uporządkowanie standardowe. 
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Standardowe uporządkowanie segmentów jest następujące 


— wszystkie segmenty klasy "CODE"; 
—- wszystkie segmenty, które nie są klasy "CODE i nie nale- 
żą do grupy DGROUP; 
- segmenty grupy DGROUP w następującej kolejności 
segmenty klasy "BEGDATA', 
segmenty, które nie są klasy "”BEGDATA*, "BSS', "SIACK>, 
segmenty klasy 'BSS', 
segmenty klasy "STACK". 


Przykład Standardowe uporządkowanie segmentów 


. MODEL SMALL 
DOSSEG 
„STACK 1OOh 
. FARDATA? 
Res DW ? 
. CODE 
SŁart: 
mov ax,OoData 
mov ds,ax 
mov ax,lASt] 
mov bx,©FarData? 
mov ds,bx 
ASSUME DS: ©FarData? 
mov [Res] ,ax 
mov dx,OFFSET Res 
mov ah,39 
int 2ih 
mov ax, 4CcOO0h 
int 21h 
. DATA 
Ast DW C”$” SHL 6 + "'%* 
END Start 


Przytoczony program jest traktowany tak, jakby miał postać 


. MODEL SMALL 
. CODE 
Start: 
mov ax,©Data 
mov ds,ax 
mov ax,[ASt] 
mov bx,©FarData? 
mov ds,bx 
ASSUME DS: ©FarData? 
mov [Res] ,ax 
mov dx,OFFSET Res 
mov ah,9 
int 21h 
mov ax,4cOOh 
int 21h 


47O 


. FARDATA? 
Res DW ? 
. DATA 
Ast DW C'$' SHL > + ”»* 
„STACK 1OOh 
END Start 


Dyrektywy deklarowania zmiennych prostych 


Dyrektywami deklarowania zmiennych prostych są m. in. DB, DW 
i DD. Każda z nich ma postać ogólną 


lab Rind arg,arg, ... ,arg 


w której lab jest etykietą, kind jest nazwą jednej z wymie— 
nionych dyrektyw, a każde arg jest wyrażeniem, znakiem zapy— 
Łania Crównoważnym wyrażeniu o wartości nieokreślonej), albo 


napisem o postaci 
count DUP Carg,arg, ... ,„arg) 


w którym count jest liczbą powtórzeń listy argumentów w na— 
wiasach. 
Zinterpretowanie dyrektywy deklarowania zmiennych powoduje 


zarezerwowanie miejsca dla zmiennych odpowiedniego typu 


dla DB — bajtowych Cnp. byte, unsigned char, 
dla DW - słowowych Cnp. integer, short int, 
dla DD — dwusłowowych Cnp. longint, long intJ, 
dla DF — trzysłowowych Cnp. real), 

dla DQ — czterosłowowych Cnp. double, 

dla DT -— pięciosłowowych Cnp. extended). 


a następnie przypisanie im danych, określonych przez wyra— 
żenia podane w dyrektywie. 


Jeśli dyrektywą jest DB, a przypisywanymi danymi są znaki, to 
można zastosować uproszczenie, polegające na połączeniu ciągu 
przyległych znaków widocznych w literał łańcuchowy ograniczo— 
ny znakami *" Ccudzystów) albo ' (apostrof). 


Przykłady Deklarowanie zmiennych 


Greet DB *"H','e','1','1','o* ; postać rozwinięta 


Greet DB "Hello" ; postać skrócona 
Num Dw 3,7,4,3,7,4,?,5 ; postać rozwinięta 
Num Dw 2 DUP C3,?,402,?,5 +: postać skrócona 
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Ref Dw OFFSET Greet ; postać rozwinięta 


Ref DW Greet ; postać skrócona 
DD 100000 ; zmienna bez nazwy 
Quote DB ""' ; zmienna jednoznakowa 


Dyrektywy deklarowania zmiennych strukturalnych 


Zmiennymi strukturalnymi są rekordy, struktury i unie. W celu 
zadeklarowania zmiennej strukturalnej należy najpierw zade- 
klarować typ strukturalny, a następnie posłużyć się dyrektywą 


deklarowania zmiennych. 


Typy t zmienne rekordowe 
Deklaracja typu rekordowego ma postać 
name RECORD /teld,/ftela, ... ,fiela 


w której name jest nazwą typu rekordowego, a każde /ftela jest 
opisem pola o jednej z następujących postaci 

id:size 

td:sitze=tntt 
w których td jest identyfikatorem pola rekordu, size jest 
rozmiarem pola wyrażonym w bitach, a tntit jest wyrażeniem 
stałym pełniącym funkcję domniemanego inicjatora pola. Wyma— 
ga się, aby w danym module źródłowym, identyfikatory pól re- 
kordów były unikalne, a łączny rozmiar pól każdego rekordu 
nie przekraczał 16-bitów. 


Deklaracja zmiennych typu rekordowego ma postać 
lab name arg,are, ... ,arg 


w której lab jest etykietą, name jest nazwą typu rekordowego, 
a każde arg jest wyrażeniem inicjującym składającym się z 
listy inicjatorów ujętych w nawiasy kątowe. Każde z tych 
wyrażeń służy do zainicjowania jednego pola rekordu. Jeśli 
pewien inicjator nie występuje, Ło w jego miejscu domniemywa 
się inicjator wzięty z deklaracji typu. 


Pola rekordu są uporządkowane w kolejności ich wystąpienia w 
deklaracji typu rekordowego. Rekordy, których łączny rozmiar 
pól nie przekracza 8 bitów są jednobajtowe, a pozostałe re- 
kordy są dwubajtowe. Pola są reprezentowane w postaci spój- 
nego ciągu bitów umieszczonego w bajcie albo w Słowie z wy- 


równaniem prawostronnym. 


47e 


Przykłady Deklarowanie rekordów 
W zasięgu deklaracji typu rekordowego 


Triple RECORD Left: 3,Center: 4=Ofh,Right: 2 
napis 

Rec Triple <2,,1>,<2,0,0> 
Jest deklaracją dwóch rekordów, z których pierwszy ma nazwę 
Rec. Rekord Rec zajmuje jedno słowo, w którym pole Right 
zajmuje dwa bity najmniej znaczące. W rekordzie Rec, pole 
Left ma wartość początkową 2, pole Center wartość początkową 
Ofh, a pole Right ma wartość początkową 1. 


Ponieważ w procesorach Intel 8Ox86 nie ma możliwości adreso— 
wania poszczególnych bitów, odwołania do pól rekordów odbywa— 
ją się w sposób nietypowy, z wykorzystaniem operatorów MASK i 
WIDTH oraz nazw pól rekordów. 


W celu umożliwienia wykonywania operacji na polach rekordów 


przyjmuje się że 


- nazwa pola rekordu reprezentuje stałą o wartości równej 
łącznemu rozmiarowi pól następujących po tym polu, 
— wyrażenie 


MASK ta 


w którym td jest identyfikatorem pola rekordu reprezentuje 
maskę bitową umożliwiającą wyselekcjonowanie pola id Cmaska 
ta zawiera bity 1 na pozycjach zajętych przez wybrane pole), 
— wyrażenie 


WIDTH id 
w którym itd jest identyfikatorem rekordu albo identyfi — 
katorem jego pola, reprezentuje stałą o wartości równej 
rozmiarowi rekordu albo pola rekordu Cwyrażonemu w bitach). 
Przykład Przetwarzanie pól rekordów 
Ww zasięgu deklaracji typu rekordowego TIriple 

Triple RECORD Left:2,Mid: 3:Right:1 
i deklaracji zmiennej Rec tego typu 


Rec Triple <1,5,0> 
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wykonanie rozkazów 


mov al,l[Rec] 
and al,MASK Mid 
mov cl,Mid 
shr al,cl 
powoduje umieszczenie pola Mid rekordu Rec na najmniej 


znaczących pozycjach rejestru AL. 


Typy t zmienne strukturowe 
Deklaracja typu strukturowego ma postać 


name STRUC 
ftela 
ftela 
field 
name ENDS 
w której name jest nazwą deklarowanego typu strukturowego, a 
każde jiełd jest deklaracją pola, identyczną z deklaracją 
zmiennej, rekordu, struktury albo unii. 
Biorąc pod uwagę, Że deklaracja unii różni się tylko tym od 
deklaracji struktury, że Słowo kluczowe SIRUC jest w niej 
zastąpione słowem kluczowym UNION, dalszy opis będzie ogra— 
niczony do struktur. Należy jednak pamiętać o istotnej róż- 
nicy struktur i unii. O ile struktura składa się z wszystkich 
pól wymienionych w jej deklaracji, występujących jedno po 
drugim, o tyle unia składa się w danej chwili z tylko Jednego 
pola. 


Ponieważ unia jest implementowana jako nałożenie na siebie 
wszystkich jej pól, nic nie stoi na przeszkodzie jednoczesne- 
go odwoływania się do zmiennych zadeklarowanych w różnych po- 
lach. Tym niemniej rozsądnie jest przyjmować, że jeśli 

pewnej zmiennej pola zostanie przypisana dana, to będzie to 
miało taki skutek jakby każdej zmiennej pozostałych pól przy- 
pisano dane o wartościach nieokreślonych. Chociaż takie zało- 
żenie jest czysto hipotetyczne, może bardzo ułatwić poprawne 


posługiwanie się uniami. 
Deklaracja zmiennych typu strukturowego ma postać 
lab name arg,arg, -.. ,arg 


w której lab jest etykietą, name jest nazwą typu strukturo- 
wego, a każde aerg jest wyrażeniem inicjującym składającym się 
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z listy inicjatorów ujętych w nawiasy kątowe. Każde z tych 
wyrażeń służy do zainicjowania jednego Cale tylko nazwanego) 
pola struktury. Jeśli pewien inicjator nie występuje, to w 
jego miejscu domniemywa się inicjator wzięty z deklaracji 
typu. zabrania się, aby rozmiar danej reprezentowanej przez 
jawnie podany inicjator przekraczął rozmiar pola wynikający z 
deklaracji typu, a ponadto zabrania się użycia inicjatora 
mającego postać literału tekstowego, jeśli deklaracja pola 


nie zawierała podobnego literału. 


Przykłady Deklarovanie struktur 


a W zasięgu deklaracji typu strukturowego Person 


Person STRUC 
FullName DB "John Walker” 
Age DW 40 
Sex DB ? 

Person ENDS 


napis 


Bob Person <'Bob Smith? ,,1> 


jest deklaracją zmiennej strukturowej Bob, składającej się z 
pól FullName, Age i Sex o rozmiarach wziętych z deklaracji. 
Rozmiarami tymi są odpowiednio: 11 Cmimo iż "Bob Smith” ma 
rozmiar 9», 2 i 1. Pole Age ma wartość określoną na podstawie 
domniemania C400, a dwa najmniej znaczące bajty pola FullName 


są spacjami. 


Wymaga się, aby w danym module źródłowym nazwy pól struktur i 
unii były unikalne. W celu umożliwienia odwoływania się do 
takich pól wprowadzono operator . Ckropko0, który w istecie 
może być traktowany dokładnie tak samo jak operator + (plus). 
Wynika to stąd, że nazwa pola struktury i unii jest traktowa— 
na tak jak nazwa stałej o wartości równej przemieszczeniu te— 
go pola w obrębie deklaracji typu strukturowego. 
Przykład Przetwarzanie pól struktwr 
W zasięgu deklaracji typu Sstrukturowego Date 
Date STRUC 
Year DW ? 
Month DB ?,-—1 
Day Dw ? 
Date ENDS 


TheDay Date <1981 ,12,13> 
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wykonanie rozkazów 


mov bx,OFFSEI TheDay 
mov ax,lbx. Year] : AX=1981 
mov ah, [(TheDay. Month] ; AH=12 
mov al,[byte ptr TheDay. Day] ; AL=13 
mov al,l[TheDay. CMonth + 10] +: AL=-1 
powoduje załadowanie rejestrów w sposób podany w komenta— 


rzach. 


Dyrektywy deklarowania etykiet 


2 każdą etykietą występującą w dyrektywie deklarowania 


zmiennych jest związany jej typ, a mianowicie 


Dyrektywa Typ 


DB BYTE 
DW WORD 
DD DWORD 
DF FWORD 
DQ QWORD 
DT TWORD 


Etykieta oddzielona od rozkazu znakiem : CdwukropekO jest 
typu NEAR, a etykieta poprzedzająca dyrektywę strukturalną 
PROC Cstanowiącą deklarację procedury) jest typu określonego 
jawnie w tej dyrektywie CNEAR albo FARD>, albo domniemanej na 
podstawie modelu pamięci 


NEAR — dla modeli TINY, SMALL, COMPACT 
FAR -— dla modeli MEDIUM, LARGE, HUGE, IPASCAL 


Ponadto typ etykiety może być zadeklarowany za pomocą 
dyrektywy LABEL. 


Dyrektywa LABEL ma postać 
name LABEL type 


w której name jest identyfikatorem deklarowanej etykiety, a 
type jest jej typem. Typ etykiety określa czy dotyczy ona 
danych Cnp. BYTE, WORD, DWORDD czy rozkazów Cnp. NEAR, FARO. 
Zinterpretowanie dyrektywy LABEL powoduje opatrzenie 
następnego bajtu właśnie kompilowanego segmentu etykietą 
name. Tak zdefiniowana etykieta może być wyeksportowana do 


innego modułu. 
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Przykład Deklarowanie etykiet 
W zasięgu deklaracji 


Lower LABEL BYTE 
Fix DW 13 


Before LABEL FAR 

Start: mov ax,©Data 

After LABEL NEAR 
etykietami są nie tylko Fix i Start, ale także Lower, Before 
i After. W szczególności Lower jest nazwą zmiennej 
składającej się z mniej znaczącego bajtu zmiennej Fix, a 
Before jest etykietą rozkazu mov. W odróżnieniu od etykiety 
Start, która jest typu NEAR, etykieta Before jest typu FAR. 


Wyrażenia 


Wyrażenia mogą występować zarówno w argumentach dyrektyw 
deklarowania zmiennych jak i w argumentach rozkazów. Wymaga 
się, aby każde wyrażenie było wyrażeniem stalym, to jest aby 
jego wartość dała się określić przed podjęciem wykonywania 
programu. Dzięki takiemu ustaleniu, w każdym miejscu progra— 
mu, w którym może wystąpić liczba, może również wystąpić i 
wyrażenie. 


Składnia wyrażeń języka Turbo Assembler jest bliższa składni 
języka Turbo C niż składni języka Turbo Pascal. Przejawia się 
Ło m. in. w tym, że wnioskowanie o poprawności i semantyce 
wyrażenia może być przeprowadzone wyłącznie na podstawie 


priorytetu użytych w nim operatorów. 


Uporządkowanie operatorów w kolejności malejących prioryte— 
tów jest następujące 

<> CJ (1 LENGTH MASK SI ZE WI DTH 

+ — (C jJednoargumentowe) 


OFFSET type PIR SEG THIS TYPE 
» MOD SHL SHR 

+ — (dwuargumentowe) 

EQ GE GT LE LT NE 


Ctype oznacza jedno z następujących słów kluczowych 
FAR, NEAR, BYTE, WORD, DWORD, FWORD, QWORD, TBYTE 32 
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© 


Uznanie napisu ćtext> za literał, to jest nie wnikanie w 


znaczenie znaków stanowiących text. 


Przykład 


W zapisie 
Count <;a+b> 


znak ; CśrednikO nie rozpoczyna komentarza. 


O 


Nadanie pierwszeństwa wyrażeniu w nawiasach. 


Przykład 
W wyrażeniu 
a — (b + c) 


najpierw jest wykonywane dodawanie. 


[1 


Uznanie napisu [expf]l(exp2] za [expf + exp2] 


Przykład 


Uznanie rozkazu 
mov ax,lbx][2] 
za równoważny rozkazowi 


mov ax,lbx+2] 


LENGTH 


Uznanie napisu LENGIH name, w którym name jest identyfikato- 
rem zmiennej, za nazwę licznika zmiennych zadeklarowanych za 
pomocą słowa kluczowego DUP, albo za nazwę stałej 1, jeśli w 


deklaracji nie posłużono się tym słowem kluczowym. 


k 
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Przykład 


Ww zasięgu deklaracji 

Count DW 1O DUPCZO DUPC722,1000 DUPCOJ 
napis 

length Count 


reprezentuje daną o wartości 10O. 


mn NN NN 
MASK 


—_—— nn z Z 
Uznanie napisu MASK ftełd, w którym /ield jest nazwą pola 


rekordu, za nazwę maski umożliwiającej dokonanie wyboru pola. 


Przykład 


W zasięgu deklaracji 

Rec RECORD West:2,East: 5 
napis 

mask West 


reprezentuje daną o wartości 011O0O0000B. 


10h ..tt4t o ..............,„_Ó 
SIŻE 
NN .d.dÓÓó. LLL, 
Uznanie napisu SIZE name za równy iloczynowi 


CLENGTH name) % CTYPE name) 


Przykład. 


V zasięgu deklaracji 


Array Dw 1O DUPCOJD,30 DUPC1D 
napis 


size Array 


reprezentuje daną o wartości 20. 


A — 
WIDTH 


OLSSON 


kordu 
Uznanie napisu WIDTH field, w którym field jest nazwą a 

o 
ALbo identyfikatorem pola rekordu, Zza nazwę stałej © wa" 


ró 
*©nej liczbie bitów tego rekordu albo pola. 
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Przykład 


W zasięgu deklaracji 
Rec RECORD West:2,East:5 


napisy 

width Rec 
i 

width East 


reprezentują odpowiednio dane o wartości 7 i 5. 


Uznanie napisu . field, w którym /iela jest identyfikatorem 
pola struktury, za napis +field. 


Przykład 
W zasięgu deklaracji 


Child STRUC 


Name DB * 
Age DB ? 
Child ENDS 


Isa Child <Isabel ,6> 


rozkaz 


mov ah,[Isa. Age] 


jest uznawany za rozkaz 


mov ah,[Isa + Age] 


HIGH 


Uznanie napisu HIGH exp w którym exp jest wyrażeniem, za 
nazwę stałej bajtowej stanowiącej bardziej znaczącą część 


stałej reprezentowanej przez exp. 


Przykład 


Napis 
high 1111000000001111B 
reprezentuje daną o wartości 11110000B. 
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LOW 


Uznanie napisu LOW exp, w którym exp jest wyrażeniem, za 
nazwę stałej bajtowej stanowiącej mniej znaczącą część stałej 


reprezentowanej przez exp. 


Przykład 


Napis 
low 1111000000001111B 
reprezentuje daną o wartości O00001111B. 


+ 


Uznanie napisu +exp, w którym exp jest wyrażeniem, za wyraże— 


nie exp. 


Przykład 


Napis 
2-+3 


reprezentuje daną o wartości —1. 


Uznanie napisu exp, w którym exp jest wyrażeniem, za wyra— 


żenie O-exp. 


Przykład 


Napis 
2+C-3) 


reprezentuje daną o wartości —-1. 


Uznanie napisu seg:ofs, w którym seg jest nazwą rejestru 
segmentowego, nazwą segmentu albo nazwą grupy segmentów, a 
ojfjs jest przenieszczeniem, za adres wyznaczony względem 


podanego rejestru, segmentu, albo grupy segmentów. 


ja 
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Przykład 


Jeśli SI=2, to w rozkazie 
mov al,les : Si + 4] 


nastąpi odwołanie do szóstego bajtu segmentu określonego 


przez CS. 


OFFSET 


Uznanie napisu OFFSET addr, w którym addr jest adresem pamię- 
ci, za przemieszczenie tego adresu względem początku 


segmentu, w którym znajduje się addr. 
Przykład 
Napis 

offset DGROUP: Fix 


reprezentuje przemieszczenie adresu Fix względem grupy 
DGROUP. 


type PTR 


Uznanie napisu type PTR exp, w którym type jest oznaczeniem 
typu 
dla danych: BYTE, WORD, DWORD, FWORD, QWORD, TBYTE, 
dla rozkazów: NEAR, FAR, PROC 


a exp jest wyrażeniem, za wyrażenie typu type lokalizujące to 


samo miejsce pamięci co exp. 


Przykład 


Uznanie, że w rozkazie 
inc [byte ptr bx] 
rejestr BX lokalizuje daną typu BYTE. 


Uznanie napisu SEG addr, w którym addr jest adresem pamięci, 


za numer segmentu, w którym znajduje się ten adres. 


Przykład 
W zasięgu deklaracji 


Data SEGMENT 


DB ? 
Fix DW 13 
Data ENDS 


zarówno SEG Data jak i SEG Fix jest numerem segmentu, w 


którym zadeklarowano zmienną Fix. 


THIS 


Uznanie napisu THIS type, w którym type jest oznaczeniem typu 
dla danych: BYTE, WORD, DWORD, FWORD, QWORD, IBYIE 
dla rozkazów: NEAR, FAR, PROC 

za pełny adres Cnumer segmentu i przemieszczenie) w bieżącym 


miejscu kompilowania bieżącego segmentu. 
Przykład 


Dyrektywa 


Here EQU THIS FAR 
jest traktowana tak jak dyrektywa 


Here LABEL FAR 


TYPE 


Uznanie napisu TYPE exp, w którym exp jest dowolnym wyraże- 
niem, za nazwę stałej, która określa typ tego wyrażenia 


zgodnie z następującym zestawieniem 


Typ wartość stałej 
BYTE 1 

WORD 2 

DWORD 4 

FWORD 6 

QWORD 8 

TBYIE 10 

NEAR Offffth 

FAR Offfeh 
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Przykład 
W zasięgu deklaracji 
Fix DW ? 
wyrażenie 
type Fix 


reprezentuje daną o wartości 2. 


> 


Uznanie, że wyrażenie expL % expR, w którym expL i expR są 
wyrażeniami stałymi, reprezentuje ich iloczyn. 
Przykład 
W zasięgu deklaracji 
Fix DW 3 DUPC?2> ,O 
wyrażenie 
type Fix % length Fix 


reprezentuje daną o wartości 6. 


N 


Uznanie, że wyrażenie expL / expR, w którym expL i expR są 
wyrażeniami stałymi, reprezentuje ich iloraz. 


Przykład 
W zasięgu deklaracji 
Fix DQ 1,2,3 


wyrażenie size Fix / 2 ma wartość 4. 


c 
je) 
je 


Uznanie, że wyrażenie expL MOD expR, w którym expL i expR są 
wyrażeniami stałymi, reprezentuje resztę z dzielenia expL 


przez expR. 
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Przykład 


Napis 
le mod 5 


reprezentuje daną o wartości 8. 


SHL 


Uznanie, że wyrażenie expL SHL expR, w którym expL i expR są 
wyrażeniami stałymi, reprezentuje daną, której reprezentacja 
bitowa powstaje z przesunięcia reprezentacji bitowej expL o 


eXxpR pozycji w lewo. 


Przykład 


Napis 
13 SHL 2 


reprezentuje daną o wartości S2. 


SHR 


Uznanie, że wyrażenie expL SHR expR, w którym expL i expR są 
wyrażeniami stałymi, reprezentuje daną, której reprezentacja 
bitowa powstaje z przesunięcia reprezentacji bitowej expL o 


eXxpR pozycji w prawo. 


Przykład 
Napis 
13 SHR 2 


reprezentuje daną o wartości 3. 


+ 


Uznanie, że wyrażenie exgpL + expR, w którym expL i expR są 
wyrażeniami stałymi, reprezentuje ich sumę. 
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Uznanie, że wyrażenie expL — expR, w którym expL i expR są 
wyrażeniami stałymi, reprezentuje różnicę expL i exgpR. 


Przykład 
Napis 
13 - 2 


reprezentuje daną o wartości 11. 


EQ 


Uznanie, że wyrażenie expLŁ EQ expR, w którym expL i expR są 
wyrażeniami stałymi, reprezentuje daną o wartości -—i jeśli 
expL jest równe expR, albo daną o wartości O w przeciwnym 


razie. 


Przykład 
Napis 
12 EQ2 + 10 


reprezentuje daną o wartości —1. 


GE 


Uznanie, że wyrażenie explL GE expR, w którym expL i exegR są 
wyrażeniami stałymi, reprezentuje daną o wartości —1 jeśli 
expL jest większe albo rćwr.e expR, albo daną o wartości O w 


przeciwnym razie. 


Przykład 
Napis 
1j2 GE 2 + 1O 


reprezentuje daną o wartości —1i. 


Uznanie, że wyrażenie expL GT expR, w którym expl i expR są 
wyrażeniami stałymi, reprezentuje daną o wartości -1 Jeśli 
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R 


expL jest większe od expR, albo daną o wartości O w 


przeciwnym razie. 


Przykład 


reprezentuje daną o wartości O. 


LE 


Uznanie, że wyrażenie expŁ LE expR, w którym expL i expR są 
wyrażeniami stałymi, reprezentuje daną o wartości -1 jeśli 
expL jest mniejsze albo równe expR, albo daną o wartości O w 


przeciwnym razie. 


Przykład 


reprezentuje daną o wartości O. 


LT 


Uznanie, że wyrażenie expL LT expR, w którym exgL 1i expR są 
wyrażeniami stałymi, reprezentuje daną o wartości -—1 jeśli 
expL jest mniejsze niż expR, albo daną o wartości O w 


przeciwnym razie. 


Przykład 


Napis 
2 LT 1 


reprezentuje daną o wartości O. 


NE 


Uznanie, że wyrażenie expL NE expR, w którym exęl i expR są 
wyrażeniami stałymi, reprezentuje daną o wartości —1 jeśli 
expL nie jest równe expR, albo daną o wartości O w przeciwnym 


razie. 
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Przykład 


reprezentuje daną o wartości -1. 


NOT 


Uznanie, że wyrażenie NOT exp, w którym exp jest wyrażeniem 
stałym, reprezentuje daną powstałą z danej reprezentowanej 
przez exp przez zanegowanie wszystkich bitów jej reprezen— 
Łtacji dwójkowej Czanegowanie polega na zmianie bitu 1 na O 


i odwrotnie). 


reprezentuje daną o wartości 5. 


AND 


Uznanie, że wyrażenie expL AND expR, w którym expL i expR są 
wyrażeniami stałymi, reprezentuje daną powstałą z danych 
reprezentowanych przez expL i expR przez równoległe wyznacze- 
nie iloczynu logicznego na wszystkich odpowiadających sobie 
bitach ich reprezentacji dwójkowych Ciloczyn bitów jest bitem 
1 tylko wtedy, gdy oba argumenty są bitami 1). 


Przykład. 


reprezentuje daną o wartości 2. 


OR 


Uznanie, że wyrażenie expL OR expR, w którym expL i expR są 
wyrażeniami stałymi, reprezentuje daną powstałą z danych 
reprezentowanych przez expL i expR przez równoległe wyzna 


czenie sumy logicznej na wszystkich odpowiadających sobie 
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bitach ich reprezentacji dwójkowych (suma logiczna bitów jest 
bitem O tylko wtedy, gdy oba argumenty są bitŁami ODJ. 


Przykład 


reprezentuje daną o wartości 14. 


XOR 


Uznanie, że wyrażenie expL XOR expR, w którym exQpL i expR są 
wyrażeniami stałymi, reprezentuje daną powstałą z danych re— 
prezentowanych przez expL i expR przez równoległe wyznacze— 
nie różnicy symetrycznej na wszystkich odpowiadających sobie 
bitach ich reprezentacji dwójkowych Cróżnica symetryczna bi — 
tów jest bitem 1 tylko wtedy, gdy oba argumenty są różnej. 


Przykład 


reprezentuje daną o wartości 1i2. 


SHORT 


Uznanie, że wyrażenie SHORT exp, w którym exp jest wyrażeniem 
stałym, reprezentuje przemieszczenie, które różni się od bie- 
żącego przemieszczenia we właśnie kompilowanym segmencie o 


nie więcej niż 127 i nie mniej niż —128. 


Przykład 


Napis 
jmp short Lab 


jest rozkazem skoku krótkiego. 
Uwaga: Wyrażenia takie jak na przykład 


OFFSET Fix 


- 


SEG Fix 


w których Fix jest etykietą zmiennej, są istotnie wyrażeniam 
stałymi. Wartość pierwszego z nich (określająca przemieszcze- 
nie w segmencie przykładowej zmiennej Fix) jest bowiem znana 
już na etapie kompilowania programu, a wartość drugiego 

(określająca numer segmentu, w którym znajduje się rozpatry- 


wana zmienna) jest znana w momencie ładowania programu. 


Przykłady Wyrażenia 


(After — Before) / 2 
WORD PTR Fix + 1 

Fix EQ Res 

2 + -3 


Deklarowanie nazw stałych 


Do deklarowania nazw stałych służą dyrektywy EQU i = Crówna 
się). Za pomocą dyrektywy EQU można deklarować nazwy znaków, 
nazwy literałów znakowych, nazwy liczb oraz etykiet, a za 
pomocą dyrektywy = Crówna stę) można deklarować jedynie nazwy 


liczb. 

W ogólnym przypadku dyrektywa EQU ma postać 
name EQU exp 

a dyrektywa = Crówna się) ma postać 
name = exp 


których name jest deklarowaną nazwą stałej, a exp jest wyra- 
żeniem stalym. Zabrania się, aby identyfikator stanowiący 

nazwę stałej zadeklarowanej za pomocą dyrektywy EQU był de- 
klarowany ponownie. Ograniczenie to nie dotyczy nazwy stałej 


zadeklarowanej za pomocą dyrektywy = Crówna stę). 
Przykłady Deklarowanie stałych 


W zasięgu deklaracji 


Fix DW 13 
Lab : mov ax,2 


są poprawne m.in. następujące deklaracje stałych 
Count = O 
Higher EQU OFFSET Fix + 1 


Greet EQU "Hello" 
Lower EQU Higher — 1 
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Count = Count + 1 
Next EQU Lab + 2 


Predefiniowany symbol $% 


Predefiniowany symbol $ (dolar) należy do tej samej kategorii 
co omówione uprzednio symbole ©Data, ©FarData, itp. Symbol 
ten jest nazwą stałej, o wartości równej aktualnemu prze— 


mieszczeniu we właśnie kompilowanym segmencie. 


Przykład. Użycie symbolu $% 


Greet DB "Hello world? 
Span EQU $ - Greet ; Span = 11 


Adresowanie zmiennych 


W dotychczasowych przykładach ograniczano się do pos— 
ługiwania bardzo prostymi adresami danych i rozkazów. W 
ogólnym przypadku adres danej może być przedstawiony za 


pomocą wyrażenia o postaci 
baza + tLndekRs + przemieszczenie 


w której baza i tndeks są odpowiednio nazwami rejestru bazo— 
wego CBX, BP) i indeksowego CSI, DID, a przemieszczenie jest 


dowolnym wyrażeniem stałym. 


Przykład Adresowvanie zmiennej 


Jeśli przyjąć, że w zasięgu dyrektywy uproszczonej .DATA 


znajduje się deklaracja 
Greet DB *”Hello" 


oraz że w rejestrze DS znajduje się numer segmentu ©Data, 
umieszczony tam na przykład za pomocą pary rozkazów 

mov ax,OoData 

mov ds,ax 


to wykonanie każdej z następujących sekwencji rozkazów 


spowoduje załadowanie do rejestru al takiej samej danej 


15 mov al,'o' 
23) mov al,[Greet + 4J 


33 mov si,COFFSET Greet> + 4 
mov al,[sil 


43) mov bx,OFFSET Greet + 4 
mov al,(bx]l 
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50 mov Ssi,OFFSET Greet 
mov bx,4 
mov al,[si+bx] 


10 mov di,i 
mov bx,1 
mov al,l[bx + Greet + di + 2] 


70 mov bp,i 
mov di,OFFSET Greet + 2 
mov al,l[ds : bp + di + 1] 


Adres zmiennej powinien być wyrażony w taki sposób, aby wys- 
tępowała zgodność typu zmiennej i użytego rozkazu. W szcze- 
gólności oznacza to, że do zmiennej S-bitowej można odwołać 
się tylko za pomocą rozkazu do ładowania danych 8-bitowych, 
a odesłanie danej z pamięci na stos procesora może dotyczyć 
jedynie danej przypisanej zmiennej 156-bitowej. Wymaga się 
ponadto, aby na podstawie analizy zapisu rozkazu można było 


wywnioskować rozmiar danych, których dotyczy ten rozkaz. 


W celu spełnienia przytoczonych wymagań zachodzi niekiedy 
potrzeba posłużenia się operatorami grupy type PTR, których 
użycie w kontekście 


type PIR exp 


powoduje przekształcenie wyrażenia exp do typu type. 


Przykłady Konwersja typu wyrażenia 
a Jeśli w zasięgu dyrektywy 
Fix DW 13 
znajduje się rozkaz pobrania danej 8-bitowej 


mov al,[Fix] 


to jest on użyty niepoprawnie, ponieważ Fix reprezentuje daną 
16-bitową. Błąd ten można poprawić, zastępując rozpatrywany 


rozkaz rozkazem 


mov al,C[byte ptr Fix] 


b Rozkaz o postaci 
inc [lbx] 


jest niepoprawny, ponieważ na podstawie jego analizy nie 


można wywnioskować czy dotyczy zmiennej S-bitowej czy 
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156-bitowej. W pierwszym przypadku należy go przedstawić w 


postaci 
inc Cbyte ptr bx] 
a w drugim w postaci 


inc [word ptr bx] 


c Przyjmuje się, że rozkaz o postaci 
mov ax,[bx] 


jest poprawny, ponieważ na podstawie jego analizy można 
wywnioskować, jaki jest rozmiar danej której dotyczy 
C16-bitów. 


d Rozkaz o postaci 
push Fix 


w którym Fix jest nazwą zmiennej typu BYIE jest niepoprawny, 
ponieważ na stosie mogą być umieszczane tylko słowa. Błąd 


ten można poprawić, zastępując rozpatrywany rozkaz rozkazem 


push word ptr Fix 


Adresowanie rozkazów 


Adresowanie rozkazów pozostaje w związku z wykonywaniem 
skoków i wywoływanie procedur. Jeśli w rozkazie skoku 
występuje słowo kluczowe SHORT, to jest kompilowany skok 
krótki, a jeśli występuje słowo kluczowe NEAR, to jest 
kompilowany Skok błtskti. 


W każdym z tych przypadków, wykonanie skoku powoduje jedynie 
zmianę zawartości rejestru IP i nie narusza rejestru CS 
(rozkazy krótkie zajmują mniej miejsca niż bliskie, ale 
umożliwiają wykonanie Skoku na odległość nie więcej niż 128 
bajtów od miejsca wystąpienia rozkazu). 


Jeśli w rozkazie występuje słowo kluczowe FAR, to jest kom- 
pilowany skok daleki. Jego wykonanie powoduje załadowanie 
zarówno rejestru CS jak i IP. 


Podczas kompilowania rozkazów skoku, które nie zawierają 
wymienionych tu słów kluczowych, domniemywa się słowo klu— 
czowe NEAR, chyba skok odbywa się do znanej już etykiety, 
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która ma atrybut FAR. W takim przypadku jest kompilowany Skok 


daleki. 


Uwaga: Należy unikać bliskich i krótkich rozkazów skoków 


międzysegmentowych, ponieważ ich użycie nie ma w większości 


przypadków sensu. 
Przykład 


ASSUME CS: Codei 
Codei SEGMENT 


Start: 
jmp short Labi 


Lab3: 
jmp Lab4 


Lab6 LABEL FAR 
jmp near ptr Lab7 


Lab8 LABEL FAR 
mov ax,4CcOO0h 
int 21h 


Lab? LABEL FAR 
Jjmp short Lab8 


Labi: 
Jjmp far ptr Lab2 


Lab4: 
Jjmp far ptr Lab5 


Codeli ENDS 
ASSUME CS: Code2 
Code2 SEGMENT 


Lab2: 
Jmp far ptr Lab3 


Lab5 LABEL FAR 
jmp Lab6 


Code2 ENDS 


Stack_ SEGMENT STACK 
DB 1O0h DUPC?) 
Stack_ ENDS 


END Start 


15.3. Procedury 


jmp shoft Lab4 i nop 


wymagane near ptr 


bez short byłoby far ptr 


albo ASSUME CS: NOTHING 


jmp far ptr LabSG 


Procedura jest częścią programu realizującą wyodrębiony frag” 


ment algorytmu. Jest tak skonstruowana, aby mogła być wywoły- 


wana z różnych miejsc programu oraz aby po jej wykonaniu mógł 


nastąpić powrót w miejsce jej wywołania. 
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Wywołanie procedury odbywa się za pomocą rozkazu call. Wyko-— 
nanie go ma podobny skutek jak wykonanie rozkazu jmp, z tą 
różnicą, że dodatkowo następuje przesłanie na stos procesora 
śladu wywolania procedury, to jest bliskiego albo dalekiego 
adresu tego bajtu pamięci, który następuje bezpośrednio po 


rozkazie call. 


Adres bliski składa się wyłącznie z przemieszczenia w seg— 

mencie, a adres daleki składa się z numeru segmentu i prze— 
mieszczenia. W przypadku, gdy ślad jest adresem dalekim, na 
stos jest najpierw przesyłany numer segmentu, a następnie 


przemieszczenie w segmencie. 


Powrót z procedury wywołanej ze śladem bliskim odbywa się za 
pomocą rozkazu retn, a powrót z procedury wywołanej ze śladem 
dalekim odbywa się za pomocą rozkazu retf. Jeśli zostanie 
użyty rozkaz ret, to będzie potraktowany jak retn albo retf, 
stosownie do tego, czy procedura została zadeklarowana jako 


bliska czy daleka. 
Deklaracja procedury ma Ćw uproszczeniu) postać 


name PROC tŁype 
body 
name ENDP 
w której name jest etykietą procedury, type jest określeniem 
typu procedury CNEAR — bliska, FAR — daleka) a body jest 


ciałem procedury. 


Zinterpretowanie deklaracji procedury powoduje wygenerowanie 


kodu określonego przez ciało procedury. 


Jeśli w nagłówku albo w ciele procedury występuje wyszcze— 
gólnienie jej argumentów, to w modelu IPASCAL (dla proceso— 


rów 8088 i 80862 domniemywa się ciało procedury o postaci 

push bp prolog procedury 
mov bp,sp 
body 


a każdy rozkaz ret procedury występujący w body zastępuje się 
parą rozkazów 


pop bp ; epilog procedury 
retf size 


w której size jest liczbą określającą rozmiar obszaru zajęte- 


go przez argumenty. Tak domniemany prolog i epilog procedury 
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podlega niekiedy optymalizacji Cnp. puste ciało procedury 


generuje jedynie rozkaz retf). 


Typ procedury 


Pominięcie w nagłówku procedury napisu type powoduje uznanie 
jej za bliską, chyba że deklaracja znajduje się w zasięgu 
dyrektywy .MODEL, kiedy to 


dla modeli TINY, SMALL, COMPACT 


procedura jest uznawana za bliską, 


dla modeli MEDIUM, LARGE, HUGE oraz dla modelu TPASCAL 


procedura jest uznawana za daleką. 


Wymaga się, aby wywołanie procedury bliskiej odbywało się 
ze śladem bliskim, a wywołanie procedury dalekiej odbywało 
się ze śladem dalekim. Ślad bliski jest tworzony wtedy, gdy 
argument rozkazu call jest 1i56-bitowy, a ślad daleki jest 
tworzony wtedy, gdy argument jest 32-bitowy. 


Przykłady Wywolywanie procedur 


(ten nieco udziwniony program ma na celu jedynie zilustowanie 
różnych wariantów rozkazu call) 


. MODEL LARGE 
„STACK 1OOh 
. DATA 
Ref DW Rise 
DD BigRise 
. CODE 
Rise PROC NEAR 
inc cl 
and cl,cl 
jz FarExit 
ret 
BigRise: 
add cl,1i0O 
retf 
Move LABEL FAR 
mov al,cl 
FarExit: 
retf 
Rise ENDP 
Start: 
mov ax,OData 
mov ds,ax 
mov cl,-1 
call far ptr Rise 
call Rise 
mov ax,OFFSET Rise 
call ax 
mov bx,OFFSEIT Ref 
call (word ptr bx]j 


wywołanie dalekie 
, wywołanie bliskie 


: wywołanie bliskie 


, wywołanie bliskie 
4396 


mov bx,2 
call [dword ptr Ref + bx] ; wywołanie dalekie 
call Move ; wywołanie dalekie 
mov ah,4ch 
int 21h 

END Start 


Wykonanie programu kończy się z kodem powrotu 13. 


Odwołania w przód 


Jeśli wywołanie dotyczy procedury, której typ nie jest jesz— 
cze znany CTurbo Assembler jest kompilatorem jednoprzebiego— 
wym, to w modelu MEDIUM, LARGE, HUGE i TPASCAL wymaga się 


jawnego podania typu procedury, np. 
call far ptr Routine 


a w pozostałych przypadkach domniemywa się typ near. Wymaga 
się, aby podany albo domniemany typ procedury był zgodny z 
typem faktycznym. 


Przykład Odwolanie w przód 


. MODEL TPASCAL 
. CODE 
Start: 
call far ptr Nil 
mov ah,4ch 
int 21h 
Nil PROC 
ret 
Nil ENDP 
„STACK 1OOh 
END Start 
Przytoczony program jest poprawny. Gdyby z rozkazu wywołania 
procedury usunięto operator far ptr, to program stałby się 


błędny. 


15.3.1. Deklarowanie argumentów i rezultatów 


Sposób przekazywania procedurze argumentów i odbierania re— 
zultatów zależy od programującego. Argumenty są zazwyczaj 
przekazywane w rejestrach albo na stosie procesora i stamtąd 
odbierane. Należy pamiętać, że na stosie znajduje się ślad 
wywołania procedury. W momencie wykonywania rozkazu powrotu z 
procedury Ślad ten musi znajdować się na szczycie stosu pro- 


CEeSsOTr a. 
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Przywróceniem wskaźnika stosu SP do stanu w jakim znajdował 
się on przed odesłaniem na stos argumentów procedury może 
zajmować się zarówno procedura wywoływana jak i wywołująca. 
w procedurach napisanych w języku Turbo Pascal zastosowano 
pierwsze, a w procedurach napisanych w języku Turbo C 


zastosowano drugie z tych rozwiązań. 


W każdym z wymienionych języków argumenty są przekazywane za 
pośrednictwem stosu, a rezultaty procedur funkcyjnych są po- 
zostawiane w rejestrach CAL, AX, DX-AX, DX-BX-AXD, na stosie, 


albo w statycznym obszarze pamięci. 


W celu ułatwienia wykonywania operacji na argumentach pro- 
cedur, przekazanych im w sposób przyjęty w językach wysokiego 
poziomu, wprowadzono w języku Turbo Assembler dwie dyrektywy 
pomocnicze: ARG i LOCAL. 


Dyrektywa ARG 
Dyrektywa ARG ma postać ogólną 
ARG arg,arg, ... ,arg = stze REIURNS res, res, ... „res 


w której każde arg jest opisem argumentu procedury, każde res 
jest opisem rezultatu Cktóry po zakończeniu wykonywania pro- 
cedury będzie pozostawiony na stosie procesora), a size jest 
identyfikatorem, z którym zostanie związana liczba określają- 
ca rozmiar obszaru zajmowanego na stosie procesora przez ar- 
gumenty arg. W rozpatrywanej dyrektywie musi wystąpić co naj” 


mniej jeden opis arg, ale każdy z napisów = size oraz 
RETURNS res,res, ... ,res 

może być pominięty. 

Argumenty powinny być wymienione w takiej kolejności, w ja- 


kiej występowałyby w języku wysokiego poziomu Ca więc zawsze 
od lewej do prawej), mimo iż przyjmuje się, że 


w przypadku modelu IPASCAL 


pierwszy argument znajduje się pod najwyższym adresem, 


w pozostałych przypadkach Cw tym braku dyrektywy . MODEL0D 


pierwszy argument znajduje się pod najniższym adresem. 


Przyjmuje się, że niezależnie od użytego modelu, pierwszy 


rezultat znajduje się pod najniższym adresem. 
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Każdy z opisów argumentu i rezultatu ma jedną z następujących 


postaci 
name 
name : type 
name : Łype : count 


w których name jest identyfikatorem Clokalnym w danej pro- 
cedurze), łype jest oznaczeniem typu, a count jest liczni — 


kiem zmiennych typu type. 


Jeśli typ zmiennej jest wskazujący, to zaczyna Się zazwyczaj 
od słów kluczowych NEAR PTR albo FAR PTR Cnp. FAR PIR WORD 
jest dalekim wskazaniem zmiennej typu WORD). Jeśli zaczyna 
się od słowa kluczowego PTR, to dla modeli IINY, SMALL, MED-— 
IUM i TPASCAL domniemywa Się NEAR, a dla modeli COMPACT, 
LARGE i HUGE domniemywa się FAR. Jeśli określenie typu zos— 
tanie pominięte, to domniema się typ WORD. 


Licznik count jest wyrażeniem stałym określającym liczbę 
zmiennych podanego typu. Jeśli zostanie pominięty, to dom— 
niema się licznik o wartości 1, chyba że typem argumentu 
jest BYTE, kiedy to domniema się licznik o wartości £. [o 
nieco dziwne domniemanie wynika z faktu, że przesyłanie na 


stos odbywa się zawsze parami bajtów. 


Zinterpretowanie dyrektywy ARG powoduje związanie z każdym 


identyfikatorem name, napisu o postaci 
[bp + o//jsetj 


w którym o//set jest odległością najmniej znaczącego bajtu 
zajmowanego przez rozpatrywany argument albo rezultat, od 
najmniej znaczącego z pary bajtów, do których w prologu pro- 


cedury przesłano rejestr BP. 


Dyrektywy ARG mogą w danej procedurze występować wielokrot— 
nie. Zezwala się również na umieszczenie takiej dyrektywy 
bezpośrednio w nagłówku procedury, ale bez słowa kluczowego 
ARG. Jeśli w więcej niż jednej z takich dyrektyw występuje 
pewien identyfikator argumentu, to przyjmuje się, że związa— 
nie z liczbą dotyczy tylko ostatniego jego wystąpienia. W 


szczególności oznacza to, że para dyrektyw 


ARG i: WORD, j: DWORD, k 
ARG j,i 
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jest traktowana tak jak para dyrektyw 


ARG dummy: BYTE: 6,k 
ARG j,i 


w której dumny jest unikalnym identyfikatorem nie występu- 
jącym w danej procedurze. 
Przykłady Użycie dyrektywy ARG 
a Prosta dyrektywa ARG w modelu TINY 
ARG i:byte, j 


„mov al,i + równoważne mov al,l[bp+4J 
add al,byte ptr j ; równoważne add al,[byte ptr bp+6] 


Przyjmuje się, że bezpośrednio po odesłaniu na stos 


procesora rejestru BP znajduje się tam 


BP — pod adresem SS:SP+O C2 bajty), 
ślad — pod adresem SS: SP+2 C2 bajty, 
i — pod adresem SS: SP+4 C2 bajty), 
J — pod adresem SS: SP+6 C2 bajty). 


b Dyrektywa ARG w modelu TPASCAL 
ARG a:word, b:far ptr qword:4, c:dword = s 


mov ax,a +: mov ax, [bp+26] 

mov al,byte ptr a mov al,lbyte ptr bp+26] 
les si,b les si,l[bp+10O] 

mov bx,word ptr c mov bx,l[word ptr bp+6] 
mov ax,S mov ax,2e 


Przyjmuje się, że bezpośrednio po odesłaniu na Stos rejestru 
BP, znajduje się tam 


BP — pod adresem SS: SP+O (C2 bajty, 
ślad — pod adresem SS:SP+2e (4 bajtyJ, 
c — pod adresem SS: SP+6 (4 bajtyJ, 
b — pod adresem SS: SP+1O C16 bajtów, 
a — pod adresem SS: SP+26 C2 bajtyJ. 


c Dyrektywa ARG w modelu LARGE 
ARG a:word, b:far ptr qword:4, c:dword = s 


MOV ax;a 
mov al,byte ptr a 
les si,b 
mov bx,word ptr c 
mov aXx,S 


mov ax,l[bp+SŚ] 

mov al,Cbyte ptr bp+6J 
les si,Llbp+8] 

mov bx,lword ptr bp+r24dl 
mov ax,e2 
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Przyjmuje się, że bezpośrednio po odesłaniu na stos rejestru 


BP, znajduje się tam 


BP - pod adresem SS:SP+O (C2 bajty), 
slad -— pod adresem SS: SP+e (4 bajty), 
a — pod adresem SS: SP+6 C2 bajty), 
b — pod adresem SS: SP+8 (C16 bajtów, 
c — pod adresem SS: SP+24 (4 bajtyJ. 


d Dyrektywa ARG z frazą RETURNS 
ARG a:byte RETURNS p: byte:1 ,q: word 


W modelu SMALL przyjmuje się następującą interpretację zawar— 


tości stosu 


BP — pod adresem SS: SP+0O C2 bajty), 
ślad — pod adresem SS: SP+e C2 bajty), 
a —- pod adresem SS:SP+4 Ce bajty), 
p — pod adresem SS: SP+6 C1 bajt), 
q - pod adresem SS: SP+7 C2 bajtyJ. 


e Program z dyrektywą ARG Cmodel IPASCAL5DJ 


SŁack_ SEGMENT STACK 
DB 1OOh DUPC?D 

SŁack_ ENDS 

.MODEL TPASCAL 


. CODE 
Select PROC a: WORD,b: WORD 
mov ax,a : mov ax,[bp+8] 
shl ax,1 
add ax,b +: mov ax,lbp+GJ 
ret ; retf 4 
Select ENDP 
Start: 
mov ax,e2 
push ax 


mov ax,3 
push ax 
call Select  ; return code 7 
mov ah,4dch 
int 21h 
END Start 


f Program z dyrektywą ARG (model LARGED 


. MODEL LARGE 
. CODE 


Select PROC a: WORD,b: WORD 
push bp 
mov bp,Sp 
mov ax,a : mov ax,[bp+6] 
shl ax,1 
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add ax,b + add ax, [bp+8] 


pop bp 
ret , retf 
Select ENDP 


Start: 
mov ax,e 
push ax 
mov ax,3 
push ax 
call Select ; return code 8 
add sp,4 
mov ah,4ch 
int 2ih 

„STACK 1OOh 

END Start 


Dyrektywa LOCAL 
Dyrektywa LOCAL ma postać ogólną 
LOCAL arg,arg, ... ,arg = stze 


w której każde arg jest opisem lokalnej zmiennej procedury, a 
stze jest identyfikatorem, z którym zostanie związany rozmiar 
obszaru zajmowanego przez zmienne lokalne Cwyrażony w 
bajtach). 


Każde arg ma jedną z następujących postaci 


name 
name : type 


name : Łype : count 


o takiej samej interpretacji napisów name, type i counł jak w 


dyrektywie ARG. 


Zinterpretowanie dyrektywy LOCAL powoduje związanie z każdym 


identyfikatorem name, napisu o postaci 
[bp — o/fset] 


w którym o/fset jest odległością najmniej znaczącego bajtu 
zajmowanego przez rozpatrywany argument albo rezultat, od 
najmniej znaczącego z pary bajtów, do których w prologu pro- 


cedury przesłano rejestr BP. 


Przyjmuje się, że zmienne wymienione w dyrektywie LOCAL są 


umieszczone na stosie w taki sposób, aby 


w modelu TPASCAL 


pierwsza zmienna znalazła się pod najniższym adresem, 
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w pozostałych przypadkach (w tym braku dyrektywy . MODELD 


pierwsza zmienna znalazła się pod najwyższym adresem. 


Wbrew temu co można by przypuszczać, zinterpretowanie dyrek— 
tywy LOCAL nie powoduje faktycznego zarezerwowania miejsca 
dla zmiennych lokalnych procedury. Wyjątek od tej zasady do— 
Łyczy modelu IPASCAL, w którym następuje wygenerowanie roz-— 


kazu 
sub sp,stze 


w którym size jest jawnym albo domniemanym identyfikatorem z 
którym związano liczbę określającą rozmiar obszaru zmiennych 


lokalnych. 


Pozostaje dodać, że dyrektywy LOCAL mogą w danej procedurze 
występować wielokrotnie. W takim przypadku przyjmuje się, że 
każda para następujących po sobie dyrektyw, np. 


LOCAL argil,argl, ... , argli 


LOCAL arge,argo, ... „arge 
jest równoważna dyrektywie 


LOCAL argi,argi, ... ,argi , arg2,arge, ... ,arge 


Przykłady Użycie dyrektywy LOCAL 


a Dyrektywa LOCAL poza zasięgiem dyrektywy . MODEL 
LOCAL a:near ptr word:5, b:byte:3 


mov ax,a -: równoważne mov ax,l[bp-10]J 
mov al,b+1 -: równoważne mov al,l[bp-12] 


b Program z dyrektywą LOCAL Cmodel IPASCAL5D) 


Stack _ SEGMENT STACK 
DB 1OOh DUPC?0) 
Stack_ ENDS 


„MODEL TPASCAL 
. CODE 


Select PROC 
LOCAL a: WORD, b: WORD 


mov a,2 : mov C(bp-4J,2 
mov b,3 : mov C(bp-2],3 
mov ax,l[bp-2] 

ret ; retf 4 


Select ENDP 
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Start: 
call Select : return code 3 


mov ah,4dch 
int 21h 
END Start 


c Program z dyrektywą LOCAL Cmodel LARCED 
. MODEL LARGE 
. CODE 


Select PROC 

LOCAL a: WORD, b: WORD 
push bp 
mov bp,sp 
mov a,2 ; mov [(bp-2l,e 
mov b,3 , mov [bp-4],3 
mov ax,l[bp-2] 


pop bp 
ret : retf 
Select ENDP 


Start: 
call Select ; return code 2 
mov ah,4dch 
int 21h 

„STACK 1O00h 

END Start 


15.3.2. Programowanie hybrydowe Assembler -— Pascal 


Program napisany w języku Turbo Pascal składa się (w kolej- 
ności ich występowania w pamięci operacyjnej) z następują 


cych części 


— przedrostka programu CPSPDJ, 

— segmentu kodu modułu głównego CCODED>, 
— segmentów kodu modułów bibliotecznych, 
— segmentu kodu biblioteki rezydentnej, 
— segmentu danych globalnych CDATAD,;, 

— segmentu stosu, 

— bufora nakładkowania, 


—- sterty. 


Pierwszy bajt przedrostka programu jest wskazywany przez pre” 
deklarowaną zmienną globalną PrefixSeg. Każdy z segmentów nie 
może oczywiście zajmować więcej niż 64 KB pamięci, ale ich 


łączny rozmiar nie przekracza 1 MB. 


Domniemanym rozmiarem segmentu stosu jest 16 KB, a domni ema— 


nym rozmiarem sterty jest liczba bajtów pamięci znajdujących 
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się ponad stosem. Rozmiar stosu i sterty może być jawnie ok- 


reślony za pomocą dyrektyw procesora. 


Rejestry 


Procedura wywołana z modułu pascalowego musi zachować rejest— 
ry: DS, SS, SP i BP. Przyjmuje się, że rejestr DS zawiera nu- 
mer segmentu danych globalnych, rejestr SS zawiera numer seg-— 
mentu stosu, a rejestr BP zawiera Cprzed wykonaniem prologu 
procedury) wskazanie tego miejsca na stosie procesora, gdzie 
jest przechowany rejestr BP tej procedury która wywołała daną 


procedurę. 


Zmienne, etykiety, procedury 


Zmienne i procedury zadeklarowane w module głównym na zew— 
nątrz procedur oraz zmienne i procedury zadeklarowane w częś— 
ci publicznej modułu bibliotecznego, mogą stać się dostępne w 
module asemblerowym. Warunkiem dostępności jest posłużenie 


się w module asemblerowym dyrektywą EXTRN. 


zmienne zadeklarowane w module asemblerowym są dostępne przez 
ich nazwy tylko w tym module. Nic jednak nie stoi na przesz— 
kodzie odwoływania się do nich za pośrednictwem procedur albo 
globalnych zmiennych wskazujących. Wymaga Się, aby rozpatry- 
wane zmienne były deklarowane bez przypisywania im danych po— 


czątkowych. 


Etykiety zadeklarowane w module pascalowym nie są dostępne w 
module asemblerowym. Etykiety zadeklarowane w module asem— 
blerowym mogą być dostępne w module pascalowym tylko wtedy 
gdy są etykietami procedur. 


Procedura zadeklarowana w module asemblerowym jest wtedy i 


Łylko wtedy dostępna w module pascalowym, gdy 


— w module asemblerowym identyfikator procedury występuje w 
dyrektywie PUBLIC albo GLOBAL, 

— w module pascalowym występuje deklaracja zapowiadająca 

tej procedury ze słowem kluczowym external, 

— w module pascalowym występuje dyrektywa kompilatora 
określająca nazwę tego zbioru z rozszerzeniem .OBJ, w którym 


znajduje się skompilowana procedura asemblerowa. 
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Procedury zadeklarowane w module głównym oraz procedury zade- 
klarowane w części prywatnej modułów bibliotecznych są przez 
domniemanie bliskie, a procedury zadeklarowane w części pu- 

blicznej modułów bibliotecznych są przez domniemanie dalekie. 
Fakt Łen musi być uwzględniony podczas wywoływania ich z mo- 


dułu asemblerowego. 


Argumenty i rezultaty 


Argumenty procedury pascalowej są przekazywane na Stosie pro- 
cesora i koprocesora. Rezultaty są pozostawiane w rejestrach, 


na stosie procesora, albo na stosie koprocesora. 
Jeśli parametr jest kojarzony ze stałą, to 


- argument typu porządkowego, argument Łypu real i argument 
typu wskazującego jest przekazywany na stosie procesora (Cjeś- 
li jest typu byte, to przed wykonaniem tej czynności jest u- 
zupełniany bardziej znaczącym bajtem o wartości nieokreślo- 
nej); 

— argument typu single, double, extended i comp jest prze- 
kazywany na stosie koprocesora; 

— argument typu łańcuchowego jest przekazywany za pośred— 
nictwem wskazania umieszczonego na stosie procesora; 

- argument typu tablicowego i rekordowego o rozmiarze i, 2 
albo 4 bajty jest przekazywany na stosie procesora; pozostałe 
argumenty tego typu Ćw tym argument 3-bajtowy) są przekazywa- 
ne za pośrednictwem wskazania umieszczonego na stosie proce- 
sora; 

— argument typu mnogościowego jest przekazywany za pośred— 
nictwem wskazania jego 32-bitowego odpowiednika, umieszczo- 


nego na stosie procesora. 


Jeśli parametr jest kojarzony ze zmienną, to niezależnie od 


typu argumentu, na stosie jest umieszczane jego wskazanie. 


Uwaga: Argumenty jednobajtowe są przekazywane jako dwubaj— 


towe, z nieokreślonym bajtem bardziej znaczącym. 


Rezultat procedury funkcyjnej jest pozostawiany w następują- 
cych miejscach 

— rezultat typu porządkowego jest pozostawiany w rejestrze 
AL Cjeśli jest 1-bajtowy), w rejestrze AX Cjeśli jest —2-baj- 
Łowy, w parze rejestrów DX-AX Cjeśli jest 4-bajtowy); 
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—- rezultat typu real jest pozostawiany w DX-BX-AX; 

— rezultat typu single, double, extended i comp jest pozos— 
Ławiany na szczycie stosu koprocesora; 

— rezultat typu łańcuchowego jest pozostawiany na stosie 
procesora, w miejscu zarezerwowanym przed wywołaniem proce— 
dury; 


— rezultat typu wskazującego jest pozostawiany w DX-AX. 


zaleca się stosowanie następujących skojarzeń parametrów i 


argumentów procedur 


Turbo Pascat łurbo Assembler 


byte BYTE 
word WORD 
shortint BYTE 
integer WORD 
real FWORD 
single DWORD 
double QWORD 
extended IBYTE 
comp QWORD 
pointer DWORD 


Przykłady Programy hybrydowe 


a Prosty program hybrydowy 
modul pascalowy 


program Simple; 

<$L Libra> 

function Fun : integer; 
external; 

begin 
WritelnCFunD) 

end. 


modul asemblerovy Libra 


.MODEL TPASCAL 

PUBLIC Fun 

. CODE 

Fun PROC NEAR 
mov ax,1i13 
ret 

Fun ENDP 

END 


Wykonanie programu powoduje wyprowadzenie liczby 13. 


b Komunikowanie się programów 
modut pascalowy 


program Mixed; 

C$L LIB. OBJ> 

procedure PutŁCFix : integer); 
external; 
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function GetCvar Res : integer. : integer; 
external; 
var 
Res : integer; 
begin 
Putl130); 
WritelnCGetCResD); 
WritelnC(ResJ) 
end. 


modut asemblerowy LIB 


„MODEL TPASCAL 
PUBLIC Get ,Put 
. DATA 
Loc DW ? 
. CODE 
Put PROC NEAR 
ARG Val : WORD 
mov ax,Val 
mov Loc,ax 
ret 
Put ENDP 
Get PROC NEAR Ref : DWORD 
les di „Ref 
mov ax,lLoc 
mov [es : dil,ax 
ret 
Get ENDP 
END 


15.3.3. Programowanie hybrydowe Assembler — C 


Program napisany w języku Turbo C składa się (w kolejności 
ich występowania w pamięci operacyjnej) z następujących 
części 


—- przedrostka programu CPSPJ, 

— segmentów klasy 'CODE?, 

—- segmentów, które nie są klasy "CODE? i nie należą do 
grupy DGROUP, 

— segmentów grupy DGROUP, które nie są klasy "STACK, 

— w modelach TINY, SMALL i MEDIUM obszaru bliskiej sterty, 
— segmentu stosu, 

— w modelach COMPACT, LARGE i HUGE obszaru dalekiej sterty. 


Rejestry 


Procedura wywołana z modułu c—owego musi zachować rejestry 
DS, SS, SP i BP. Jeśli w module c-owym są wykorzystywane jako 
zmienne rejestrowe rejestry SI i DI, Ło również i one muszą 


być zachowane przez procedurę asemblerową. 
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W chwili wywołania procedury c—owej, w rejestrze DS znajduje 


się następujący numer segmentu 


Model DS 
TINY dgroup 
SMALL dgroup 


COMPACT  dgroup 
MEDI UM dgroup 
LARGE dgroup 
HUGE cfjtle_DATA 
(dgroup jest nazwą segmentu, który jest pierwszym segmentem 


grupy DGROUP, a c/jtle jest nazwą wywoływanego modułuDJ. 


Przyjmuje się, że rejestr SS zawiera numer segmentu stosu, a 
rejestr BP zawiera Cprzed wykonaniem prologu procedury) wska— 
zanie tego miejsca na stosie procesora, gdzie jest przechowa— 


ny rejestr BP procedury wywołującej. 


Zmienne, funkcje, etykiety 


le zmienne i funkcje zadeklarowane w module c-owym, które są 
klasy extŁern mogą stać się dostępne przez ich identyfikatory 
w module asemblerowym. Warunkiem dostępności jest posłużenie 
się w module asemblerowym dyrektywą EXTRN, w której identyfi— 
kator zmiennej albo funkcji c-owej jest poprzedzony znakiem 


_ CpodkreślenieJ). 


Zmienne, funkcje i etykiety zadeklarowane w module asemblero— 
wym mogą stać się dostępne przez ich identyfikatory w module 
c-owym. Warunkiem dostępności jest, aby każdy taki identy— 
fikator 


— w module asemblerowym zaczynał się od znaku _ Cpodkres— 
lenie), 

— w module asemblerowym został wymieniony w dyrektywie 
PUBLIC albo GLOBAL, 

— w module c—owym został wymieniony w dyrektywie extern. 


Zaden identyfikator etykiety zadeklarowany w module c—owym 
oraz żaden identyfikator klasy auto, register i static nie 


może stać się dostępny w module asemblerowym. 


Uwaga: Kompilacja modułu asemblerowego musi być wykonana z 
opcją MX albo /ML, a w systemie Turbo C musi być utworzony 
projekt, w którym zostanie wymieniony moduł c-owy oraz moduł 


asemblerowy Z rozszerzeniem .OBJ. 


S09 


Argumenty i rezultaty 


Argumenty funkcji c-owej są przekazywane na stosie procesora. 
Rezultaty są pozostawiane w rejestrach. Rezultat 1i-bajtowy 
jest pozostawiany w rejestrze AL, rezultat 2=-bajtowy jest 
pozostawiany w rejestrze AX, rezultat 4-bajtowy Cz wyjątkiem 
rezultatu Łypu float) jest pozostawiany w parze rejestrów 
DX-AX, a rezultat zmiennopozycyjny jest pozostawiany na 
szczycie stosu koprocesora. Rezultat dowolnego innego rodzaju 
Ćw tym struktura 3-bajtowa) jest pozostawiany w obszarze sta- 
Łycznym, ze wskazaniem pozostawionym w rejestrze AX albo w 


parze rejestrów DX-AX. 
Uwaga: Argumenty jednobajtowe są przekazywane jako dwubaj- 


towe, z nieokreślonym bajtem bardziej znaczącym. 


Zaleca się stosowanie następujących skojarzeń parametrów i 


argumentów procedur 


Turbo C Turbo Assembler 

unsigned char BYIE 

char BYTE 

enum WORD 

unsigned short WORD 

short WORD 

unsigned int WORD 

int WORD 

unsigned long DWORD 

long DWORD 

float DWORD 

double QWORD 

long double IBYTE 

near % WORD Coraz type Cnear %0C0 WORD) 
far % DWORD Coraz type (Cfar *0C2 DWORD) 


Przykłady Programy hybrydowe 
a Prosty program hybrydowy 


modul c-owy 


Żinclude <stdio.h> 
extern int FunCvoid); 
mai nCJ 
< 
printfC"hd'",FuncJ); 
return O; 
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nodut asemblerowy 


. MODEL SMALL 

PUBLIC _Fun 

. CODE 

_Fun PROC NEAR 
mov ax,13 
ret 

_Fun ENDP 

END 


Wykonanie programu powoduje wyprowadzenie liczby 13. W celu 


wykonania go należy na przykład: skompilować moduł asem- 


blerowy do zbioru LIBRA. OBJ Cprzynajmniej z opcją /MXJ, 


systemie Turbo C Cna przykład w modelu SMALLDVJ, 
zawierający nazwę LIBRA. OBJ. 


b Komunikowanie się programów 
modul c-owy 


finclude <stdio.h> 

extern void PutŁCint Fix; 

extŁern int GetCint % Res); 

int Res; 

mainCJ 

< 
Put€(13D; 
printfC'%d',GetC(8ResJ)); 
printfC'%d'' ,Res); 
return O; 

> 


modul asemblerowy 


„MODEL LARGE 
PUBLIC _Get,_Put 


. DATA 

Loc DW ? 

. CODE 

_Put PROC 
ARG Val : WORD 
push bp 
mov bp,sp 


mov ax,Val 
mov Loc,ax 
pop bp 
ret 
_Put ENDP , 
_Get PROC Ref : DWORD 
push bp 
mov bp,Sp 
les di „Ref 
mov ax,Loc 
mov [es : di],ax 
pop bp 
ret 
_Get ENDP 
END 


projekt 


a w 
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15.4. Rozkazy 


W ogólnym przypadku, elementami przytoczonych tu opisów 


rozkazów są 


NAZWA 


SRladnia Mnemonika rozkazu i wpływ jego wykonania na stan 
rejestru FL (Ćwymieniono znaczniki aktualizowane, 
jeśli z pytajnikiem -— Ło w sposób nieokreślony) 

Opts Opis skutków wykonania rozkazu 


i 


et Komentarz uzupełniający 
Argumenty Struktura argumentów, ich możliwe postaci 


Przyklad Fragment programu zawierający omawiany rozkaz 


Rozkazy mikroprocesorów Intel 8086 i Intel 80286 Creal mode) 


AAA 
SkRladnia aaa FL: a c, o =? p=? s=? z=? 
Opis Dokonanie korekcji sumy dwóch nieupakowanych cyfr 
w zapisie BCD. 
Uwagi Jeśli AF=1 lub CAL AND OfhD > 9, to są wykonywane 
następujące operacje 
AL := AL + 6 
AH :==AH + 1 
AF := 1, AC :=1 
a w przeciwnym razie operacje 
AF :=O, AC=0O 
Następnie jest wykonywana operacja 
AL := AL AND Ofh 
Argumenty 
brak aaa 
PrzykRtad 
mov ax,3 
add ax, t 
aaa ; AH=1, AL=3, tzn. 9+4=13 


AAD 


SRtadnta aad FL: ps z, a=? c=? o=? 

Opis Przygotowanie dwóch nieupakowanych cyfr w zapisie 
BCD (mniej znaczącej w AL i bardziej znaczącej w 
AH) do wykonania dzielenia, którego rezultat także 
będzie nieupakowany. 


Jwagt Wykonanie następującej operacji 
AL := 1O * AH + AL 
AH :=0O 
Argumenty 
brak aad 
Przyklad 


mov ah,3 


mov al,e2 


aad ; AX=32 
AAM 
Skladnia aam FL: p s z, a=? c=? o=? 
Opts Utworzenie dwóch nieupakowanych cyfr w zapisie BCD 


Cbardziej znaczącej w AH i mniej znaczącej w ALV, 


po wykonaniu mnożenia dwóch cyfr nieupakowanych. 


Uwa gt Wykonanie następujących operacji 
AH := AL DIV 10 
AL := AL MOD 10 
Argumenty 
brak aam 
Przyklad 


mov al,25 
aam ; AH=2, AL=S 


Z 


AAS 


nna ZZO ZZOZ WZ A AZ PZA ANĄ 

SRladnta aas FL: a c, o=? p=? S=? z=? 

Opis Dokonanie korekcji różnicy dwóch nieupakowanych 
cyfr w zapisie BCD. 


17 — Turbo Pascal 5.0 S13 


Uwvagt Jeśli AF=1 lub CAL AND Ofh> > S to są wykonywane 
następujące operacje 
AL := AL - 6 
AH := AH — 1 
AF := 1, CF :=1 
a w przeciwnym razie operacje 
AF :=:O, CFE :=0O 
Następnie jest wykonywana operacja 
AL := AL AND Ofh 
Argumenty 


brak aas 
Przyklad 

mov ax,34h 

sub al,i5h 


aas : AL= OSh 


SkRladnia adc dst,src FL: acopsz 


Opts Wyznaczenie sumy dwóch danych całkowitych i 
przeniesienia. 
Uvagi dst :=5 dst + src + CF 
Argumenty 
reg,con adc bl,3 
mem, con adc [Fix] ,300 
reg,reg adc ah,bl 
reg, mem adc bh,l[byte ptr Fix] 
mem,reg adc (Fix + si + bx + 2],cx 
Przyklad 
mov ax,-1 
shl ax,1i 
adc ax,1 : AX=O 


pzy a o 


ADD 


SRladnia add dst,src FL: aco psz 
Opis Zsumowanie dwóch danych całkowitych. 
Uwagt dst := dst + src 
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reg,con add bl,3 
mem,con add [byte ptr Fix + di]l,300 
reg,reg add ax,ax 
reg,mem add bh,Cbyte ptr Fix] 
mem,reg add [(byte ptr Fix + sil,al 
PrzykRtad 
mov ax,257 
mov bl,3 
add ah,bl ; AH=4 
AND 


Skladnta and dst,src FL: c=O o=0O p s z, a=? 
Opis Wyznaczenie iloczynu logicznego, równolegle na 


wszystkich odpowiadających sobie bitach argumen— 


tów. 
Uwvagt dst := dst AND src 
CF := O, OF :=0 
Argumenty 
reg,con and ax,-1 
mem,con and [byte ptr Fix + 21,Offfh 
reg,reg and ax,ax 
reg, mem and bx,[Fix — 2] 
mem,reg and [Fix + Ssil,bx 
Przyklad 
mov ax,-1 
and al,-1 ; AX=255 
BOUND 286 


Skladnia bound reg,dst FL: bez zmian 

Opis Sprawdzenie indeksu tablicy. 

Uwvagt Jeśli indeks zawarty w podanym rejestrze nie mieśs— 
ci się w przedziale domkniętym określonym przez dwa 
kolejne słowa znajdujące się pod adresem dst, to 


jest generowane przerwanie o numerze 5. 


reg,mem bound di,[bx] 
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Przyklad 
mov [word ptr Arr=4],S5 
mov [word ptr Arr-2],” 
mov bx,2 


bound bx, [Arr-4J : nastąpi wygenerowanie przerwania 


CALL 

SRladnia call dst FL: bez zmian 

Opis wywołanie procedury. 

Uwagt Jeśli argument jest etykietą Clab1i6 -— bliską, albo 
lab32 — daleką) Ło następuje skok ze śladem do 
rozkazu opatrzonego tą etykietą. W pozostałych 
przypadkach następuje skok ze śladem do rozkazu, 
którego adres znajduje się w rejestrze albo w 
obszarze pamięci. Jeśli argumentem rozkazu call 
jest lab32 albo mem32, to następuje zmiana 
zawartości rejestru CS. W przypadku wywołania 
procedury bliskiej, ślad składa się z zawartości 
rejestru IP, a w przypadku wywołania procedury 
dalekiej składa się z zawartości rejestru IP i 
rejestru CS. Tylko wywołania z argumentami labi6 
są relatywne względem IP. 

Argumenty 

lab1i6 call near ptr Here 

lab32 call far ptr There 

reg1i6 call ax 

memi 6 call [word ptr bx] 

mem32 call [dword ptr Ref + bx] 
Przyklaa 


call near ptr Lab 
Lab LABEL NEAR 


pop ax : AX=OFFSET Lab 


aan SORO 


CBW 

eo OSO 
SRTadnia  cbw FL: bez zmian 

Opis Przekształcenie bez zmiany wartości, danej 


ze znakiem zawartej w AL i umieszczenie jej w AX. 
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Uwvagt Jeśli przekształcana dana ma wartość ujemną, to 


nastąpi powielenie bitu znaku. 


Argumenty 

brak cbw 
Przyklad 

mov al,255 

cbw : AX=-1 


CLC 


SRladnia clc FL: c=0O 
Opis wyzerowanie znacznika przeniesienia c. 
Uwagi CE :=0O 
Argumenty 
brak clc 
Przyklad 
mov al,-1 
clc 
rcl al,i ; AL=-2 
CLD 
SRladnia cld FL: d=O 
Opis Wyzerowanie znacznika kierunku d. 
Uwagi DF :=0O 
Argumenty 
brak cld 
Przyklad 
mov di,1O 
cld 
MOVSW : DI=12 
CLI 
SRlaadnta cli FL: 1=O 
Opis Wyzerowanie znacznika blokowania przerwań i. 
Uwagi IF :=O 
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brak cli 
Przyklad ldla systemu DOS 

mov ax, 40h 

mov ds,ax 


mov bx,SŚch 


mov ax,lbx] 


mov dx,l[bx + 2] ,; DX-AX=czas dobowy 


SkRladnia cemce FL: c 


Opis zanegowanie znacznika c. 


Uvagt CF := NOT CF 


brak cemce 
Przyklad 

mov ax,O 

clc 

emc 


adc ax,O ; AX= 


SkRladnia cmp dst,src FL: acopsz 
Opis Wyznaczenie różnicy 
dst — src 
w celu ustawienia znaczników rejestru FL, bez 


umieszczania gdziekolwiek rezultatu operacji. 


i 


O wyniku porównania argumentów traktowanych 
jak liczby ze znakiem można wnioskować za pomocą 
rozkazów 

Jg. Jjge., jl, jle, jng, jnge, jnl, jnle 
a o wyniku porównania arumentów traktowanych 
jak liczby bez znaku można wnioskować za pomocą 
rozkazów 


ja, jae, jb, jbe, jna, jnae, jnb, jnbe 
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O wyniku porównania równe — nie równe można 


Argumenty 
reg,con 
mem,con 
reg,reg 
reg, mem 
mem,reg 

Przyklad 
mov ax,3 


cmp ax,4 


wnioskować za pomocą rozkazów je i jne. 


cmp bh,20 

cmp [word ptr Fix — 2 + sil,-© 
cmp ax,dx 

cmp bx,l[si] 

cmp (si + 2],al 


Jl Lab skok będzie wykonany 
CMPSB 
SRladnia  cmpsb FL: acopsz 
Opis Porównanie bajtów, na podstawie różnicy 
[byte ptr ds:si]l - [(byte ptr es:di] 
a następnie 
jeśli DF=O inkrementacja SI i DI o 14, 
jeśli DF=1 dekrementacja SI i DI o 1. 
Uvagt O wyniku porównania bajtów jako liczb ze znakiem 
można wnioskować za pomocą rozkazów 
Jg. Jge. jl, jle, jng. jnge, jnl, jnle 
a o wyniku porównania bajtów jako liczb bez znaku 
można wnioskować za pomocą rozkazów 
ja, jae, jb, jbe, jna, jnae, jnb, jnbe 
O wyniku porównania na równość i nie równość można 
wnioskować za pomocą rozkazów je i jne. 
Argumenty 
brak cmpsb 
Przyklad 


mov ax,d 


mov es,a 


s 


x 


mov di,OFFSEIT Trg 


mov si,d 
cmpsb 
je Lab 


i 


skok będzie wykonany 


CMPSW 
SkRladnia cmpsw FL: acopsz 
Opis Porównanie słów, na podstawie różnicy 
[word ptr ds:si] -— (word ptr es:di] 
a następnie 
jeśli DF=O0 inkrementacja SI i DI o £, 
jeśli DF=1 dekrementacja SI i DI o 2. 
Uwagi O wyniku porównania słów jako liczb ze znakiem 
można wnioskować za pomocą rozkazów 
Jg+ jge. Jl. jle, jng, jnge, jnl, jnle 
a o wyniku porównania słów jako liczb bez znaku 
można wnioskować za pomocą rozkazów 
Ja, jae, jb, jbe, jna, jnae, jnb, jnbe 
O wyniku porównania na równość i nie równość można 
wnioskować za pomocą rozkazów je i jne. 
Argumenty 
brak cmpsw 
Przyklad 


mov ax,ds 


mov es,ax 


mov di,OFFSET Trg 


mov Si,di 


cmpsw 
jz Lab ; skok będzie wykonany 
CWD 
SRladnia cwd FL: bez zmian 
Opis Przekształcenie bez zmiany wartości, danej 
ze znakiem zawartej w AX i umieszczenie jej w 
parze rejestrów DX-AX. 
Uwagi Jeśli przekształcana dana ma wartość ujemną, to 
nastąpi powielenie bitu znaku. 
Argumenty 
brak cwd 


mov ax,-1 


cwd , DX=-1, AX=-—1 
DAA 
SRladnia daa FL: a c ps Zz o=? 
Opis Dokonanie korekcji, po umieszczeniu w rejestrze AL 
sumy dwóch upakowanych cyfr w zapisie BCD. 
Uwagi Jeśli AF=1 lub CAL AND Ofho> > 9, to są wykonywane 
następujące operacje 
AL := AL + 6 
AF := 1 
Następnie, jeśli CF=1 lub AL > Sfh, są wykonywane 
operacje 
AL := AL + 60h 
CFE :=1 
Argunenty 
brak daa 
Przyklad 


mov al,1i193h 
add al,1i1939h 


daa : AL=38h 
DAS 
SkRladnia das FL: a c ps z, o=? 
Opts Dokonanie korekcji, po umieszczeniu w rejestrze AL 


różnicy dwóch upakowanych cyfr w zapisie BCD. 


Uwagi Jeśli AF=1 lub CAL AND Of£hD> > S to są wykonywane 

następujące operacje 

AL := AL —- 6 

AF :=1 
Następnie, jeśli CF=1 lub CAL > Sfh, są wykonywane 
operacje 

AL := AL — 60h 

CF :=1 


Argumenty 


brak das 
Przyklad 
mov al,i<h 
sub al,O3h 
das ; AL=OSh 
DEC 
SRladnia dec dst FL: aopsz 
Opis Zmniejszenie o jeden wartości zmiennej określonej 


przez argument. 


Uwagi dst := dst — 1 
Argumenty 

reg dec cx 

mem dec [byte ptr Fix + si + di + 2J 
Przyklad 

mov ax,O 

dec al ; AX=255 
DIV 
o 
SŚRladnia div dst FL: a=? c=? o=? p=? s=? z=? 
Opis Wyznaczenie ilorazu danej w rejestrze AX Calbo w 


parze rejestrów DX-AXD> i danej określonej przez 
argument. Potraktowanie dzielnej, dzielnika, 
ilorazu i reszty jako danych bez znaku. 

Uwagi W przypadku argumentu S-bitowego wykońanie 
operacji 


temp := AX 
AH := Łemp MOD dst 
AL := temp DIV dst 


a w przypadku argumentu 16-bitowego wykonanie 


operacji 
temp := DX-AX 


DX := Łemp MOD dst 
AX := temp DIV dst 


Jeśli iloraz nie mieści się w rejestrze, to jest 


wykonywane przerwanie o numerze O. 


Argumenty 
reg div ax 
mem div [byte ptr Fix] 
Przyklad 
mov ax,32 
mov bl,6 
div bl ;, AH=2, AL=S5 
ENTER 286 
Skladnia enter con,l FL: bez zmian 
Opts Utworzenie ramki wywołania procedury. 
Uwagi Skopiowanie na stos l wskazań poprzednich ramek i 
zarezerwowanie con bajtów dla zmiennych lokalnych. 
W ogólnym przypadku wykonanie następujących 
czynności 
lev := Ł MOD 32 
push BP 
ptr := SP 
Jeśli lev > O wykonanie lev — 1 razy operacji 
BP := BP — 2 
push [BP] 
a następnie operacji 
push ptr 
W każdym przypadku wykonanie operacji 
BP := ptr 
SP := SP — con 
Argumenty 
con1i6,con8 enter 20,2 
Przyklad 
enter 4,0 : równoważne wykonaniu rozkazów 
push bp 
mov bp,sp 
sub sp,4 
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ESC 


SRladnia esc id,dst FL: bez zmian 
Opts Umieszczenie na szynie adresowej rozkazu dla ko- 
procesora. 
Uvagi Pierwszy argument musi być co najwyżej 6G-bitowy. 
Określa on część operacyjną rozkazu koprocesora. 
Argumenty 
con,reg esc e,al 
con, mem esc 6,lword ptr Fix + sil 
Przyklad 


esc B,cl ; rozkaz fld stC1i3D 


HLT 

SkRlaadnia hit FL: bez zmian 

Opts Wstrzymanie wykonywania rozkazów. 

Uwagi Wznowienie wykonywania rozkazów nastąpi po odebra- 
niu przerwania. 

Argunenty 

brak hlt 
Przyklad 
hlt , bez komentarza 

IDIV 

SRladnia idiv dst FL: a=? c=? o=? p=? S=? z=? 

Opts Wyznaczenie ilorazu danej w rejestrze AX Calbo w 
parze rejestrów DX-AX> i danej określonej przez 
argument. Potraktowanie dzielnej, dzielnika, 
ilorazu i reszty jako danych ze znakiem. 

Uwvagt W przypadku argumentu S-bitowego wykonanie 
operacji 

temp := AX 
AH := temp MOD dst 
AL := Łłemp DIV dst 


0] 
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a w przypadku argumentu 16-bitowego wykonanie 


operacji 


temp := DX-AX 
DX := temp MOD dst 
AX := temp DIV dst 


Jeśli iloraz nie mieści się w rejestrze, to jest 
wykonywane przerwanie o numerze O. 
Argunenty 
reg idiv ah 
mem idiv [word ptr Fix] 
Przyklad 
mov ax,1O 
mov bl ,-4 


idiv bl ; AH=2, AL=-2 


IMUL 


SkRladnita imul dst FL: c o, a=? p=? S=? z=? 

Opis Wyznaczenie iloczynu danej w rejestrze AL Calbo 
AX© i danej określonej przez argument. Potraktowa— 
nie czynników i iloczynu jako danych ze znakiem. 

Uwvagt W przypadku argumentu S-bitowego wykonanie 


operacji 

AX := AL % dst 
a w przypadku argumentu 16-bitowego wykonanie 
operacji 

DX-AX := AX % dst 


Ponadto, jeśli po wykonaniu operacji, lewa połowa 
rezultatu składa się wyłącznie z takich bitów jak 
najbardziej znaczący bit prawej połowy, to 
wykonuje się operację 


CF := O, OF :=50 
a w przeciwnym razie 
CF := 1, OF :=1 
Argumenty 
reg imul si 
mem imul Cbyte ptr Fix + bx] 


Przyklad 
mov al,e2 


mov ah, —4 


imul ah : AX=-8, CF=O, OF=O 
IN 
SŚkladnia in acc,src FL: bez zmian 
Opis Wprowadzenie do rejestru acc Ctylko AL albo AX), 


danej z portu określonego przez argument src. 
Uvagti Argument src może być tylko numerem portu albo 


nazwą rejestru DX (w którym znajduje się numer 


portu). 
Argumenty 
acc, con8 in al,32 
acc, DX | in ax,dx 
Przyklad 
mov dx, 32 


in al,dx ; wprowadzenie danej z portu 3e 


INC 


SRladnia inc dst FL: ao psz 
Opis Zwiększenie o jeden, wartości zmiennej określonej 
przez argument. 


Uwagi dst := dst + i 


reg inc ch 


mem inc [word ptr Fix + di + £] 


inc al ; AL= 


SkRladnia insb FL: bez zmian 
Opis Wprowadzenie z portu o numerze w DX, jednego bajtu 
i umieszczenie go pod adresem ES:DI. Jeśli DF=OQ, 


zwiększenie DI o 1, a w przeciwnym razie, zmniej— 
szenie DI o 1. 
Uwvagt Rozkaz insb może być poprzedzony repetytorem, ale 
nie może być prefiksowany. 
Argumenty 
brak insb 
Przyklad 
les di,lRef] 
mov dx,32 
cld 
mov cx,3 


rep insb + wprowadzenie 3 znaków z portu 32 


INSW 286 
SkRladnia insw FL: bez zmian 
Opts Wprowadzenie z portu o numerze w DX, jednego słowa 


i umieszczenie go pod adresem ES: DI. Jeśli DF=O, 
zwiększenie DI o 2, a w przeciwnym razie, zmniej— 
szenie DI o 2. 
Uwagi Rozkaz insb może być poprzedzony repetytorem, ale 
nie może być prefiksowany. 
Argumenty 
brak insw 
Przyklad 
les di ,[Refl 


mov dx,3e2 


insw : wprowadzenie słowa z portu 3e 
INT 
SkRladnia int num FL: i t 
Opis Wygenerowanie przerwania programowego o numerze 


określonym przez argument num. 
Uvagt Przesłanie na stos procesora rejestru FL, wyzerowa— 

nie IF i IF, a następnie przesłanie na ten Stos 

rejestrów CS i IP oraz załadowanie CS:IP daną 


dwusłowową spod adresu O : 4 % num. 


Argumenty 


int con8 int 2ih 
Przyklad 
mov ax,4cOO0h 
int 21h ; zakończenie wykonywania programu 
INTO 
SRladntia into FL: bez zmian 
Opis Jeśli OF=1 wygenerowanie przerwania programowego o 


numerze 4. 
Uwagt Przesłanie na stos procesora rejestru FL, wyzerowa- 
nie IF i IF, a następnie przesłanie na ten stos 


rejestrów CS i IP oraz załadowanie CS:1I1P daną 


dwusłowową spod adresu O : 16. 
Argunenty 
brak into 
Przyklad 
mov al,127 
add al,al 
into ; przerwanie zostanie wykonane 


SkRladnia iret FL: 7??? 
Opts Powrót z przerwania. 
Uwvagt Zdjęcie ze stosu trzech słów i umieszczenie ich w 


kolejności zdejmowania w rejestrach IP, CS, FL. 


Argumenty 
brak iret 
Przyklad 
iret ; bez komentarza 


poza aaa EEE 
Jcond -— np. JA, JG. JE. JZ. JC 
NN CNN ccFc GG) Joon 
SRladnia jconad lab FL: bez zmian 

Opis Wykonanie skoku warunkowego do rozkazu opatrzonego 


etykietą lab. 


Uwvagti 


Skok jest realizowany jako krótki skok względny. 


W zapisie rbzkazu jest określony warunek wykonania 


skoku. 


programu jest kontynuowane. 


zestawieniu, 


Jeśli nie jest spełniony, 


Ło wykonywanie 
W poniższym 


określenia powyżej — poniżej dotyczą 


skoków wykonanych po porównaniu danych bez znaku, 


a określenia większy — mniejszy dotyczą skoków 


wykonanych po porównaniu danych ze znakiem 


Rozkaz 
Ja 
jae 
jb 
jbe 
je 
jcxz 
je 
jg 
Jge 
Ji 
jle 
Jjna 
Jnae 
Jnb 
Jnbe 
jne 
jne 
jng 
jnge 
Jni1 
jnle 
Jjno 
JnP 
Jjns 
Jnz 
jo 
JP 
Jjpe 
jpo 
Js 
Jz 


Warunek 


skocz 
skocz 
skocz 
skocz 
Skocz 
skocz 
skocz 
Skocz 
skocz 
skocz 
skocz 
skocz 
skocz 
skocz 
skocz 
skocz 
Skocz 
skocz 
skocz 
skocz 
skocz 
Skocz 
skocz 
skocz 
skocz 
skocz 
skocz 
skocz 
skocz 
skocz 


skocz 


jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 
jeśli 


powyżej 

powyżej albo równe 

poniżej 

poniżej albo równe 
przeniesienie 

CX równe O 

równe 

większe 

większe albo równe 
mniejsze 

mniejsze albo równe 

nie powyżej 

nie powyżej albo nie równe 
nie poniżej 

nie poniżej albo nie równe 
brak przeniesienia 

nie równe 

nie większe 

nie większe albo nie równe 
nie mniejsze 

nie mniejsze albo nie równe 
nie wystąpił nadmiar 

nie parzyste 

nie ujemne 

nie zerowe 

wystąpił nadmiar 

parzyste 

parzyste 

nieparzyste 

ujemne 

zero 
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Argunenty 

lab jg short Skip 
Przyklad 

mov ax,255 

and al,al 


js Next skok warunkowy będzie wykonany 


JMP 


Skladnia  jmp dst FL: bez zmian 

Opts Skok do rozkazu, którego adres jest określony 
przez argument. 

Uwagt Jeśli argument jest etykietą Clab8 — bardzo 
bliską, labi6 — bliską, albo lab32 — daleką) to 
następuje skok do rozkazu opatrzonego tą etykietą. 
W pozostałych przypadkach następuje skok do 
rozkazu, którego adres znajduje się w rejestrze 
albo w obszarze pamięci. Jeśli argumentem rozkazu 
jmp jest lab32 albo mem32, to następuje zmiana 
zawartości rejestru CS. Tylko skoki z argumentami 


lab8 i lab1l6 są relatywne względem IP. 


Argumenty 
lab8 Jjmp short Close 
lab1i6 jmp near Here 
1lab32 Jjmp far There 
regi6 jmp ax 
memi 6 Jjmp Lword ptr bx + dil 
mem32 Jmp Cdword ptr Ref + bx] 
Przyklad 
jmp short Skip ; ominięcie dyrektywy DB 
Value DB 13 
Skip: 
mov al,l[cs : Value] 
LAHF 
nnn CCC CC(C)JOQoQ 
SkRladnia |lahf FL: bez zmian 
Opis Załadowanie do rejestru AH rejestru FL. 
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Uwvagt Przeniesienie dotyczy tylko znaczników 
szapc 


Będą one umieszczone w AH w następujący Sposób 


GGMCOMOMZ 
Argumenty 


brak lahf 
Przyklad 

stc 

lahf 

rer ah 


je Skip ; skok będzie wykonany 


Skladntita lds reg,mem FL: bez zmian 
Opis załadowanie rejestru reg daną Ssłowową Spod adresu 
określonego przez mem i rejestru DS daną słowową 


następującą bezpośrednio po właśnie załadowanej 


danej. 
Uvagti Rozkaz umożliwia szybkie załadowanie dalekiego 
adresu. 
Argumenty 
reg1i6, mem32 lds si,Cdword ptr Fix + bx] 
Przyklad 
lds di,[dword ptr Ref] 
mov ax,[di] +: pośrednie załadowanie słowa 
LES 


SRlaadnta les reg,mem FL: bez zmian 
Opis Załadowanie rejestru reg daną Ssłowową spod adresu 
określonego przez mem i rejestru ES daną słowową 


następującą bezpośrednio po właśnie załadowane j 


danej. 
Uwagt Rozkaz umożliwia szybkie załadowanie dalekiego 
adresu. 
Argumenty 
regi6, mem32 les si,(dword ptr Fix + bx] 


PrzykTad 
les di,[dword ptr Ref + bx]l 


mov cl,[es : di +2]  ; pośrednie załadowanie bajtu 


SkRladnia lea reg,mem FL: bez zmian 
Opis Załadowanie do rejestru reg, przemieszczenia 
adresu mem. 
Uwagi Mimo iż wykonanie na przykład rozkazu 
lea bx,lword ptr Fix] 
ma Łaki sam skutek jak wykonanie rozkazu 
mov bx,OFFSET Fix 
rozkaz lea jest ogólniejszy, ponieważ na przykład 
rozkaz 
mov bx,OFFSET [byte ptr Fix + dx] 
jest błędny, natomiast rozkaz 
lea bx,l[byte ptr Fix + dx] 


jest poprawny. 


Argumenty 

reg1l6, mem8 lea si,[byte ptr Fix] 

regi6,memi6 lea di,(si] 

regl6, mem32 lea ax,l[qword ptr Fix + bx + 1] 

ita. 
Przyklaa 

lea bx, [Ref] 

Jjmp [bx] ; równoważne jmp [word ptr Ref] 
LEAVE 286 
SkRladnia leave FL: bez zmian 
Opis Powrót z procedury wysokiego poziomu. 

Uwvagt Wykonanie operacji 
mov sp,bp 
pop BP 
Argunenty 
brak leave 


Przyklad 
enter O,2 


leave ; przywrócono stan stosu 


NM )0(C JC NN — 

LOCK 

NZ NNNNnnnNnnNnnnnnn nnn 

Skladnia lock FL: bez zmian 

Opis zablokowanie innych procesorów podczas wykonywania 
rozkazu następującego po LOCK. 

Uwagi Wykonanie rozkazu nie wywołuje innych skutków niż 


wprowadzenie blokady. 


Argumenty 
brak lock 
Przyklad 
mov al,1l 
Check: 
lock xchg Flare,al ; ustawienie semafora 
Łest al,al 
Jjnz Check 
; rejon krytyczny 


mov Flare,O 


LODSB 
SRladnia  lodsb FL: bez zmian 
Opis Załadowanie do rejestru AL, bajtu spod adresu 
DS:SI. Jeśli DF=O zwiększenie SI o 1, a w przeciw— 
nym razie, zmniejszenie SI o 1. 
Uwagi Rozkaz lods może być poprzedzony repetytorem, ale 
przydatność tego jest wątpliwa. 
Argumenty 
brak lodsb 
Przyklad 
lds si,(dword ptr Ref] 
lodsb ; załadowanie pośrednie bajtu 


LODSW 


SRladnta lodsw FL: bez zmian 

Opis Załadowanie do rejestru AL, bajtu spod adresu 
DS:SI. Jeśli DF=O zwiększenie SI o ©, a w przeciw- 
nym razie, zmniejszenie SI o £. 

Uwagi Rozkaz lods może być poprzedzony repetytorem, ale 


przydatność tego jest wątpliwa. 


Argumenty 
brak lodsw 
Przyklad 
lds di,ldword ptr Ref] 
lodsw ; załadowanie pośrednie słowa 
LOOPcona 
SRladnia  loopcondlab FL: bez zmian 
Opis Zmniejszenie zawartości rejestru CX o 1, a następ” 


nie, jeśli CX nie ma wartości O oraz jest 
spełniony warunek podany w rozkazie — wykonanie 
skoku do rozkazu opatrzonego etykietą lab. 

Uwagi Skok jest realizowany jako krótki skok względny. 
W zapisie rozkazu jest określony warunek wykonania 
skoku. Jeśli nie jest spełniony, to wykonywanie 


programu jest kontynuowane. 
Rozkaz Warunek 


loop skok jeśli CX O 

loopne skok jeśli CX 4 O i nie równe CZF=O) 
loopnz skok jeśli CX 4 O i nie równe CZF=O) 
loope skok jeśli CX % O i równe CZF=1D 
loopz skok jeśli CX 47 O i równe CZF=15D 


lab8 loop Again 
Przyklad 

mov cx,2 

mov ax,1 


Again: 
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shl ax,1i 
loop Again 


nop ;: AX=4 


SkRTlaania mov dst,src FL: bez zmian 

Opis Przypisanie zmiennej określonej przez dst, danej 
reprezentowanej przez src. 

Uwvagt Jeśli zmienna jest rejestrem segmentowym, to dana 
nie może być reprezentowana przez wyrażenie stałe, 
ani nie może być zawarta w rejestrze segmentowym. 
Jeśli zmienną docelową jest rejestr SS, następuje 
zablokowanie przerwań na czas wykonywania następne— 


go rozkazu. 


Argumenty 
reg,con mov ah,2e0 
mem, con mov (word ptr Fix + 2],3 
reg,reg mov ds,di 
reg, mem mov di ,C[word ptr bx] 
mem,reg mov (bp + si]l,sp 
Przyklad 
mov ax,i2 
mov ds,ax : DS=12 
MOVSB 
SRtadnta movsb FL: bez zmian 
Opts Przeniesienie bajtu spod adresu DS:SI pod adres 


ES: DI. Ponadto, jeśli DF=O - zwiększenie SI i DI o 
1, a jeśli DF=1 — zmniejszenie SI i DI o 1. 


Uvagt Rozkaz movsb może być poprzedzony repetytorem. 
Argumenty 

brak movsb 
Przyklad 


lds si,[(dword ptr SrcRef] 
les di ,Cdword ptr DstRef] 
cld 


movsb , przeniesienie 


movsb : trzech kolejnych bajtów 
movsb , w przód 
MOVSW 
SRladnia movsw FL: bez zmian 
Opts Przeniesienie słowa spod adresu DS:SI pod adres 


ES:DI. Ponadto, jeśli DF=O - zwiększenie SI i DI o 
e, a jeśli DF=1 -— zmniejszenie SI i DI o £. 


Uwagi Rozkaz movsw może być poprzedzony repetytorem. 
Argumenty 

brak MOVSW 
Przyklad 


lds si,[dword ptr SrcRef] 
les di,[dword ptr DstRef] 


std 

MOVSW ; przeniesienie 

MOVSW : trzech kolejnych bajtów 
movsw ; wstecz 

MUL 

SRladnta mul dst FL: c ©, a=? p=? s=? z=? 

Opis Wyznaczenie iloczynu danej w rejestrze AL albo AX 
i danej określonej przez argument. Potraktowanie 
czynników i iloczynu jako danych bez znaku. 

Uvagi W przypadku argumentu S-bitowego wykonanie 
operacji 

AX := AL %* dst 


a w przypadku argumentu 165-bitowego wykonanie 


operacji 
DX-AX := AX % dst 


Jeśli rezultat operacji musi być reprezentowany w 
większej liczbie bitów niż argument, wykonanie 


operacji 


CF := 1, OF :=1i 


a w przeciwnym razie wykonanie operacji 


CF :=O, OF :=0O 
Argumenty 
reg mul bh 
mem mul (word ptr Fix] 
Przyklad 


mov al,3 


mul al ; AX=9, CF,OF=O 
NEG 
SRladnta neg dst FL: a co ps z 
Opis Zmiana znaku danej przypisanej zmiennej dst na 
przeciwny. 
Uwagi Zmiana znaku polega na zanegowaniu wszystkich 
bitów danej i dodaniu liczby 1. 
Argumenty 
reg neg ax 
mem neg [ds : byte ptr Fix + bpl 
Przyklad 
mov bx,-1 
neg bh ; BX=511 
NOP 
SRladnia nop FL: bez zmian 
Opts Wykonanie operacji pustej. 
Uwagi Wykonanie rozkazu nop nie wywołuje żadnych 
skutków. 
Argumenty 
brak nop 
Przyklad 
NOop ; bez komentarza 


NOT 


SkRladnia not dst FL: bez zmian 
Opis Zanegowanie bitów danej przypisanej zmiennej dst. 
Uwagt Bit 1 jest zmieniany na O i odwrotnie. 
Argumenty 
reg not di 
mem not [byte ptr bx — 3] 
Przyklad 
mov bx,-2 
not bx , BX=1 
OR 
SRladnia or dst,src FL: ps z, c=0, o=0O, a=? 
Opis Przypisanie dst sumy logicznej dst i src. 
Uwagi Suma logiczna jest wyznaczana równolegle na każdej 


parze odpowiadających sobie bitów argumentów. 


Bit dst Btt src Bit dst OR src 


O 
O 
1 
1 


RPO PP O 
kh kk h O 


Jeśli src jest wyrażeniem stałym S-bitowym, a dst 
jest zmienną 16-bitową, to dana reprezentowana 


przez src jest lewostronnie wydłużana bitami znaku. 


Argumenty 
reg,con or bx,Offfh 
mem,con or [word ptr sil,Of 
reg,mem or ax,[word ptr Fix] 
mem,reg er [byte ptr bxj,ch 
Przyklad 
mov ax,Och 
or ah,Ofh : AX=OfOch 


SkRladnia out num,acc FL: bez zmian 
Opis Wyprowadzenie do portu o numerze num danej z 
akumulatora acc. 
Uwagt Argument port może być tylko nazwą rejestru DX 
albo wyrażeniem stałym o wartości mniejszej niż 
256. Stosownie do tego czy acc jest nazwą rejestru 
AL czy AX, do portu jest wyprowadzany bajt albo 
słowo. 
Argumenty 
con8, AL out 3e,al 
Con8,AX out e0,ax 
DX ,AL out 40,al 
DX „AX out dx,ax 
Przyklad 
mov dx,32 


mov ax,Offfh 


out dx,ax +: wyprowadzenie Offfh do portu 32 
OUTSB 286 
SRladnta outsb FL: bez zmian 
Opis Wyprowadzenie do portu o numerze w DX, bajtu spod 


Uvagt 


Argumenty 
brak 


Przyklad 


adresu DS:SI. Jeśli DF=O, zwiększenie SI o 1, a w 
przeciwnym razie, zmniejszenie SI o 1. 


Rozkaz outsb może być poprzedzony repetytorem. 


outsb 


lds si,C[Ref] 


mov dx,32 


outsb 


+: wyprowadzenie do portu 32 
jednego bajtu 
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OUTSW 286 


Skladnita outsw FL: bez zmian 
Opis Wyprowadzenie do portu o numerze w DX, słowa spod 
adresu DS:SI. Jeśli DF=O, zwiększenie SI o 2, aw 


przeciwnym razie, zmniejszenie SI o £. 


Uwagi Rozkaz outsw może być poprzedzony repetytorem. 
Argumenty 

brak outsw 
Przyklad 

lds si,l[Ref] 

mov dx,32 


mov cx,e 
cld 


rep outsw +: wyprowadzenie do portu 32 


-: dwóch słów 


POP 

SRladnia pop dst FL: bez zmian 

Opis Zdjęcie ze stosu procesora jednego słowa i przypi- 
sanie go zmiennej dst. Zwiększenie SP o 2. 

Uwagi Zdejmowane są dwa bajty, najpierw mniej znaczący, a 
następnie bardziej znaczący. Argumentem rozkazu nie 
może być rejestr CS. 

Argumenty 

reg pop ax 

seg pop ds 

mem pop (word ptr Fix] 
Przyklad 


mov ax,e2 
push ax 
mov ax,O0 


pop ax ; AX=22 


POPA 286 


SkRladnia popa FL: bez zmian 
Opis zdjęcie ze stosu 8 słów i umieszczenie ich w 
rejestrach procesora. Zwiększenie SP o 16. 
Uwagi Słowa zdejmowane ze stosu są umieszczane kolejno w 
następujących rejestrach 
DI, SI, BP, *, BX, DX, CX, AX 
Cznakiem % oznaczono Słowo, które zamiast być 


umieszczone w SP — jest ignorowaneJ. 


brak popa 
Przyklad 

pusha 

sub sp,e 


popa ; rejestr SP bez zmian 


Skladnia  popf FL: wszystkie 

Optls Zdjęcie ze stosu procesora jednego Słowa i umiesz— 
czenie go w rejestrze FL. Zwiększenie SP o £. 

Uwagi Rozmieszczenie znaczników w rejestrze FL jest 


następujące 


ITTEFEEFELELPL EE 


Argumenty 
brak popf 
Przyklad 
xor ax,ax : wyzerowanie 
push ax : rejestru 
popf ; znaczników 
PUSH 
SRTlTadntita push dst FL: bez zmian 
Opis Przesłanie na stos procesora, danej reprezentowa— 


nej przez dst. Zmniejszenie SP o 2. 


Uwagt Przesyłane są dwa bajty. Najpierw bardziej znaczą- 
cy, a następnie mniej znaczący. Wykonanie rozkazu 


push sp powoduje przesłanie nowej wartości rejest- 


ru SP. 

Argumenty 

reg push bx 

seg. CŁakże CS) push es 

mem push [word ptr Fix + sil 
Przyklad 

push es +; wymiana zawartości ES i DS 

push ds 

pop es 

pop ds 
PUSH 286 
SRladnia push dst FL: bez zmian 
Opis Przesłanie na stos procesora, danej reprezentowa- 


nej przez dst. Zmniejszenie SP o 2. 
Uwagt Przesyłane są dwa bajty. Najpierw bardziej znaczą” 
cy, a następnie mniej znaczący. Wykonanie rozkazu 


push sp powoduje przesłanie starej wartości re- 


jestru SP. 
Argumenty 
con push 30 
reg push bx 
seg (także CS) push es 
mem push (word ptr Fix + si] 
Przyklad 
push -—2 
pop ax ; AX=-2 
a A<<<soooonnnnnnnnnnnnnnNnnNNNNNNNNL(ooCOQ0Q0LM 
PUSHA 286 
ANN NooCCQ0JJQOQOQOQOĄAAr 
SRladnia pusha FL: bez zmian 
Opis Przesłanie na stos procesora następujących rejest- 
rów: AX, CX, DX, BX, SP, BP, SI, DI. Zmniejszenie 
SP o 16. 


Uwagi Rejestry są przesyłane w podanej kolejności. 


Przesłanie dotyczy starej zawartości SP. 


brak pusha 
Przyklad 

mov ax,e 

pusha 


mov ax,” 


popa ; AX=2 
PUSHF 
SRladntita pushf FL: bez zmian 
Opts Przesłanie na stos procesora kopii danej zawartej 


w rejestrze FL. 
Uwa gt Rozmieszczenie znaczników w rejestrze FL jest 


następujące 
ILIECELECELELPLE 


brak pushf 


and ax,1lh : AX= 


Skladnita rcl dst,ecnt FL: co 

Opts Potraktowanie zmiennej dst i rejestru CF jako 
cyklicznego bufora i przesunięcie w nim wszystkich 
bitów o cent pozycji w lewo. 

Uwagi Argument cent musi być wyrażeniem stałym o wartości 
1, albo nazwą rejestru CL którego wartość określa 
liczbę przesunięć. Podczas każdego przesunięcia, 


najbardziej znaczący bit zmiennej wchodzi do CF, a 
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Argumenty 
reg,1l 
mem,1i 
reg,CL 
mem, CL 


Przyklad 


bit opuszczający CF wchodzi na jej pozycję najmniej 
znaczącą. 

Jeśli przesunięcie jest jednokrotne, a po jego 
wykonaniu najbardziej znaczący bit rezultatu jest 


rożny od bitu CF, to wykonuje się operację 
OF := 1 
W przeciwnym razie wykonuje się operację 


OF :=0O 


rcl ax,1 
rel [byte ptr Fixl,1 
rel bh,cl 


rel [word ptr Fix + bx],cl 


mov ah, -128 


cic 


rel ah,1i 


. AH=0, CF=1, OF=1 


rer dst,ent FL: co 

Potraktowanie zmiennej dst i rejestru CF jako 
cyklicznego bufora i przesunięcie w nim wszystkich 
bitów o cent pozycji w prawo. 

Argument cnt musi być wyrażeniem stałym o wartości 
1, albo nazwą rejestru CL, którego wartość określa 
liczbę przesunięć. Podczas każdego przesunięcia, 
bit CF wchodzi na najbardziej znaczącą pozycję 


zmiennej, a bit opuszczający zmienną wchodzi do 
CF. 


Jeśli przesunięcie jest jednokrotne, a po jego 
wykonaniu dwa najbardziej znaczące bity rezultatu 
nie są identyczne, to wykonuje się operację 

OF := 1 
W przeciwnym razie wykonuje się operację 


OF :=0O 


Argumenty 


reg,i rer al,i 

mem, 1 rer [word ptr FixJ,1i 

reg,CL rer bx,cl 

mem, CL rer (byte ptr Fix + bx],cl 
Przyklad 


mov ax,O 
stŁc 


rer ax,1i ;: A=-—32768, CF=O, OF=1 


REP 

SkRladnita rep FL: bez zmian 

Opis Wielokrotne wykonanie rozkazu następującego po 
rep. Określenie krotności wykonań na podstawie 
wartości danej przypisanej rejestrowi CX. 

Uwagi Po każdym wykonaniu rozkazu następującego po rep 
jest wykonywana operacja 

CX :5 CX - 1 

Jeśli w chwili wykonania rozkazu rep rejestr CX ma 
wartość O, to powtórzenie jest O-krotne. 

Argumenty 

brak rep movsb 
Przyklad 


lds si,[dword ptr SrceRef l 
les di,Cdword ptr DstRef] 
cld 

mov cx,e0 


rep movsb . przesłanie 20 bajtów 


REPconad 
[No ))Q)DQSQooA) JA XVI 


SRTadnia repcond FL: bez zmian 

Opis wielokrotne wykonanie rozkazu następującego po 
repcond. Określenie nieprzekraczalnej krotności 
wykonań na podstawie wartości danej przypisanej 
rejestrowi CX. Zaniechanie wykonywania gdy CX=O 
lub gdy przestanie być prawdziwy warunek cond. 
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Uvagt 


Argumenty 
brak 

Przyklaa 
les di,l 
cld 


Po każdym wykonaniu rozkazu następującego po rep 
jest wykonywana operacja 

CX :==CX-1 
Jeśli w chwili wykonania rozkazu rep rejestr CX ma 
wartość O, to powtórzenie jest O-krotne. Warunek 
cond jest określony w następujący sposób 


Rozkaz Warunek 


repe Łak długo jak równe CZF=1) 
repz tak długo jak równe CZF=10 
repne Łak długo jak nie równe CZF=O) 
repnz tak długo jak nie równe CZF=O) 


repne scasb 


dword ptr TrgRef] 


mov cx,200 


xor al,al 


repne scasb 


jne Fail 


mov al,l 


es : di — 2] ; AL=ostatni znak łańcucha 


ae. O 


RET 


ei Nz wn EE 


SRladnta 
Opis 
Uwvagt 


Argumenty 
brak 
con8 
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ret cent FL: bez zmian 

Powrót z procedury. 

Powrót z procedury bliskiej powoduje zdjęcie 
jednego słowa ze stosu procesora i umieszczenie go 
w rejestrze IP. Powrót z procedury dalekiej 
powoduje zdjęcie dodatkowego słowa ze stosu 
procesora i umieszczenie go w rejestrze CS. Jeśli 
występuje argument cent, to dodatkowo jest 


wykonywana operacja 
SP := SP + cent 


Cent musi być wyrażeniem stałym 16-bitowym). 


ret 
ret 2 


Przyklad 
mov ax,OFFSET Lab 


push ax 
ret ; skok do Lab 
Lab: 
RETF 
SRladnia retf cent FL: bez zmian 
Opts Powrót z dalekiej procedury. 
Uwagt Powrót z dalekiej procedury powoduje zdjęcie 
jednego słowa ze stosu procesora i umieszczenie go 
w rejestrze IP, a następnie zdjęcie drugiego słowa 
i umieszczenie go w rejestrze CS. Jeśli występuje 
argument cent, to dodatkowo jest wykonywana 
operacja 
SP := SP + cent 
Cent musi być wyrażeniem stałym 16-bitowym. 
Argumenty 
brak retf 
con8 retf 5 
Przyklad 


Fun PROC NEAR 


retf 2 : ret 2 byłoby uznane za retn £ 


Fun ENDP 
RETN 
SRlaadnta retn cent FL: bez zmian 
Opis Powrót z bliskiej procedury. 
Uwagi Powrót z bliskiej procedury powoduje zdjęcie 


jednego słowa ze stosu procesora i umieszczenie go 
w rejestrze IP. Jeśli występuje argument cent, to 
dodatkowo jest wykonywana operacja 

SP := SP + cent 
Cent musi być wyrażeniem stałym 16-bitowyno. 
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Argumenty 


brak retn 
con8 retn 5 
Przyklad 


Fun PROC FAR 


retn 2 : ret 2 byłoby uznane za retf © 
Fun ENDP 


SkRladnita rol dst,ent FL: co 

Opts Potraktowanie zmiennej dst jako cyklicznego bufora 
i przesunięcie w nim wszystkich bitów o cent 
pozycji w lewo. 

Uwagi Argument cnt musi być wyrażeniem stałym o wartości 
1, albo nazwą rejestru CL, którego wartość określa 
liczbę przesunięć. Podczas każdego przesunięcia, 
najbardziej znaczący bit zmiennej wchodzi do CF i 


na najmniej znaczącą pozycję zmiennej. 


Jeśli przesunięcie jest jednokrotne, a po jego 
wykonaniu najbardziej znaczący bit rezultatu jest 


rożny od bitu CF, to wykonuje się operację 


OF :=1 
W przeciwnym razie wykonuje się operację 
OF :=0O 
Argumenty 
reg,1 rol ax,1i 
mem,1 rol [byte ptr FixJ,1 
reg,CL rol bh,cl 
mem, CL rol [word ptr Fix + bxl,cli 
Przyklad 
mov ax, -32767 
rol ax,l ; AX=3, CF=1, OF=1 


NEKEZENNEEEEEZZZZZZZNE EEN N 


ROR 


lh ——- , ,,/_Ź_ŻCC> > > (/(/))O0O)))D)DALM2> 


Skladnia ror dst,ent FL: co 
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Opis Potraktowanie zmiennej dst jako cyklicznego bufora 
i przesunięcie w nim wszystkich bitów o cent 
pozycji w prawo. 

Uwagi Argument cnt musi być wyrażeniem stałym o wartości 
1, albo nazwą rejestru CL, którego wartość określa 
liczbę przesunięć. Podczas każdego przesunięcia, 
najmniej znaczący bit zmiennej wchodzi do CF i na 


najbardziej znaczącą pozycję zmiennej. 


Jeśli przesunięcie jest jednokrotne, a po Jego 
wykonaniu najbardziej znaczący bit rezultatu różni 
się od CF, to wykonuje się operację 

OF :=1 


w przeciwnym razie wykonuje się operację 


OF :=0 
Argumenty 
reg,1i ror ax,1i 
mem,1 ror [byte ptr Fix]l,1i 
reg,CL ror bh,cl 
mem, CL ror [word ptr Fix + bxj,cl 
Przyklad 
mov bh,-127 
ror bh,1i ; BH=-64, CF=1, OF=O 
SAHF 
SRladnia sahf FL: acpsz 
Opis Przeniesienie wybranych bitów rejestru AH do 
rejestru FL. 
Uwagi Rozmieszczenie przenoszonych bitów w rejestrze AH 
jest następujące 
Argumenty 
brak sahf 
Przyklad 
mov ah,4 
sahf 
Jp Lab . skok będzie wykonany 


SAL 

SkRlaadnia sal dst,ent FL: co p s z, a=? 

Opis Potraktowanie zmiennej dst jako liniowego bufora 
i logiczne przesunięcie w nim wszystkich bitów o 
cent pozycji w lewo. 

Uwagt Argument cent musi być wyrażeniem stałym o wartości 
1, albo nazwą rejestru CL, którego wartość określa 
liczbę przesunięć. Podczas każdego przesunięcia, 
najbardziej znaczący bit zmiennej wchodzi do CF, 
a na pozycję najmniej znaczącą wchodzi O. 

Jeśli przesunięcie jest jednokrotne, a po jego 
wykonaniu najbardziej znaczący bit rezultatu różni 
się od CF, to wykonuje się operację 
OF := 1 
W przeciwnym razie wykonuje się operację 
OF :=0O 
Argumenty 
reg,1 sal ax,1 
mem, 1 sal [byte ptr Fix],1i 
reg,CL sal bh,ci 
mem, CL sal (word ptr Fix + bxJ,cl 
Przyklad 


mov [byte ptr Fix]l,1i0O 
sal [byte ptr Fix],2 
mov bl,l[byte ptr Fix] ; El=40, CF=O, OF=O 


sar dst,ent FL: co p s z, a=? 

Potraktowanie zmiennej dst jako liniowego bufora i 
arytmetyczne przesunięcie w nim wszystkich bitów o 
cnt pozycji w prawo. 

Argument cnt musi być wyrażeniem stałym o wartości 
1, albo nazwą rejestru CL, którego wartość określa 


liczbę przesunięć. Podczas każdego przesunięcia, 


najmniej znaczący bit zmiennej wchodzi do CF, a 


najbardziej znaczący bit nie ulega zmianie. 


Jeśli przesunięcie jest jednokrotne, to wykonuje 


się operację 


OF :=0O 

Argumenty 

reg,l1 sar ah,1 

mem,1i sar [(wcerd ptr Fixj,1l 

reg,CL sar bx,cl 

mem, CL sar [byte ptr Fix + dij,cl 
Przyklad 

mov ax,-5 

sar ax,1i ; AX=-3, CF=1, OF=O 


SBB 


SRladnta sbb dst,src FL: aco ps z 
Opis Odjęcie od danej reprezentowanej przez dst, danej 
reprezentowanej przez src oraz danej reprezentowa— 


nej przez CF. 


Uwagi Wykonanie operacji 
dst := dst - src — CF 
Argumenty 
reg,con sbb bl ,3 
mem,con sbb (word ptr Fix + di],300 
reg,reg sbb ax,ax 
reg,mem sbb bh,C(byte ptr Fix] 
mem,reg sbb (byte ptr Fix + sijl,al 
Przyklad 
stc 


mov ax,O 


sbb ax,ax +: AX=—-1 


SCASB 


ZZ IJ)J)Q)Q)Q)Q—SSDSŚSŚSLmzmenzcznm 
SRladnta scasb FL: aco psz 
Opis Porównanie bajtu zawartego w rejestrze AL z bajtem 


pod adresem ES:DI, przez wyznaczenie różnicy 


Uwagi 

Argumenty 
brak 

Przyklad 


AL — [(byte ptr ES : DI] 
a następnie, jeśli DF=O zwiększenie DI o 1, a 
jeśli DF=1i, zmniejszenie DI i 1. 


Rozkaz może być poprzedzony repetytorem. 


scasb 


mov cx,200 


les di,(dword ptr Ref] 


std 


xor al,al 


repe scasb 


je Fail 

inc di 

inc di ; adres pierwszego zera z lewej 
SCASW 
SRladnia scasw FL: a co psz 
Opis Porównanie słowa zawartego w rejestrze AX ze 


Przyklad 


słowem pod adresem ES:DI, przez wyznaczenie 
różnicy 

AX — [word ptr ES:DI] 
a następnie, jeśli DF=O zwiększenie DI o £, a 
jeśli DF=1, zmniejszenie DI i 2. 
Rozkaz może być poprzedzony repetytorem. 


ScasSw 


mov cx,1OO 


les di,[(dword ptr Ref] 


cld 


XxXOr ax,ax 


repne SCaSw 


jne Fail 


sub di,2 ; ES:DI — adres słowa o wartości O 


Skladnia Sshl dst,ecnt FL: co p s z, a=? 

Opis Potraktowanie zmiennej dst jako liniowego bufora 
i logtczne przesunięcie w nim wszystkich bitów o 
cent pozycji w lewo. 

Uwagt Argument cnt musi być wyrażeniem stałym o wartości 
1, albo nazwą rejestru CL, którego wartość określa 
liczbę przesunięć. Podczas każdego przesunięcia, 
najbardziej znaczący bit zmiennej wchodzi do CF, 


na jej pozycję najmniej znaczącą wchodzi O. 


Jeśli przesunięcie jest jednokrotne, a po jego 
wykonaniu najbardziej znaczący bit rezultatu różni 


się od CF, to wykonuje się operację 
OF := i 


W przeciwnym razie wykonuje się operację 


OF :=0O 
Argumenty 
reg,1i shl ax,1i 
mem,1 shl [byte ptr FixJ,1i 
reg,CL shl bh,cl 
mem, CL shl (word ptr Fix + bx],cl 
Przyklad 


mov Cbyte ptr Fix]l,10 

mov cl,1l 

shl [byte ptr Fixl,cl 

mov bl,[byte ptr Fix] ; BL=20, CF=O, OF=O 


SHR 


SkRladnta Shr dst,cent FL: co ps z, a=? 

Opts Potraktowanie zmiennej dst jako liniowego bufora 
i logiczne przesunięcie w nim wszystkich bitów o 
cent pozycji w prawo. 

Uwagi Argument cent musi być wyrażeniem stałym o wartości 
1, albo nazwą rejestru CL, którego wartość określa 


liczbę przesunięć. Podczas każdego przesunięcia, 
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najmniej znaczący bit zmiennej wchodzi do CF, a 


najbardziej znaczący bit jest zerowany. 


Jeśli przesunięcie jest jednokrotne, a po jego 
wykonaniu dwa najbardziej znaczące bity rezultatu 
są różne, to wykonuje się operację 


OF := 1 


OF :=0 

Argumenty 

reg,1i shr dx,1 

mem, 1 shr [word ptr Fix],1l 

reg,CL shr ch,cl 

mem, CL shr [word ptr Fix + bx],cl 
PrzykRlaa 

mov ax,-l 

mov cl,i 

shr ax,cl ; AX=32767, CF=1, OF=1 
STC 
SRladnia ste FL: c=1 
Opis Ustawienie znacznika c. 
Uwagi Wykonanie operacji 

CF :=1 

Argunenty 

brak stc 
Przyklad 

ste 

je Lab ; skok będzie wykonany 


ian ACERO 


STD 
NN AM...) , JJ J)QOQ))OOOD)D)DO)D)DD)D—AaQAQn1 
SRladnia std FL: d=1 
Opis Ustawienie znacznika d. 
Uwvagt Wykonanie operacji 
DF := 1 

Argumenty 

brak std 


Przyklad 
std 


xor Si,Si 


lodsw 

mov ax,Si SI =-2 
STI 
SRladnia St1i1 FL: i=1 
Opts Ustawienie znacznika i. 
Uwagt Wykonanie operacji 

IF :=1 

Argumenty 

brak sti 
Przyklad 

sti ; odblokowanie przerwań 
STOSB 
SRladnia Sstosb FL: bez zmian 
Opis Przeniesienie pod adres ES:DI bajtu z rejestru AL. 

Jeśli DF=O zwiększenie DI o 1, a jeśli DF=1 
zmniejszenie DI o 1. 

Uwagi Rozkaz może być poprzedzony repetytorem. 
Argumenty 

brak stosb 
Przyklad 


les di,[dword ptr Ref] 
mov al,[byte ptr Fix] 


std 
stosb : zapamiętanie pośrednie 
stosb - dwóch bajtów 
STOSW 
SRladnia stosw FL: bez zmian 
Opts Przeniesienie pod adres ES:DI słowa z rejestru AX. 


SSE 


Jeśli DF=O zwiększenie DI o 2, a jeśli DF=1 


zmniejszenie DI o 2. 


Uwagt Rozkaz może być poprzedzony repetytorem. 
Argunenty 

brak stŁosw 
Przyktaa 


les di ,[dword ptr Ref] 


mov ax,lword ptr Fix] 


stosw : zapamiętanie pośrednie 
StŁosw ; dwóch słów 
SUB 
Skladnia sub dst,src FL: a co psz 
Opis Odjęcie dwóch danych całkowitych. 
Uwagi Wykonanie operacji 
dst := dst — src 
Argumenty 
reg,con sub bl ,3 
mem, con sub (byte ptr Fix + dil,30 
req,req sub ax,ax 
reg, mem sub bh,lbyte ptr Fix] 
mem, reg sub [byte ptr Fix + sil,al 
Przyklad 
mov ax,257 
mov bl,3 
sub ah, bl + AH=-2 


SkRladnia test dst,src FL: c=zO o=O p s z, a=? 

Opis Wyznaczenie iloczynu logicznego na wszystkich 
odpowiadających sobie bitach argumentów w celu 
zaktualizowania znaczników rejestru FL. 

Uvagi Wykonanie operacji 

dst AND src 


bez umieszczania gdziekolwiek jej rezultatu. 


Argunenty 


reg,con test ax,-1 

mem,con test [word ptr Fix + 2],Offfh 

reg,reg test al,al 

reg, mem Łest bx,[word ptr Fix -— 2] 

mem, reg test [word ptr Fix + si],bx 
Przyklad 


mov ax,-© 


test ax,ax 


Js Lab ,;, skok będzie wykonany 

WAIT 

SRladnia wait FL: bez zmian 

Opts Zawieszenie wykonywania rozkazów procesora. 

Uvagt Kontynuowanie wykonywania rozkazów następuje po o- 
debraniu sygnału informującego o zakończeniu ope- 
racji zewnętrznej wykonywanej np. przez koprocesor. 

Argumenty 

brak wait 
Przyklad 

wait , bez komentarza 
XCHG 


SkRladnta. xchg dst,src FL: bez zmian 


Opis Zamiana danych przypisanych zmiennym dst i src. 
Uva$st Wykonanie operacji 

temp := dst 

dst := src 

src = Łemp 


Argumenty 


reg,reg xchg ax,bx 

reg,mem xchg ax,lspj 

mem,reg xchg [byte ptr Fixl,bh 
PrzykRlad 


mov ax,-—33 


xchg ax,bx : BX=-33 


XLAT 


SRladnia xlat FL: bez zmian 
Opts Przeprowadzenie translacji bajtu według tablicy. 
Uwvagt Wykonanie operacji 
AL := [byte ptr BX + ALI] 
Argumenty 
brak xlat 
Przyklad 


Table DB 1,3,5,7,9 


mov bx,OFFSET Table 
mov al,3 


xlat ; AL=7 


SRladnia Xor dst,src FL: c=O o=O p s z, a=? 
Opts Przypisanie dst różnicy symetrycznej argumentów. 
Uwagi Różnica symetryczna jest wyznaczana równolegle na 


wszystkich bitach argumentów 


Bit dst Btt src Bit dst XOR src 


O O O 
O 1 1 
1 O 1 
1 1 O 
Argumenty 
reg,con xor ax,-i 
mem, con xor [byte ptr Fix + 2],Offh 
reg,reg xor ax,ax 
reg,mem xor bx,lword ptr Fix — EJ 
mem,reg xor (word ptr Fix + sij,bx 
Przyklad 
mov ax,"e 
xor al,al +: AL=O 


15.5. Włączanie zbiorów, kompilacja warunkowa 


Niekiedy zachodzi potrzeba włączenia do kompilowanego modułu, 
fragmentu uprzednio przygotowanego tekstu asemblerowego. Może 
to mieć na przykład miejsce wtedy, gdy do kilku modułów pro— 
gramu wielomodułowego zamierza się włączyć zestaw dyrektyw 
GLOBAL. Zadanie to można łatwo zrealizować posługując się 
dyrektywą INCLUDE. 


Dyrektywa INCLUDE ma w ogólnym przypadku postać 


INCLUDE name 


w której name jest nazwą zbioru tekstowego. Jeśli nazwa name 
nie zawiera rozszerzenia, to domniemywa się rozszerzenie 


. ASM. 


Zinterpretowanie dyrektywy INCLUDE powoduje włączenie w 
miejscu jej wystąpienia zawartości zbioru name. Nic nie Stoi 
na przeszkodzie, aby włączany tekst także zawierał dyrektywy 
I NCLUDE. 


Przykład Użycie dyrektyw INCLUDE 


zbiór INSERT. ASM 
GLOBAL Fix : BYIE 
zbtór DATA. ASM 


. MODEL SMALL 
INCLUDE INSERT 
. DATA 

Fix DB 13 
END 


zbiór CODE. ASM 


. MODEL SMALL 
INCLUDE INSERT. ASM 
. CODE 
Start: 

mov ax,©Data 

mov ds,ax 

mov al,l[Fix] 

mov ah,4ch 

int 21h 
END Start 


Moduł DATA jest traktowany tak jakby miał postać 


. MODEL SMALL 
GLOBAL Fix : BYIE 
„DATA 

Fix DB 13 
END 
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a moduł CODE jest traktowany tak jakby miał postać 


. MODEL SMALL 
GLOBAL Fix : BYIE 
. CODE 
Start: 
mov ax,QData 
mov ds,ax 
mov al,lFix] 
mov ah,4dch 
int 2ih 
END Start 


Włączenie tekstu asemblerowego za pomocą dyrektywy INCLUDE 


jest bezwarunkowe. W tŁych przypadkach gdy włączenie zawar - 


tości zbioru albo pewnego fragmentu modułu źródłowego powin- 


no być uzależnione od pewnych warunków, można posłużyć się 


dyrektywą kompilacji warunkowej. 


Dyrektywy kompilacji warunkowej występują w kilku odmianach, 


różniących się głównie rozpoczynającym je słowem kluczowym. W 
ogólnym przypadku każda z takich dyrektyw ma postać 


head 
text 
ELSEIF expf 
textl 
ELSEIF exp2 
text2 
ELSEIF expn 
textn 
ELSE 


textŁO 
ENDIF 


w której każde text jest dowolną sekwencją rozkazów i 
dyrektyw Cw tym dyrektyw kompilacji warunkowej), każde exp 
jest wyrażeniem, a head jest jedną z następujących fraz 
rozpoczynających rozpatrywaną dyrektywę 


IF exp 


IFE exp 


IFDEF sym 


IFNDEF sym 
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kompiluj warunkowo, jeśli wyrażenie 


exp ma wartość różną od O; 


kompiluj warunkowo, jeśli wyrażenie 


exp ma wartość O; 


kompiluj warunkowo, jeśli symbol 


sym jest zdefiniowany; 


kompiluj warunkowo, jeśli symbol 


sym nie jest zdefiniowany; 


IFB <arg> — kompiluj warunkowo, jeśli argument 
arg jest pusty; 


IFNB <arg> — kompiluj warunkowo, jeśli argument 


arg jest niepusty; 


IFIDN <argL>,<argR>  - kompiluj warunkowo, jeśli argument 


argL jest równy argumentowi argR; 


IFDIF <argL>,<argR  -— kompiluj warunkowo, jeśli argument 
argL jest różny od argumentu argR; 


IFIDNI <argL>,<argR> -— kompiluj warunkowo, jeśli nie 
odróżniając małych i dużych liter 
można uznać, że argument argL jest 
równy argumentowi argR; 

IFDIFI <argL>,<argR> -— kompiluj warunkowo, jeśli nie 
odróżniając małych i dużych liter 
można uznać, że argument argL jest 


różny od argumentu argR. 


W przytoczonym zapisie ogólnym, fraza 


ELSE 
Łexż 


jest traktowana tak jak skrócony zapis frazy 


ELSEIF 1 
text 
a każda z fraz rozpoczynających się od słowa kluczowego 
ELSEIF Ćw tym przekształcona fraza rozpoczynająca się od sło- 
wa kluczowego ELSE) może być opuszczona. W tym sensie popraw 
ne są między innymi takie dyrektywy jak 
IF exp 


text 
ENDIF 


Or az 


IF exp 
textŁiI 

ELSE 
text2 

ENDIF 


Jeśli w nagłówku dyrektywy kompilacji warunkowej występuje 
symbol sym, to przyjmuje się że jest on zdefiniowany, jeśli 
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został użyty w znaczeniu etykiety, a jeśli występują napisy 


arglL i argR, to przyjmuje się, że są one wyrażeniami. 


Zinterpretowanie dyrektywy kompilacji warunkowej przebiega w 


następujący sposób 
- określa się prawdziwość warunku wyrażonego przez head; 


- jeśli warunek jest spełniony, kompiluje się napis text, i 
na tym kończy interpretowanie rozpatrywanej dyrektywy kompi— 


lacji warunkowej; 


— jeśli warunek nie jest spełniony, określa się kolejno war— 
tości wyrażeń exp zawartych we frazach rozpoczynających się 
od słów kluczowych ELSEIF Ci przekształconej frazie rozpoczy- 
nającej się od słowa kluczowego ELSE, aż do momentu napotka- 
nia wyrażenia expj o wartości różnej od O, po czym kompiluje 
napis textj i na tym kończy interpretowanie rozpatrywanej 


dyrektywy kompilacji warunkowej; 


- jeśli poszukiwanie wyrażenia expj o wartości różnej od O 
nie zakończy się sukcesem, to korczy się interpretowanie 


dyrektywy. 


Przykłady Dyrektywy kompilacji warunkowej 


a Prosta dyrektywa 


IFa +b- 2 
One Dw 13 
Two DB O 

ELSE 
One DB 13 
Two Dw O 

END 


Jeśli wyrażenie a + b — 2 ma wartość różną od O, to zinter- 


pretowanie przytoczonej dyrektywy spowoduje skompilowanie 


napisu 


One Dw 13 
Two DB O 


a w przeciwnym razie, Skompilowanie napisu 


One DB 132 
Two DW O 
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b Dyrektywa zagnieżdżona 


IFDEF Fix 
mov ax,[Fix] 
IFE b 
Jmp short Skip 
Lab DB 13 
Skip: 
ENDI F 
ELSEIF b + 2 
mov bx,O 
ENDI F 
Jeśli symbol Fix jest zdefiniowany, a ponadto b ma wartość O, 
Ło nastąpi skompilowanie napisu 
mov ax,[Fix] 
Jjmp short Skip 
Lab DB 13 
Skip: 


Jeśli symbol Fix jest zdefiniowany, ale b jest różne od O, to 


nastąpi skompilowanie napisu 


mov ax,[Fix]) 


Jeśli symbol Fix nie jest zdefiniowany, ale b + 2 jest różne 


od O, to nastąpi skompilowanie napisu 


mov bx,O 


Jeśli symbol Fix nie jest zdefiniowany, a ponadto b + 2 ma 
wartość O, to zinterpretowanie rozpatrywanej dyrektywy kom- 


pilacji warunkowej nie będzie miało żadnych skutków. 


15.6. Makrodefinicje i makrowywołania 


znacznym ułatwieniem programowania asemblerowego jest możli — 
wość odwoływania się do makrodefinicji, to jest tych frag— 
mentów modułu źródłowego, które bez zmian, albo z niewiel— 


kimi zmianami mogą być kierowane do kompilacji. 


Makrodefinicje mogą być umieszczane bezpośrednio w kompilowa— 
nym module źródłowym, albo mogą pochodzić z uprzednio przy- 
gotowanych zbiorów, włączanych w miejscu wystąpienia dyrektyw 
I NCLUDE. 


Niezależnie od źródła jej pochodzenia, makrodefinicja ma w 


ogólnym przypadku postać 
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name MACRO par,par, ... ,par 
body 


ENDM 


w której name jest nazwą makrodefinicji, każde par jest jej 

parametrem, a body jest ciałem makrodefinicji. Każdy z para- 
metrów makrodefinicji jest identyfikatorem. Ciało jest dowol- 
nym napisem zawierającym odwołania do parametrów. Makrodefi- 
nicje, w których lista parametrów jest pusta są nazywane bez- 


paramełrowymt. 


Zinterpretowanie makrodefinicji powoduje jedynie zarejestro” 
wanie jej istnienia. Właściwe wykorzystanie makrodefinicji 


następuje bowiem dopiero w miejscu jej wywołania. 
Wywołanie makrodefinicji ma postać 
name arg,arg, ... ,arg 


w której name jest nazwą uprzednio zinterpretowanej makro- 


definicji, a każde arg jest argumentem jej wywołania. 
Zinterpretowanie wywołania makrodefinicji powoduje 


- skojarzenie każdego parametru par z odpowiadającym mu 
arqumentem arg Cpierwszy parametr z pierwszym argumentem, 


drugi z drugim, itd.DJ; 


- zinterpretowanie ciała makrodefinicji, po uprzednim zas-— 
tąpieniu każdego występującego w nim identyfikatora para- 
metru, odpowiadającym temu parametrowi argumentem. 
Przykłady Kozwt jante makrowywolań 
a W zasięgu makrodefinicji 
Swap MACRO Dst „,Srce 
push Dst 
mov Dst,Sre 


pop Src 
ENDM 


zinterpretowanie makrowywołania 
Swap ds,es 

spowoduje skompi lowanie napisu 
push ds 


mov ds,es 
pop es 
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b W zasięgu makrodefinicji 


LongSHL MACRO 
clc 
shl ax,1i 
rcl dx,1 
ENDM 


zinterpretowanie makrowywołania 
LongSHL 


spowoduje skompilowanie napisu 


clc 
shl ax,l 
rcl dx,i 


c W zasięgu makrodefinicji 


Swap MACRO Dst,Srce 
IFDIFI <Dst>,<Src> 
xchg Src,Dst 
ENDIF 
stc 
ENDM 


zinterpretowanie makrowywołania 
Swap bx,CX 
powoduje skompilowanie napisu 


xchg CX,bx 
stc 


a zinterpretowanie makrowywołania 
Swap ax,ax 
powoduje skompilowanie napisu 


stŁc 


Makrodefinicje specjalne 


Do kategorii makrodefinicji specjalnych zaliczono tu makro— 
definicje rozpoczynające się od słów kluczowych REPT, IRP i 
IRPC. Ich specjalny charakter polega na tym, że zinterpreto— 
wanie każdej z nich powoduje dodatkowo domniemanie i zinter— 


pretowanie makrowywołania. 


Bezpośrednio po takim zinterpretowaniu, makrodefinicja spec— 
jalna przestaje istnieć. Z tego względu nie ma potrzeby po— 


przedzania jej nazwą. 
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REPT 
Makrodefinicja REPT ma postać 


REPT count 
body 
ENDM 


w której count jest wyrażeniem stałym nie zawierającym odwo- 


łań w przód, a body jest ciałem makrodefinicji. 


Zinterpretowanie makrodefinicji IRP powoduje włączenie w 
miejscu jej wystąpienia i skierowanie do kompilacji, napisu 


składającego się Z count wystąpień ciała makrodefinicji. 


Przykład Makrodefinicja REPT 
Zinterpretowanie makrodefinicji 
REPTI 3 


shr ax,i 
ENDM 


powoduje skierowanie do kompilacji napisu 


shr ax,i 
shr ax,i 
shr ax,1l 


IRP 
Makrodefinicja IRP ma postać 


IRP par,targ,arg, ... „arg> 
body 
ENDM 
w której par jest identyfikatorem parametru makrodefinicji, 


każde arg jest argumentem, a body jest ciałem makrodefi — 


nicji. Argumenty arg mogą być dowolnymi wyrażeniami. 


Zinterpretowanie makrodefinicji IRP powoduje włączenie w 

miejscu jej wystąpienia i skierowanie do kompilacji, napisu 
składającego się z takiej liczby wystąpień napisu body, ile 
jest argumentów, po każdorazowym zastąpieniu parametru par 


występującego w body, kolejnym argumentem arg. 
Przykład Makrodefinic,a IRP 


Zinterpretowanie makrodefinicji 


IRP Child,<Tom, Bob, Ann> 
Child DB ? 
ENDM 
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powoduje skierowanie do kompilacji napisu 


Tom DB ? 
Bob DB ? 
Ann DB ? 


IRPC 
Makrodefinicja IRPC ma postać 


IRPC par,strtng 
body 
ENDM 
w której par jest identyfikatorem parametru makrodefinicji, 


strtng jest dowolnym ciągiem znaków, a body jest ciałem 


makrodefinicji. 


Zinterpretowanie makrodefinicji IRPC powoduje włączenie w 
miejscu jej wystąpienia i skierowanie do kompilacji, napisu 
składającego się z takiej liczby wystąpień napisu body, ile 
znaków liczy string, po każdorazowym zastąpieniu parametru 
par występującego w body, kolejnym znakiem pochodzącym z 


argumentu string. 


Przykład Makrodeftinicja IRPC 
Zinterpretowanie makrodefinicji 


IRPC Digit,1989 
DB Digit 
ENDM 


powoduje skierowanie do kompilacji napisu 


DB i 
DB 9 
DB 8 
DB 9 


Wyodrębnianie parametrów 


Jeśli podczas interpretowania ciała makrodefinicji zostanie 
napotkany znak 8 Campersand>, występujący bezpośrednio przed 
albo bezpośrednio po parametrze makrodefinicji, to po zastą— 
pieniu parametru argumentem, znak taki zostanie usunięty. Za— 
sada ta dotyczy także wystąpień rozpatrywanego znaku przed 
parametrami znajdującymi się w obrębie literałów znakowych, 
umożliwiając zarówno scalanie napisów i argumentów, jak i 


posługiwanie się literałami sparametryzowanymi. 
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Przykład Scalanie ti parametryzowantie 


W zasięgu makrodefinicji 


Child MACRO Lab,Siz,Str 
Labśber D£Siz 13 
DB '"==8Str8$==" 

ENDM 


zinterpretowanie makrowywołania 
Child Num,W, Tom 
powoduje skierowanie do kompilacji napisu 


Number DW 13 
DB *”==Tom==" 


Dyrektywa LOCAL 


Jeśli istnieje obawa, że podczas kolejnych wywołań tej samej 
makrodefinicji może zostać skierowany do kompilacji napis 
zawierający uprzednio wygenerowaną etykietę, co jest oczy- 
wiście niedozwolone, to należy posłużyć się dyrektywą LOCAL, 
przewidzianą do definiowania lokalnych symboli makrodefini- 
cji. 


Dyrektywa LOCAL ma postać 
LOCAL symbol ,symboL, ... ,symboł 
w której każde symboł jest symbolem lokalnym. 


Zinterpretowanie dyrektywy LOCAL powoduje, że z każdym wymie- 
nionym w niej symbolem jest związywany unikalny symbol o pos- 
Łaci ??number Cnumnber jest liczbą>, który w napisach skiero- 
wanych do kompilacji, zastępuje pierwotny symbol, z którym go 
związano. Dzięki temu można uniknąć powielania tych samych 
etykiet. 


Przykład Użycte dyrektywy LOCAL 
W zasięgu makrodefinicji 


Display MACRO Message 
LOCAL Lab 
„DATA 
Lab DB Message 
DB 13,10,'$' 
, CODE 
mov dx,OFFSET Lab 
mov ah,9 
int 21h 
ENDM 
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zinterpretowanie pary wywołań 


Display 'Hello' 
Display 'world"' 


powoduje skierowanie do kompilacji na przykład napisu 


. DATA 
?2O0O0025 DB "Hello? 
DB 13,10.'$' 
. CODE 
mov dx,OFFSET ??00025 
mov ah,9 
int 21h 
. DATA 
7??OOO26 DB "world" 
DB 13,10.'$ 
. CODE 
mov dx,OFFSET ?7?00026 
mov ah,9 
int 2ih 


Operatory specjalne 
Poza omówionym już operatorem do wyodrębniania parametrów, 


operatorami specjalnymi są 


<> którego użycie powoduje doslowne, tj. bez nadawania 
interpretacji, potraktowanie znaków zawartych w 
nawiasach kątowych; 


np. w makrowywołaniu 
Show 2,<; text> 
znak ; CsrednitkO nie jest początkiem komentarza. 
! którego użycie powoduje dosłowne potraktowanie nastę- 


pującego po nim znaku; 


np. w makrowywołaniu 
Show a!,b,c 


występują dwa argumenty: <a,b> i <c>. 


którego użycie powoduje zastąpienie argumentu ciągiem 


Ń 


cyfr reprezentujących wartość argumentu; 


np. w makrowywołaniu 
Show %2+3,2+3 


występują argumenty <5> i <2+3>. 
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Dyrektywa EXITM 
Dyrektywa EXITM ma postać 
EXI TM 
Może ona wystąpić jedynie w ciele makrodefinicji. 


Zinterpretowanie dyrektywy EXITM powoduje natychmiastowe za- 
kończenie interpretowania właśnie interpretowanego makrowy- 


wołania. 


Przykład Dyrektywa EXITM 
FastMul MACRO Factor 


IF Factor EQ 1 
cbw 
EXI TM 

ENDIF 


Fast =O 
Count = 1 
Bit=e2e 


REPTI 16 
IF Factor EQ Bit 
Fast =1 
EXI TM 
ENDIF 
Count = Count + 1 
Bit = Bit SHL 1 
ENDM 


IF Fast 
xor dx,dx 
REPT Count 
shl ax,1i 
rcl dx,i 
ENDM 
ELSE 
mov dx,Factor 
mul dx 
ENDIF 


ENDM 


Makrodefinicja umożliwia mnożenie rejestru AX przez stałą. 
Jeśli stała jest potęgą liczby 2, to mnożenie jest wykonywa- 
ne w sposób przyspieszony Cza pomocą przesunięć). W szcze— 
gólności wywołanie 

FastMul 4 
powoduje skierowanie do kompilacji napisu 

xor dx,dx 

shl ax,1 

rcl dx,1 


shl ax; 1 
rcl dx,1 
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15.7. Dyrektywy organizacyjne 


Do kategorii dyrektyw organizacyjnych zaliczono te wybrane 
dyrektywy, których zinterpretowanie nie ma wpływu na genero-— 
wanie kodu i danych. Są to przede wszystkim dyrektywy do or-— 
ganizowania wydruków i generowania komunikatów. 
Dyrektywa %PAGESIZE 
Dyrektywa %PAGESIZE ma postać 

%PAGESIZE rowvs,cols 


w której rows i cols Są liczbami. 


Zinterpretowanie dyrektywy %PAGESIZE powoduje określenie roz— 
miaru strony raportu kompilacji i przyjęcie, że liczy ona 
rows wierszy (co najmniej 10 i cols kolumn (co najmniej 59). 
Jeśli jeden z argumentów jest pusty, to zmiana dotyczy tylko 
drugiego z nich. 


Przykład Określenie rozmiaru strony 
%PAGESIZE ,72 
Pozostawienie liczby wierszy bez zmian i wybranie raportu 
wyprowadzanego w 72 kolumnach. 
Dyrektywy %TITLE i %SUBTTL 
Wymienione dyrektywy mają odpowiednio postać 


XTI TLE text 


XSUBTIL text 
w której text jest dowolnym napisem. 


Zinterpretowanie dyrektywy X%IITLE określa texł jako tytuł 
który będzie umieszczany na początku każdej strony rapor tu 
kompilacji Cbezpośrednio po numerze Strony), a zinterpretowa"— 
nie dyrektywy %XSUBTIL określa podtytuł każdej strony. Tytuł i 
podtytuł mogą być określane niezależnie. 


Przykład Tytul t podtytuł 


%1II TLE Sort and Merge 
%SUBTIL Sort 
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Dyrektywy XLIST i %NOLIST 
Wymienione dyrektywy mają odpowiednio postać 


%LI ST 


%NOLI ST 


Zinterpretowanie dyrektywy %LIST powoduje zainicjowanie wy- 
prowadzania raportu kompilacji do zbioru określonego w dy- 
rektŁywie wywołania kompilatora, a zinterpretowanie dyrektywy 
%NOLIST powoduje zaniechanie wyprowadzania raportu. Na po— 


czątku kompilacji domniemywa się dyrektywę %LIST. 


Przykład Selektywvne generowanie raportu kompilacji 


NOLI ST 

mov ax,©Data 
LI ST 

mov ds,ax 


Wyłączenie z raportu kompilacji, informacji o pierwszym z 


wymienionych rozkazów. 


Dyrektywy %INCL i %NOINCL 


Dyrektywy %INCL i %NOINCL mają odpowiednio postać 


%1 NCL 


NOI NCL 


Zinterpretowanie dyrektywy %INCL powoduje zainicjowanie u- 
mieszczania w raporcie kompilacji tekstów zawartych w zbio- 
rach włączanych dyrektywą INCLUDE, a zinterpretowanie dyrek— 
tywy %NOINCL powoduje zaniechanie takiego włączania. Na po- 
czątku kompilacji domniemywa się dyrektywę %INCL. 


Przykład Ujawnianie zawartości zbiorów wlączanych 


Zinterpretowanie napisu 


NOI NCL 
INCLUDE One 
%1 NCL 
INCLUDE Two 
spowoduje wyłączenie z raportu kompilacji zawartości zbioru 


One i włączenie do raportu kompilacji zawartości zbioru Two. 
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Dyrektywy %MACS i %XNOMACS 


Dyrektywy %MACS i %NOMACS mają odpowiednio postać 


„MACS 


%NOMACS 


Zinterpretowanie dyrektwy %MACS powoduje zainicjowanie włą— 
czania do raportu kompilacji także i tych dyrektyw zawartych 
w makrodefinicjach, których zinterpretowanie nie powoduje 
generowania kodu. Zinterpretowanie dyrektywy %NOMACS powoduje 
zaniechanie dalszego włączania takich dyrektyw do raportu 
kompilacji. Na początku kompilacji domniemywa się dyrektywę 
%NOMACS. 


Przykład Eltiminowvanite dyrektyw biernych 
W zasięgu makrodefinicji 


Set MACRO One, Two 


*NOMACS 
First = One 
%MACS 
Second = Two 
ENDM 


zinterpretowanie makrowywołania 
Set 10,20 
nie spowoduje włączenia do raportu kompilacji wiersza 


First = 10 


Dyrektyw %CONDS i %NOCONDS 
Dyrektywy %CONDS i %NOCONDS mają odpowiednio postać 


4CONDS 


%NOCONDS 


Zinterpretowanie dyrektywy %CONDS powoduje zainicjowanie włą— 
czania do raportu kompilacji również i Łych wierszy dyrektyw 
kompilacji warunkowej, które nie podlegały interpretacji, a 
zinterpretowanie dyrektywy %NOCONDS powoduje zaniechanie włą— 
czania takich wierszy. Na początku kompilacji domniemywa się 
dyrektywę %CONDS. 
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Przykład Eliminowanie wierszy nie tnterpretowanych 
w zasięgu makrodefinicji 


Move MACRO Reg, Val 
mov ax,Val 
IFIDN <Reg>,<DS> 
mov ds,ax 
ENDIF 
ENDM 


zinterpretowanie napisu 
%NOCONDS 
Move ax,13 
nie powoduje włączenia do raportu kompilacji wiersza 


mov ds,ax 
Dyrektywy %CTLS i %NOCTLS 


Dyrektywy %CILS i %NOCTLS mają odpowiednio postać 


ACILS 


ANOCILS 


Zinterpretowanie dyrektywy %CILS powoduje zainicjowanie 
włączania do raportu kompilacji dyrektyw sterujących tym 
raportem CŁakich jak na przykład C%LIST, %CONDS, itp.D, a 
zinterpretowanie dyrektywy %NOCTLS powoduje zaniechanie 
takiego włączania. Na początku kompilacji domniemywa się 


dyrektywę %NOCTLS. 
Przykład Ujawnianie t ukrywanie dyrektyv sterujących 
Zinterpretowanie napisu 
4CTILS 
%NOLI ST 
mov ax,13 
NOCTILS 
%CONDS 
spowoduje m.in. usunięcie z raportu kompilacji informacji o 
wystąpieniu dyrektywy %CONDS. 
Dyrektywy XPUSHCTL i XPOPCTL 
Dyrektywy %PUSHCIL i %POPCTL mają odpowiednio postać 
%PUSHCIL 
%POPCTIL 
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Zinterpretowanie dyrektywy %PUSHCTL powoduje zapamiętanie na 
lokalnym stosie kompilatora, informacji o skutkach użycia dy- 
rektyw mających wpływ na sposób generowania raportu kampi — 
lacji Ctakich jak np. %LIST, %MACS, %CONDSJ, a zinterpretowa— 
nie dyrektywy %POPCTL powoduje odtworzenie zapamiętanych 
skutków użycia takich dyrektyw. 


Przykład Poslugiwanie się lokalnym stosem kompilatora 


Jeśli zbiór włączany do modułu źródłowego za pomocą 
dyrektywy INCLUDE ma postać 
%PUSHCTL 


body 
%POPCTL 


w której body nie zawiera dyrektyw %PUSHCTL, ZPOPCTL 1 
INCLUDE, to włączenie go nie powoduje zmiany sposobu 


generowania raportu kompilacji. 


15.8. Tryby Masm i Ideal 


Dotychczasowa prezentacja języka Turbo Assembler ograniczała 
się do tych jego konstrukcji, które w równym stopniu dotyczą 
kompilatora MASM CMicrosoftD> jak i TASM CBorland>. Należy 
jednak zwrócić uwagę, że ci programiści, którzy zdecydują się 
wyłącznie posługiwać asemblerem IASM, mają do dyspozycji sze- 
reg nowych, atrakcyjnych możliwości, które ujawniają się po 


zinterpretowaniu dyrektywy IDEAL. 
Dyrektywy IDEAL i MASM 


Dyrektywy IDEAL i MASM mają odpowiednio postać 


I DEAL 


MASM 


Zinterpretowanie dyrektywy IDEAL powoduje zainicjowanie kom- 
pilacji w trybie Ideal, a zinterpretowanie dyrektywy MASM 
powoduje zainicjowanie kompilacji w trybie Masm. Na początku 


kompilacji domniemywa się tryb Masm. 


Posługiwanie się trybem Ideal nie wymaga poznawania nowych 
zasad programowania asemblerowego, ponieważ odrębności skład— 
ni trybu Ideal odniesione do trybu Masm są minimalne. Zaletą 
trybu Ideal jest natomiast zwiększenie kontroli poprawności 
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programów, eliminacja pewnych uciążliwych wymagań trybu Masm 
i zastosowanie bardziej naturalnej składni niektórych dyrek- 


Ływ. 


Dyrektywy kropkowe 


W trybie Ideal nie mogą być używane dyrektywy rozpoczynające 
się od znaku . CkropkRo, nazwane tu kropkowvymt. Każda z nich 
ma swój odpowiednik zaczynający się od litery, a mianowicie 


Tryb Masm Tryb Ideal 


. MODEL MODEL 

. CODE CODESEG 
. DATA DATASEG 
. DATA? UDATASEG 


.FARDATA FARDATA 

. FARDATA? UFARDATA 

. STACK STACK 

. 8086 P8O86 Ct analogicznie tnne tej grupy) 


Przykład Program v trybte Ideał 


I DEAL 
MODEL SMALL 
STACK 1OOh 
DATASEG 
Greet DB 'Hello",'$> 
CODESEG 
SŁart: 
mov ax,O©Data 
mov ds,ax 
mov dx,OFFSET Greet 
mov ah,9 
int 21h 
mov ax,4cO0O0h 
int 21h 
END Start 


Dyrektywa SEGMENT 


W trybie Ideal dyrektywa SEGMENT ma postać 


SEGMENT name align combtne "class 
body 
ENDS 
Przykład 
SEGMENT Data WORD PUBLIC *DATA? 
Fix DB 13 


Arr DW 20 DUPC?D 
END 
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Dyrektywa PROC 
W trybie Ideal dyrektywa PROC ma postać 


PROC name dist arg,arg, ... ,arg RETURNS res,res, 
body 
ENDP 


Przykład 


PROC Sum NEAR One, Two 


Dyrektywa MACRO 
W trybie Ideal dyrektywa MACRO ma postać 


MACRO name par,par, ... „par 
body 
ENDM 


Przykład 
MACRO Sum One, Two 
mov ax,[word ptr One] 


add ax,l[word ptr Two] 
ENDM 


Dyrektywa RECORD 
W Łrybie Ideal dyrektywa RECORD ma postać 
RECORD name fjield,/field, ... „field 
Przykład 
RECORD Word1i6 Left: SMid2: 2=3,Right4: 4 
Dyrektywa STRUC 
W trybie Ideal dyrektywa STRUC ma postać 
STRUC name 
ftelad 
ftela 
ftela 
ENDS 


19 — Turbo Pascal 5,0 
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Zezwala się, aby identyfikatory pól występujące w odrębnie 
deklarowanych strukturach były identyczne. 


Przykład 
W zasięgu deklaracji 


STRUC Pair 
First DB ? 
Last DB O 

ENDS 


STRUC Quartet 
Before DW O 
Mid Pair 
After DW O 
Last DB 2 

ENDS 


One Pair <2,2> 
Two Quartet <> 
SŁruct Quartet <> 


są poprawne następujące rozkazy 


mov al,l[One. Last] 

mov al,[ Two. Last] 

mov ax,l[word ptr Struct.Mid.Firstj 

mov ah,[CPair ptr bxO.Last] ; operator Pair ptr 
mov al,[CQuartet ptr di).Last] ; operator Quartet ptr 


Dyrektywa UNION 
W trybie Ideal dyrektywa UNION ma postać 


UNION name 
ftela 
fJtetad 


field 
ENDS 


Zezwala się, aby identyfikatory pól występujące w odrębnie 
deklarowanych uniach były identyczne. 


Przykład 
W zasięgu deklaracji 


UNION Quartet 
First DW O 
STRUCT Pair 

Middle DB O,O 
ENDS 
Last DB 5 
ENDS 
Uni Quartet <> 
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są poprawne następujące rozkazy 


mov al,C(Uni. Last] 
mov ah, CUni. Middle + i] 


Dyrektywa EQU 
W tŁrybie Ideal dyrektywa EQU ma postać 
name EQU exp 


Wartość wyrażenia exp jest wyznaczana dopiero w miejscu 


odwołania do name. 


Przykład 


W zasięgu następujących deklaracji 


Count = 2 

Save EQU Count 

Count = 3 
rozkaz 


mov ax,Count 

jest w trybie Ideal traktowany tak jak rozkaz 
mov ax,3 

a w trybie Masm tak jak rozkaz 


mov ax,e2 


Segmenty i grupy 


W Łrybie Ideal przemieszczenie każdej zmiennej, która wcho= 


dzi w skład grupy, jest liczone względem początku grupy. 


W Łrybie Masm Cna skutek błędu implementacji, którego firma 


Microsoft nie zamierza usunąć), wyrażenie 
OFFSET symboł 
w którym symboł jest nazwą zmiennej, reprezentuje w rozkazie, 
np. 
mov ax,OFFSET Fix 
przemieszczenie w segmencie, a w deklaracji zmiennej, np. 
Ref DW OFFSET Fix 


reprezentuje przemieszczenie w grupie. 
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Zarówno w trybie Ideal jak i Masm, w celu anulowania przyję- 
tych domniemań, można posłużyć się prefiksowaniem nazwą gru- 
py albo segmentu. 
Przykład 
W zasięgu deklaracji zmiennej Fix 
Fix Dw 13 
znajdującej się w grupie DGROUP, rozkaz 
mov ax,OFFSET Fix 
zapisany w trybie Ideal jest równoważny rozkazowi 
mov ax,OFFSET DGROUP: Fix 


zapisanemu w trybie Masm. 


Wyrażenia 


Sposób interpretowania wyrażeń w trybie Ideal różni się nieco 
od sposobu ich interpretowania w trybie Masm, ponieważ inne 
są priorytety operatorów, a mianowicie Ćw kolejności od naj- 


wyższego do najniższegoJ 


CJ [] LENGTH MASK OFFSET SEG SI ZE WI DTH 


High LOW 

+ — € jednoargumentoweD 
3 7 MOD SHL SHR 

+ - l dwuargumentowe. 

EQ GE GT LE LT NE 
NOT 

AND 

OR XOR 


type PTR SHORT 


W trybie Ideal jest inny niż w trybie Masm, sposób inter— 
pretowania operatora SIZE. Przyjęto mianowicie, że napis 


SIZE var 


w którym var jest nazwą zmiennej prostej albo złożonej, 
występującej po takich dyrektywach jak np. DB i Dw, 


reprezentuje rozmiar tej zmiennej, a nie iloczyn 
TYPE var % LENGTH var 


jak ma to miejsce w trybie Masm. 
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Przykład 
W zasięgu deklaracji 


herName DB "Isabel" ,6 
herAge DB 6, 'Isabel>" 


w trybie Ideal: SIZE herName = 6, SIŻE herAge = 1; podczas 
gdy w trybie Masm: SIZE herName = 1, SIZE herAge = 1. 


Rozkazy 


W trybie Ideal zabrania się odwoływania do zmiennej bez uję— 
cia nazwy zmiennej w nawiasy kwadratowe. Z tego powodu na 


przykład dopuszczalny w trybie Masm rozkaz 


mov ax,Fix pobranie danej przypisanej zmiennej Fix 


musi być zapisany jako 
mov ax,[Fix] 


Ponadto zabrania się używania takich argumentów rozkazów, w 
których operator [] Cpara nawiasóv kvadratowych0 jest trakto— 
wany jak operator + Cplus) oraz występowania prefiksu i ope— 


ratora konwersji typu Cnp. BYIE PIR przed nawiasami kwadra— 


tŁowymi. 


Przykład 


Poniższe zestawienie wyszczególnia dopuszczalne postaci 


rozkazów w trybie Masm i ich odpowiedniki w trybie Ideal. 


Tryb Masm Zryb Ideal 

mov ax,lbx]llsi] mov ax,l[bx+si]j 
mov ax,es: (bx] mov ax,les:bx] 
mov ax,6lbx] mov ax,lbx+6] 


mov ax,es: [bp+8][si] mov ax,les: bp+si+8] 
mov ax,word ptr [bx] mov ax,lword ptr bx] 


CZEŚĆ V. TURBO DEBUGGER 


16. URUCHAMIACZ 


Istotnym rozszerzeniem możliwości oferowanych przez systemy 
Turbo jest interakcyjny program uruchomieniowy Cang. debug- 


ger” nazywany tu krótko uruchamiaczem. 


Uruchamiacz Turbo należy do kategorii symbolicznych urucha— 


miaczy wysokiego poziomu. Umożliwia on między innymi 


© Śledzenie programu wynikowego na poziomie źródłowym. 

e Wykonywanie programu tnstrukcja po tnstrukcjit, procedura 
po procedurze, albo aż do zatrzymania. 

e Zastawianie pułapek, w tym pułapek Lokalnych, globalnych 
i LlLticznikowych. 

e Ujawnianie wartości danych przypisanych zmiennym. 

© Wyznaczanie wartości wyrażeń zawierających odwołania do 
zmiennych programu źródłowego. 

© Śledzenie przypisań danych i wywołań procedur. 

e Ujawnianie asemblerowych rozwinięć instrukcji, zawar 
tości pól pamięci operacyjnej i wartości danych przypi — 
sanych rejestrom procesora i koprocesora. 

e Zapoznawanie się z zawartością zbiorów tekstowych. 

e Rejestrowanie i odtwarzanie sekwencji naciśnięć klawi- 
szy Cmakrodefinicje i makrowywołaniaJD. 

e Rekonfigurowanie rozkładu okienek uruchomieniowych. 

e Posługiwanie się pamięcią rozszerzoną oraz środkami do 


uruchamiania wspomaganego sprzętowo i zdalnego. 
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Wizytówka uruchamiacza 


File __ Wiew Run _ Breakpoints Data Hindow  Gptions 
odułe: GREETING File: MAIN.PAS 


progran Greeting; 
begin 

a ruteln Hello from Debugger” ) 
en | 


Turbo Debugger 


Version 1.0 
Copyright (c) 1388 
Borland International 


p] 


F2-Bkpt F3-Close F4-Here FS5-Zoon F6-Next F7-Irace F8-Step F3-Run F10-Xenu 


Wywołanie uruchamiacza 


Wywołanie uruchamiacza odbywa Się w trybie wsadowym i ma 
postać 


TD opt name args 


w której opł są opcjami, name jest nazwą uruchamianego pro 


gramu, a args Są jego argumentami. 


Opcje mogą być podane jawnie, w dyrektywie ID, albo mogą po— 
chodzić ze zbioru konfiguracyjnego IDCONFIG. ID. Zbiór ten 
można utworzyć za pomocą instalatora TDINST, albo bezpośred- 
nio z uruchamiacza COptions/Save). Zbiór konfiguracyjny jest 
poszukiwany kolejno: 10 w katalogu bieżącym, 2) w katalogu 
określonym za pomocą instalatora, 3) w katatalogu zawierają 
cym uruchamiacz. Jeśli zbiór konfiguracyjny nie zostanie 
znaleziony, to będą zastosowane domniemania wbudowane w uru- 


chamiacz, albo ustawione podczas instalowania go. 


Przykład Użycie tnstalatora 


Ponieważ uruchamiacz nie ma wbudowanego edytora, można mu go 
co najwyżej wskazać, dokonując stosownej instalacji. W Łym 
celu należy wywołać program IDINST, w którym po wybraniu 
opcji Options i Editor można podać dyrektywę systemu DOS ak— 
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tywującą wybrany program edycyjny, np. 
GC: NUTILNSEE 


Gdy po wykonaniu takiej instalacji Csprowadzającej się do 
zapamiętania w uruchamiaczu nazwy podanego edytora), zażąda 
się wykonania edycji pewnego zbioru name, to spowoduje to 


wykonanie dyrektywy 
C: NUTILNSEE name 


i Łym samym wywołanie zainstalowanego edytora. 


Przygotowanie programu 


Sposób przygotowania programu, który ma być poddany urucha- 
mianiu symbolicznemu, zależy od tego czy posłużono się Śro- 
dowiskiem zintegrowanym czy dyrektywami wsadowymi. 


Ww pierwszym przypadku należy dokonać kompilacji z następują 
cymi opcjami: 


Turbo Pascal 


Debug z Standalone debugging On 
Options / Compiler / Debug Information On 
Options / Compiler / Local Symbols On 


(ostatnia z wymienionych opcji jest niezbędna jedynie wtedy, 
gdy przewiduje się symboliczne odwoływanie do lokalnych 


zmiennych funkcji i procedur); 
Turbo C 
Debug / Source debugging On 


a w drugim dokonać kompilacji z odpowiednio dobraną opcją 


Turbo Pascal: ZY 
Turbo C: —v 
Turbo Assembler: —zi 


Jeśli kompilacji podlegał program asemblerowy, należy poddać 
go konsolidacji, używając w tym celu konsolidatora TLINK wy- 


wołanego z opcją /v. 


Ponieważ warunkiem uruchamiania symbolicznego jest uzyskanie 
dostępu do modułów źródłowych, należy zapewnić, aby moduły te 
znajdowały się w zasięgu uruchamiacza. Mając to na względzie, 


należy pamiętać, że zbiory zawierające moduły źródłowe są po- 
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szukiwane kolejno: 10 w katalogu, w którym znalazł je kom- 
pilator, 22 w katalogu określonym za pomocą opcji Options-Pa- 
th for Source, 32 w katalogu bieżącym, 40 w katalogu z 


którego pochodzi właśnie uruchamiany program. 


Jeśli zbiór źródłowy nie zostanie znaleziony, to uruchamia— 
nie może odbywać się jedynie na poziomie rozkazów asemblero— 
wych. W takim przypadku, bezpośrednio po wywołaniu urucha— 
miacza, na ekranie występuje okienko CPU zawierające rozka— 
zy asemblerowe, a nie — jak zazwyczaj — okienko Module za— 


wierające instrukcje źródłowe. 


Pozostaje dodać, że uruchamiacz może być wywołany również i 
bez podania nazwy zbioru. Wówczas jego wizytówka jest wyś— 
wietlana na tle okienka CPU. Taka wizytówka pojawia się rów- 
nież wtedy, gdy uruchamiany program wykonywalny nie zawiera 
informacji umożliwiających uruchamianie symboliczne (bo na 
przykład dokonano jego konsolidacji bez opcji /v). 


Wizytówka uruchamiacza na tle okienka CPU 


File  Wiew Run  Breakpoints Bata  Hindow  Gptions 
PU 8086 ds: 0000 = C 
cs:0100)0000 add (bx+51],al 
cs:010Z GOFFFF cnp bh,FF 

cs:0105 FF db FF 

cs:0106 7F08 J9 0110 

cs:0108 0000 add [bx+sij „al 
cs:010A 0100 add (bx+si] „ax 
cs:010C 0000 

cs:010E 0000 

cs:0110 0000 Turbo Debugger 
csz0112 O0FF 

cs:0114 0000 Version 1.0 
cs:0116 0003 Copyright (c) 1388 
cs:0118 0000 Borland International 


ds:0000 CD 20 00 A 
ds:0008 3D F4 ZF 0 ss:0084 7562 
ds:0010 C4 76 2F 0 ss:0082 6564 
ds:0018 01 01 01 0 ss: 0080) 0DOO 


F2_Bkpt F3-Close F4-liere FS-Zoom FE-Next F7-Irace F8-Step F3S-Run F16-Nenu 


Uwaga: Ponieważ uruchamiacz jest programem uniwersalnym, 
przystosowanym do uruchamiania programów napisanych w róż 
nych językach programowania, w poniższym opisie zostanie 


zastosowana następująca terminologia 
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© moduły źródłowe języka C i asemblera oraz moduły biblio- 


teczne języka Pascal, będą nazywane modulamt. 


e funkcje języka C oraz funkcje i procedury języka Pascal, 


będą nazywane procedurami. 


16.1. System menu 


System menu jest zorganizowany hierarchicznie. Bezpośrednio 
po wywołaniu uruchamiacza, a także po naciśnięciu w dowolnym 
momencie klawisza FfO, jest aktywowane menu glówne. Menu to 
jest wyświetlane w pierwszym wierszu ekranu, jest zawsze wi-— 


doczne i służy do wybierania menu podrzędnych. 


Menu glówne 


File View Run  Breakpoints Data JANYDN Options 
odwle: GREETIRG File: MAIK.PAS 3 


program Greeting; 


) begin 
Kriteln(' Hello from Debugger" ) 
end. 


tches 


Fi-Help Esc-Abort 


W danej chwili jest aktywne co najwyżej jedno menu: menu 
główne albo menu które jest wyróżnione za pomocą podwójnej 
obwiedni. Jeśli po aktywowaniu pewnego menu nastąpi ponowne 
naciśnięcie klawisza F1O, to spowoduje Ło aktywowanie ostat- 


nio aktywnego okienka. 


Każde menu składa się z pól zawierających opcje menu. Jedno z 
tych pól, nazywane bieżącym, jest wyróżnione przez tnwersję. 
W celu wybrania opcji określonej przez takie pole wystarczy 
nacisnąć klawisz Enter. Wybranie innej opcji wymaga dokonania 


zmiany pola. W tym celu można posłużyć się klawiszami strzatl- 
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kowymt, albo klawiszami oznaczonymi Home i End. Naciśnięcie 
klawisza strzałkowego powoduje przesunięcie wyróżnienia o 
jedną pozycję, a naciśnięcie klawiszy Home i End powoduje 
przemieszczenie wyróżnienia pola odpowiednio do pierwszej i 


ostatniej pozycji menu. 


Innym sposobem wybrania opcji niż za pomocą klawiszy strzał - 
kowych i klawisza Enter jest naciśnięcie dowolnego klawisza 


oznaczonego rozjaśnioną literą pola menu. 


Wybieranie menu bezpośrednio podrzędnych menu głównemu może 
być znacznie przyspieszone za pomocą klawisza Alt. Naciś— 
nięcie go w dowolnym momencie wraz z pierwszą literą pola 
głównego menu powoduje bowiem natychmiastowe wyświetlenie 
menu podrzędnego. W szczególności oznacza to, że w celu wyś— 
wietlenia menu podrzędnego, które jest podporządkowane polu 
Window głównego menu wystarczy nacisnąć klawisz ALt-W Czamiast 


naciskać najpierw klawisz F1O, a następnie klawisz W. 


Menu podrzędne 


File View Run  Brea 
odułe: GREETING File: MAIN.PAS 3 


Hindow pick - 
progran Greeling: 
b begin Move/Resize 
Kriteln('Hello from Debugger" ) Close P3 


end. Undo close 


Bunp pane to log 
Restore standard 
Screen repaint 


jeee: * 


Fl-Help Esc-Abort 


W przypadku omyłkowego wybrania podmenu można cofnąć się na 
wyższy poziom menu naciskając klawisz Esc. Naciśniecie tego 
klawisza w głównym menu powoduje reaktywowanie ostatnio 


aktywnego okienka informacyjnego. 
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Podobnie jak ma Ło miejsce w środowiskach zintegrowanych 
takich systemów jak Turbo Pascal i Turbo C, jeśli po wybraniu 
pewnego pola głównego menu (na przykład za pomocą klawisza 
Enter albo klawisza oznaczonego strzałką skierowaną ku 
dołowi) zostaną użyte klawisze strzałek poziomych, to spo- 
woduje to aktywowanie sąsiednich podmenu głównego menu. 
Właściwość ta bardzo ułatwia lokalizowanie ważniejszych 


funkcji systemu menu. 


Innego rodzaju ułatwieniem jest stałe wyświetlanie w dolnym 
wierszu ekranu informacji o funkcjach ważniejszych klawiszy 


oraz możliwość posługiwania się okienkami wyjasśntiającymti. 


Okienko wyjaśniające 


SĘ le View Run  Breakpoints Data  Hindow Options 
L 


Load... 
Change dir... 
b| Set info giÓT: 
0S shell "' 
quit AJ The OS Shell coneand starts a DOS command 
| processor so that you can type conaands exactly 
as if you were at the normal DOS pronpt. Hhen 
you have finished entering DOS comnands, type 
| "exit" to return to Turbo Debugger. 


| Ihe nenory occupied by your program may have to 

j be swapped to disk to nake rooh to run the DOS 

| command processor. Expect a small delay at the 
start and end of this command if your program is 
swapped to and from the disk. 


KAKNINNNTNONTENENENEM 


Alt: FZ-Bkpt at F3-Kod Fd-Anin F5-User F6-Undo F7-Instr F8-Rtn F3-To F10-Local 


Okienka wyjaśniające są wyświetlane po naciśnięciu klawisza 
Fi. Podawane w nich wyjaśnienia są dobierane Stosownie do 
kontekstu, w którym nastąpiło naciśnięcie wymienionego kla- 


wisza. 


Zasady przemieszczania się między okienkami wyjaśniającymi są 
analogiczne do zasad przemieszczania się między okienkami me- 
nu. W szczególności naciśnięcie klawiszy PgDn i PgUp umożli- 

wia zapoznanie się z tekstem nie mieszczącym Się w okienku, 


naciśnięcie klawisza ALt-Ff umożliwia zapoznanie się z pop- 
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rzednim okienkiem wyjaśniającym, a ponowne naciśnięcie kla— 
wisza Ff umożliwia zapoznanie się ze skorowidzem okienek wy— 
jaśniających. W celu opuszczenia systemu wyjaśnień i powró— 
cenia do miejsca, w którym pierwotnie naciśnięto klawisz Ff, 
należy posłużyć się klawiszem Esc. 


Skorowidz okienek wyjaśniających 


ZłQ iew Run  Breakpoints Bata Mindow  Gptions 
4 ile: MAIW.PAS 3 

Load... 

Change dir... 
bi Get info 


Uelp ca Gelp 
Asseskler 

Ńsseubler ceastants 
ńssesbler express 105 
Asscubler operatars 
Assecabler strinęs 
śsseubler variables 
dute variables 


Byte lists 
Ć ceastaats 


C Bekuęging tips 


gUp/Pg 


[07 * 


Fi-Index 4(—-Select Pqaljp-Previous page Ctrl Pgllp-First page Ese-Bit 


16.2. Klasyfikacja okienek 


Ogół okienek uruchamiacza można podzielić na następujące ka- 


tegorie 


© okienka wyjaśniające, 


© okienka menu — globalne 

© okienka menu — lokalne, 

© okienka uruchomieniowe -— informacyjne, 
© okienka uruchomieniowe — inspekcyjne. 


Okienkami wyjaśniającymi są okienka wyświetlane po naciś— 
nięciu klawisza Ff. 


Okienkami globalnymi menu są okienka wybierane bezpośrednio z 
menu głównego Cna przykład po naciśnięciu klawiszy FIO i VY 
albo ALt-VD. Charakteryzują się tym, że ich zawartość jest 
niezmienna. Służą do wybierania kolejnych podmenu oraz opcji. 
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Okienko globalne Ftle 


Data  Hindow Options LIN 


XÓ "iew Run Breakpoints 


|qut AIlL-X 


A1i: F2-Blpt at F3-Nod F4-Anin F5-lser F6-Undo Fl-Instr FB-Rtn FS-To Fi0-Local 


ORitenko globalne Viev 


WÓD Run Breakpoints Bata  Mindow Sptions 


:| Muneric processor 
„| User screen _Alt-F5 
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Okienko globalne Run 


File View  X0])  Breakpoints Bata Mindow Options 


Run F3 
Go to cursor F4 
Trace into E? 
$tep over F8 
Execute to... A1t-F3 
Bntil return ALt-F8 
Aninate ALt-F4 
Instruction trace Alt-F? 


Fi-Help Esc-Abort 


Okienko globalne Breakpotnts 
File Fiew Run : Bata  Hindow  Gpłions MENU 


ALt-PZ 
Changed menory global... 


: oression true global... Ę 
ILDOCEJL Z 
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Okienko globalne Data 


File Tiew Run  Breakpoints  JEXEJ Hindow Options 


Inspect... 
Evaluate/nodify... Ctr1-F4 
Hatch... Ctrl-F? 


Fi-Help Esc-Abort 


Okienko globalne Wtndowv 


Yiew Run  Breakpoints 


Hindow pick  AIlt-0 
Mext pane Tab 
Move/Resize  ScrLk 
Close F3 
mdo close  AIt-F6G 
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Oktenko globalne Options 


File  Wiew Run  Breakpoints Bata  Mindow 


Restore options... 


Okienkami lokalnymi menu są okienka wyświetlane po naciś— 
nięciu klawisza ALt-FIO albo Ctrl-F1O Calbo w sposób przys— 
pieszony, przez naciśnięcie klawisza Ctrl-j, gdzie j jest 
klawiszem oznaczonym wyróżnioną literą opcji menu). Okienka 


lokalne mogą być wywoływane w dowolnym momencie. 
Okienko lokalne 


File  Wiew Run  Breakpoints Data Hindow  Bptions 
odule: GREETIRG File: KAIK.PAS 3 


program Greeting; 
>) begin 
llo from Debugger” ) 


FZ-Bkpt at F3-Mod F4-Anin FS-User F6-Undo F7-Instr F8-Rtn FS-To FiG-Local 
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OkRtenkRo Lokalne 


File View fun 


Breakpoints Bata  Hindow 


dule: GREETING File: MAIN. PAS 3 


program Greeting; 
b begin GprUDENEN 


"POT GREETIRO, 3: 


end. cs: 0014 
cs:0019 
cs: 001A 

GREETING. 4 
cs:001C 
cs: 001F 
cs:0020 
cs: 0021 
cs:0024 
cs: 0025 
cs: 0026 
cs: 0028 


ds: 0000 


begin 


Follow 
Caller 
Previous 
Search 
View source 
Mixed 


New cs:ip 
Assenble... 
1/0 


1 3402:0000 


Options 


DP: © kr OCUN O 
UWLELE LSL 
CO PeCOODOOCO 


ss:4004 1650 


ds:0008 C9 F4 60 0 
ds;0010 A3 6D ZF 0 
ds:0018 01 01 01 0 


ss: 4002 0080 
ss:4000 B800 
ss: 3FFE) 0000 


Fl-Help Esc-Abort 


Okienko Lokalne 


File Tien Run 


Breakpoints Bata  Hindow 


dule: GREEIING File: MAIN.PAS 3 


program Greeting; 
b be Lr PU 8086 


cs:0014) 
cs:0019 
cs: 001A 
GREETING. 4 
cs:001C 
cs: 001F 
cs: 0020 
cs: 0021 
cs:0024 
cs: 0025 
cs: 0026 


oz0R1  94C2:0000 


cs:0028 50 
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ds:0000 CD ZO 00 
ds:0008 C3 F4 60 
ds:0010 A3 6D ZF 


M0 
03 
02 
ds:0018 01 01 01 00 0 
Alt: FZ-Bkpt at F3-Mod F4-Anim F5-User F6-Undo F7-Instr F8-Rtn F3-To F18-Local 


Options 


CYVYNO 
LELSUEL 


AT 


ss:4004 1650 
ss:4002 0080 
ss:4000 B800 
ss: 3FFE) 0000 


Okienkami uruchomieniowymi -informacyjnymi są okienka wybie- 
rane z menu globalnego View. Ogółem jest ich 12. W chwili 
aktywowania uruchamiacza są wyświetlane dwa z nich: okienko 


modutów i okienko observacyjne. 


Okienkami uruchomieniowymi -inspekcyjnymi są okienka wyświet— 
lane po naciśnięciu klawisza Ctrl-I. Umożliwiają one za— 
poznawanie się z wartościami danych przypisanych zmiennym 


oraz z wartościami danych reprezentowanych przez wyrażenia. 


Odrębną kategorię stanowią oktenka dialogowe. Pojawiają się 
one wtedy, gdy należy udzielić odpowiedzi na postawione 
pytanie albo dokonać wyboru odpowiedzi. Typowe okienko 
dialogowe zawiera wykaz poprzednio udzielonych odpowiedzi. 
Jeśli zamierza się udzielić odpowiedzi identycznej z jedną z 
odpowiedzi udzielonych uprzednio, to wystarczy dokonać Jej 
wyboru za pomocą klawiszy strzałkowych, a następnie nacisnąć 
klawisz Enter. W chwili następnego wywołania okienka 
dialogowego odpowiadającego danemu kontekstowi, tak wybrana 


odpowiedź znajdzie się na Szczycie podsuwanych odpowiedzi. 


Okienko dialogowe 


HM fun 


Breakpoints 

Stack 

Log 

Ratches 

Variables 

File... 

CPU 

Dump 

Registers 

Mumeric processor 
User screen Alt- 


Breakpoints Bata  Hindow  Gptions 
£ 


ick a module 
gererne_ | 


Fi-Help lf-Move (Select Letters-Match Esc-Abort 


SOS 


Okienko dialogowe 


File STD) fun Breakpoints Bata Hindow Options PROLPT| 
e ————— |. 


Breakpoints 
Stack 

Log 
Ratches 
Variables 
tłodule... 


CPU 

Dunp 

Registers 

Numeric processor 
User screen A1t-FS 


nter nane of file to view 
greet 


Alt: F2-Bkpt at F3-Mod F4-Anin F5-User F6-Undo F7-Instr F8-Rtn F3S-To F10-Local 


Okienko dialogowe 


File TOŃ) Run Breakpoints Bata Hindow  Gpłions 


progra| Breakpoints 
uses £| Stack 


Hatches 
$ariables 


P 
Registers 


Wumeric processor 
User screen A1t-F5 


Fi-Help Itf-Move 4--Select Letters-Watch Esc-Abort 
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Przemieszczanie okienek 


Przed przystąpieniem do omówienia funkcji okienek urucho— 
mieniowych: informacyjnych i inspekcyjnych, należy wymienić 
ich istotną właściwość. Otóż każde okienko uruchomieniowe 
może być dowolne przesuwane po ekranie, a jego rozmiar może 


być dowolnie modyfikowany. 


W celu dokonania takich przemieszczeń i zmian, należy naj -— 
pierw nacisnąć klawisz ScrollLock, a następnie posłużyć się 
klawiszami strzałkowymi. Jak można się przekonać, naciśnięcie 
klawisza oznaczonego strzałką powoduje przemieszczenie obrze— 
ża okienka, a naciśnięcie takiego klawisza wraz z klawiszem 
Shtft powoduje zmianę rozmiaru okienka. Zmiana ta odbywa się 
w Łaki sposób, że lewy-górny narożnik okienka pozostaje nie— 
ruchomy, a stosownie do użytych klawiszy, przesuwa się jego 
prawe i dolne obrzeże. Po dokonaniu wymaganych zmian należy 
ponownie nacisnąć klawisz ScrollŁock. Spowoduje to przenie— 


sienie tekstu do zmienionego okienka. 


Uwaga: Analogiczne operacje mogą być wykonywane na okienkach 
wyjaśniających. Okienka menu mogą być natomiast jedynie 


przesuwane. 


Okienko przed przesuntięctem 


File FJiew Run 
podule: HELLO File: KAIN.POSE 


program Hello; 
begin 

Kriteln(' Hello world” ) 
end. 
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Piervsza faza przesunięcia 


File View Run  Breakpoints Bata  Hindow Options LUŁESŁA 


progran Hello; 
) begin 
Writeln("Hello world” ) 


Druga faza przesunięcia 
File View Run  Breakpoints Bała  Hindow Options 
odułle: HELLO File: MAIK.PJCE 
program Hello; 


> begin 
Kriteln(” Hello world ) 
end. 
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Okienko przesunięte 


_ File  Wiew Run  Breakpoints Bata  Hindow  Gptions 


dule: HELLO File. KAIW.P 


progran Hello; 
begin 

Writeln(' Hello world!) 
end. 


-Irace F8-Step F3-Run F18-Nenu 


16.3. Okienka informacyjne 


Okienka informacyjne są przywoływane na ekran z menu glo- 
balnego View. Każde z nich jest opatrzone jedną z nastę- 


pujących nazw 


Breakpoints Stack Log 
Watches Variables Module 

File CPU Dump 
Registers Numeric processor User screen 


oraz nunerem porządkowym wyświetlanym w prawym-górnym naroż- 
niku jego obrzeża. W danej chwili jest aktywne co najwyżej 


jedno z okienek informacyjnych. 


W celu usunięcia okienka informacyjnego z ekranu należy pos— 
łużyć się opcją Window/Close (skrót F20. Akcja ta, nazywana 
dalej zamknięciem okienka może być anulowana za pomocą opcji 
Window/Undo Close Cskrót ALt-F60. Jeśli nastąpi zamknięcie 
okienka, pod którym nie występuje żadne inne okienko, Ło 


ujawni Się tlo okienek. 
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Tlo oRtenek 


Siew Run 


File 


Trzy rodzaje okienek: 


le) i procesora CCPU) mogą występować wielokrotnie. 


Breakpoints 


Bała  Hindow Options 


zbiorów CFi- 
Umożliwia 


okienko modułów CModuleD), 


to na przykład zapoznawanie się z tekstem zawartym w różnych 


zbiorach źródłowych. Tę przydatną właściwość uruchamiacza 


można wykorzystać, wybierając opcję View/Another. 


Okienko zwielokrotnione 


File Wiew Run  Breakpoints Bata Hindow Options IU 
dule: MATN File: MAINUNIT. PAS S——————————--—-—--] 
program Main; 
uses funUnit; 
const pdule: SUBUNIT File: SUBUNIT.PAS 1 
Public : integer = -13; unit subUnit; 
b begin interface 
Kriteln(Fun(Public)) procedure Sub(var Par : integer); 
end. var 
dułe: FUNUNIT File: FUNU Tenp : integer; 
unit funUnit; implenentation 
interface const 
function Fun(Par : inte Private : integer - 13; 
implementation procedure Sub; 
uses subUnit; begin 


function Fun; Temp := Par; 


var 
Local : integer; 


begin 
Sublloca); |--Z. 
OOOO Fun := Local O O OOO OO GOO OOOOÓĄ 
end; 
end. 


FZ-Bkpt F3-Close F4-Here F5-Zoon F6-Next F7-Trace Fa-Step F3-Run F16-Nenu 
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Przemieszczanie się między okienkami informacyjnymi Cna 
przykład między kilkoma okienkami modułowymi) zapewnia kla- 
wisz F6. Okienka mogą być ponadto wybierane na podstawie ich 
numerów. W szczególności w celu uczynienia aktywnym okienka o 
numerze Ł wystarczy nacisnąć klawisz ALt-t. Jeśli zostanie 
naciśnięty klawisz ALt-0, to pojawi się okienko dialogowe 
zawierające wyszczególnienie wszystkich otwartych okienek. Po 
dokonaniu wyboru jedną z przytoczonych metod, wybrane okienko 


stanie się aktywne. 


Niektóre okienka są podzielone na ramki. Przemieszczanie się 
między nimi w kierunku zgodnym z ruchem wskazówek zegara 
zapewnia klawisz Iab, a przemieszczanie się w kierunku prze— 
ciwnym zapewnia klawisz Shtitft-7ab. W danej chwili jest 
aktywna tylko jedna ramka. Ta mianowicie, w której znajduje 
się migoczący kursor, albo wyróżniona pzez nagłówek. W tym 
drugim przypadku, przemieszczanie się między polami ramki 
może odbywać się nie tylko za pomocą klawiszy takich jak 
strzalkRowe, PgUp, PgDn, itp. ale również w następstwie wy- 
bierania przez pisanie. Taki sposób wybierania pól jest 
szczególnie wygodny w przypadku list uporządkowanych alfa— 
betycznie, umożliwiając szybkie przemieszczania kursora do 


słowa, które zaczyna Się od ciągu wprowadzonych liter. 


W obrębie każdej ramki, w celu wyświetlenia lokalnego menu 
dostosowanego do danego kontekstu, można posłużyć się kla- 
wiszem ALŁ-F1O albo Ctrl-FfO. W wielu przypadkach wystarczy 
ograniczyć się do naciśnięcia klawisza Enter stanowiącego 
przyspieszone wybranie najwłaściwszej w danym kontekście 


opcji lokalnego menu. 


Warto również zapoznać się z rekacją uruchamiacza na podjęcie 


pisania w obrębie każdej z ramek. 


Okienko modułów 


W okienku modułów CModule Window) jest wyświetlany tekst 
źródłowy uruchamianego programu. Przemieszczanie się po tym 
tekście umożliwia wyróżnianie wybranych identyfikatorów 
zmiennych oraz wyrażeń, zastawianie pułapek i wydawanie po— 


leceń co do sposobu dalszego wykonywania programu. 


G01 


Okienko modulów 


File Tiew Run  Breakpoints Bata  Hindow 
odułe: SUBUNIT File: SUBUNIT.PAS 11 
unit subUnit, 
interface 
procedure Sub(vax Par : integer); 
var 
Temp : integer; 
implenentation 
const 
Private : integer = 13; 
procedure Sub; 
begin 
Temp := Par; 
Par := Private; 
Private := Temp 


Options HM 


Alt: FZ-Bkpt at F3-Nod Fd-Anim F5-User FE-Undo F7-Instr F8-RŁn F3-To F10-Local 


Okienko obserwacyjne 


File Wiew Run  Breakpoints Bata  Hindow  Gpłions 
dule: SUBUNIT File: SUBUNIT.PAS 11 
unit subUnit; 
interface 
procedure Sub(var Par : integer); 
var 
Temp : integer; 
iuplesentation 
const 
Private : integer = 13; 
procedure Sub; 
begin 
lemp := Par; 
Par := Private; 
Private :- Ienp 


: INTEGER 


FZ-Bkpt F3-Close F4-Here FS-Zoom F6-Next F]-Irace F8-Step F3-Run F18-Nenu 
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Okienko obserwacyjne 


W okienku obserwacyjnym (Watches Window) są wyświetlane nazwy 
zmiennych i wartości danych przypisanych zmiennym. Najprost- 
szym sposobem umieszczenia nazwy zmiennej w okienku obserwa— 
cyjnym jest przemieszczenie kursora nad identyfikator zmien— 
nej, a następnie naciśnięcie klawisza Ctrlt—w. w rozpatrywanym 
okienku mogą być również wyświetlane wyrażenia i wartości da- 
nych reprezentowanych przez wyrażenia. W celu umieszczenia w 
okienku obserwacyjnym pewnego wyrażenia (w szczególności naz— 
wy zmiennej) należy wyróżnić je za pomocą klawisza Ins i kla- 
wiszy strzałek poziomych, a następnie nacisnąć klawisz 
Ctrlt-w. 


ORtenko pulapek 


File  Yie« Run  Breakpoints Data Hindow Options HM 
"unit p TE File: SUBUNIT. PAS JĄ] 


F2-Bkpt F3-Close F4-Here F5-Zoon F6-Next F?-Trace F8-Step FS-Run F18-Nenu 


Okienko pułapek 


W okienku pułapek CBreakpotnts Window) są wyświetlane aktual- 
nie zastawione pułapki programowe. W lewej ramce okienka 
znajduje się wykaz zastawionych pułapek, a w prawej opis pu- 
łapki wyróżnionej przez kursor. Przemieszczanie kursora w 
obrębie ramki powoduje wyświetlanie informacji o kolejnych 


pułapkach. Za pomocą lokalnego menu można modyfikować, usuwać 
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i dodawać pułapki. Wygodnym sposobem zastawienia prostej pu- 
łapki jest przemieszczenie kursora w okienku modułowym, a 


następnie naciśnięcie klawisza Fe. 


Okienko wywołań 


W okienku wywołań (Stack Windov) są wyświetlane nazwy ak- 
tŁywnych procedur. W celu uzyskania dodatkowych informacji o 
tych procedurach należy (po ewentualnym przemieszczeniu 
kursora w obrębie ramki), wywołać lokalne menu albo przywołać 
okienko inspekcyjne. W ten sposób można na przykład zapoznać 
się ze zmiennymi lokalnymi procedury wywołującej oraz z 


argumentami i miejscem wywołania danej procedury. 


ORienko wywvolań 


File View Run  Breakpoints Bata  Hindow  Gptions 
dule: SUBUNIYT File: SUBUNII.PAS 11 
unit subUnit; 
interfap3E: 
palm SUBUWIT.SUBC11) 
var  |FUNUNIT. FUNC- 13) 


z Par; 


Par := Private; 
Private :z Temp 
nd; 


INTEGER 
INTEGER 
INTEGER 


A1t: FZ-Bkpt at F3-Mod F4-Anin F5-User F6-Undo F7-Instr F8-Rtn F3-To F10-Local 


Okienko komunikatów 


W okienku komunikatów CLog Window) są wyświetlane informacje 
zarejestrowane podczas zatrzymań programu, wartości wybra- 

nych wyrażeń wyznaczone w chwili gdy program wpadł w pułapkę, 
zawartości dowolnie wybranych ramek oraz skierowane do niego 
komentarze. Jeśli do okienka komunikatów wyprowadzi się wię- 
cej niż 50 wierszy, to najstarsze z nich będą eliminowane. W 
celu zachowania wszystkich wierszy wysłanych do okienka ko- 


munikatów, można spowodować ich zapisywanie do zbioru. 
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Oktenko Romuntkatów 


File View fun  Breakpoints Bata  Hindow  liptions 
dule: FUNUNIT File: FUNUNIT.PAS 10 

unit funUnit; 

interface 


-13 : INTEGER 
2277 


21243 : INTEGER 


F2-Bkpt F3-Close F4-Here F5-Zoom F6-Next F7-Trace F8-Step F3-Run Fil-Nenu 


Okienko zmiennych 


W okienku zmiennych CVariables Window) są wyświetlane iden- 
tyfikatory zmiennych dostępne w miejscu zatrzymania programu. 
W lewej ramce okienka znajduje się wykaz zmiennych publicz- 
nych Cdostępnych na zewnątrz modułu), a w prawej wykaz zmien- 
nych prywatnych Cdostępnych tylko w module albo w obrębie je- 
go procedurJ. Z każdym identyfikatorem zmiennej jest związana 
informacja o typie zmiennej oraz o wartości przypisanej jej 
danej. Jeśli zmienna jest strukturalna, to można zapoznać się 
z jej komponentami wywołując lokalne menu albo przywołując 
okienko inspekcyjne. W podobny sposób można zapoznać się ze 


zmiennymi wskazywanymi przez dane wskazujące. 


Okienko zbiorów 


W okienku zbiorów CFtile Window) są wyświetlane dane zawarte w 
zbiorach dyskowych. Zapewniono m. in. Środki umożliwiające 
wyświetlanie danych w postaci tekstowej i szesnastkowej oraz 
modyfikowanie zbiorów. Odbywa się to za pośrednictwem 


lokalnego menu. 
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Okienko zmiennych 


File Wiew Run  Breakpoints Bata  Hindow Options 
dułe: SUBUNIY File: SUBUNIT.PAS 1Z 
unit subUnit; 
interface 
procedure Sub(var Par : integer); 


„e (| |PRIVATE 
©5B3B8: 0000 |PAR 


: INTEGER 
F2-Bkpt F3-Close F4-Here F5-Zoom F6-Next F?-Trace F8-Step F3-Run F10-Menu 


ORienkRo zbiorów 


File View Run  Breakpoints Bata Window Options 
dule: SUBUNIT File: SUBUNIT.PAS 14 
unit subUnit; 
interface 
procedure Sub(var Par : integer); 
var 
Temp : integer; 
implementation 
const 
Private ; integer = 13; 
procedure Sub; 
begin 
Temp := Par; 
Par := Private; 
Private := Tenp 
program Main; 
uses funUnit; 
const 
Public : integer = -13; 


gin 
Kriteln(Fun(Public)) 
end. 
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Okienko procesora 


W okienku procesora (CPU Window) są wyświetlane dane o bie- 
żącym stanie procesora. Okienko procesora składa się z 5 ra- 
mek, w których znajdują się: kod asemblerowy instrukcji pro-— 
gramu, dane wybranego obszaru pamięci w postaci znakowej i 
szesnastkowej, dane przypisane rejestrom procesora, dane 
znajdujące się na stosie procesora oraz bity rejestru znacz- 


ników. W górnym wierszu okienka jest podany typ procesora. 


znak mający postać stylizowanej strzałki skierowanej w prawo, 
wyróżnia rozkaz, który będzie wykonany jako następny. W gór- 
nym wierszu ramki zawierającej rozkazy jest podawany adres 


pamięci i wartość danej znajdującej się pod tym adresem. 


ORitenko procesora 


File  Wiew Run  Breakpoints Bata  Hindow 
odule: FUNUNIT File: FUNUNIT.PAS 10 

unit funUnit; 

interface 


isplenef JILULISZUNEETUUTEJEŁK 
uses | : 
functj cs:0011 16 
var cs:0012 57 
Locj cs:0013 3A00003B5B 
beginfFUWUWIT.11: Fun :2 Local 


Subj €es:0018 0B46FC 
Fun] (cs:001B 8946FE [bp-02] ,ax 
end; JFUNUNIT.12: end; 
end. cs:001E 8B46FE ax,[ bp-02] 
cs:0021 83EC sp. bp 
cs:0023 5D po bp 
cs:0024 CA0200 0002 


ds:0000 F3 FF OD 00 00 00 00 00 < ss: 3FRZ 0016 
ds:0008 00 00 00 00 EZ SF EZ 5F T_T_ ss:3FPO 3FFC 
ds:0010 EZ 5PF 00 00 00 006 00 00 T_ ss: 3FEE 5B38 
ds:0018 00 00 EZ 5F 00 00 ZŻ5SF T_ T_ ss: 3FEC) 000B 


Okienko pamięci 


W okienku pamięci operacyjnej (Dump Window) są wyświetlane 
dane zawarte w wybranym obszarze pamięci operacyjnej. Dane te 
mogą być przedstawiane w postaci znakowej, szesnastkowej, 
słowowej i dwusłowowej oraz jako liczby rzeczywiste o różnych 
reprezentacjach. Posłużenie się lokalnym menu umożliwia 


modyfikowanie danych oraz przemieszczanie bloków pamięci. 
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Okienko pamięci 


File View Run  Breakpoints Bała  Hindow  Bptions 
dule: FUNUNIT File: FUNUNIT.PAS 10 
unit funlUnit; 
interface 
function Fun(Par : integer) : integer; 
implementation 
uses subUnit; 
function Fun; 


var 
Local : integer; 
begin 


ds:0018 00 
ds:0020 00 
ds:0028 00 
ds:0030 00 0 


RS 
CRACOCOO © 
SV MOODVTOOO 


BSRSSSO 


© 


nu 


Okienko rejestrów 


W okienku rejestrów C(Regtitsters Window) są wyświetlane zawar- 
tości rejestrów procesora. Posłużenie się lokalnym menu u- 


możliwia modyfikowanie danych przypisanych rejestrom. 
Okienko rejestrów 


File Fiew Run  Breakpoint Bata  Hindow  Bptions 
dule: MAIN File: MAINUNI-1 
program Main; 
uses funUnit; 
const 
Public : integer = -13; 


begin 
b  Mriteln(Fun(Public)) 
end. 
egisters 
ax 0000 


Trace FB-Step F3-Run | 


608 


Okienko kRoprocesora 


File View Run  Breakpoints Bata Hindow Options 
dule: NUMBER File: MAIN.PAS 8 


program Number; 
($N+,E+) 
var 
Nun : extended; 
begin 
Num :- Pi; emulator IPTR=00000 0PCODE2000 0PTR=00000 
b  Kriteln(Nun) ty ST(0) 


end. 


F2-Bkpt F3-Close F4-Here F5-Zoon FE-Next F7-Irace F8-Step FS-Run F18-Menu 


ORienko wyjściowe 


C: MIP5) d: NŁdAtd exe-tpulmainunit i 
Turbo Debugger Version 1.0 Copyright (c) 1988 Borland International 
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Okienko koprocesora 


W okienku koprocesora C(Numeric Processor Windowo są wyś-— 
wietlane zawartości rejestrów koprocesora. Okienko koproce- 
sora składa się z 3 ramek, w których znajdują się: dane 
przypisane rejestrom koprocesora, dane rejestru znaczników 


koprocesora i dane sterujące. 


Okienko wyjściowe 


W okienku wyjściowym CUser Screen Window) jest wyświetlany 
ekran wyjściowy programu. Jest on dokładnie taki sam, jakby 
aktywowanie programu nastąpiło w systemie DOS. W celu 
przyspieszonego wyświetlenia tego okienka można posłużyć się 
klawiszem ALt-F5. Po zapoznaniu się z ekranem wyjściowym 
można wyświetlić ekran uruchamiacza, naciskając dowolny 


klawisz klawiatury. 


16.4. Okienka inspekcyjne 


Okienka inspekcyjne służą do wyświetlania informacji o 
zmiennych i wyrażeniach. Są przywoływane na ekran po na- 
ciśnięciu klawisza Ctrl-I. Klawisz ten należy nacisnąć 
wtedy, gdy kursor wyróżnia identyfikator zmiennej, albo 
wtedy, gdy po naciśnięciu klawisza Ins i klawiszy strzałek 
poziomych wyróżniono pewien blok znaków stanowiący wyrażenie. 


Okienko inspekcyjne nie jest podzielone na ramki, ale składa 
się z pól zawierających m. in. nazwę zmiennej, jej typ, ad- 
res, wartość przypisanej jej danej, itp. Jeśli zmienna jest 
strukturalna, to w okienku inspekcyjnym są wyświetlane Jej 
komponenty, a jeśli jest wskazująca, to są wyświetlane in- 
formacje o zmiennej wskazywanej. Podobny spośób wyświetlania 
informacji dotyczy wyrażeń. 


Przemieszczanie między polami okienka inspekcyjnego odbywa 
się za pomocą klawiszy strzałek pionowych. Jeśli po wybraniu 
pewnego pola zostanie ponownie naciśnięty klawisz Ctrl-/, to 
pojawi się okienko inspekcyjne dotyczące wybranego komponentu 
zmiennej. Kolejne naciśnięcia tego klawisza umożliwiają 
dokonanie inspekcji komponentów coraz niższego poziomu, albo 


inspekcji łańcucha wskazań. 
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Na kolejnych stronach podano przykłady okienek inspekcyjnych 
dla programów w języku Turbo Pascal i Turbo C 


Turbo Pascal 


type 
Person = record 
Age : word; 
Name : string(5)] 
end; 
RefPerson = *PerSson; 
const 


Number : real = 12.4; 

Fixed : integer = 13; 

Arr : array [(1..2,boolean] of byte = 
C C1,2), (3,4) 0); 


Rec : Person = CAge : 5; Name : "Isa'D; 
Str : string = "Isabel '; 
People : array ['a'..'c'] of Person = 
C CAge : 40; Name : 'Eva'J, 
CAge : 6; Name : "Isa'), 
(Age : 46; Name : "Jan') D; 
var 
PtŁr : CPerson; 


RefPtr : "RefPerson; 

Ref : integer; 
begin 

PtŁr := ©Rec; 

RefPtr := ©Ptr; 

Ref := ©Fixed; 

4 ... > 
end. 


Turbo C 


Łypedef 
struct 
unsigned Age; 
char Namel[S5)]; 
> Person, *RefPerson; 
float Number = 12.4; 
int Fixed = 13; 
unsigned char Arr[2Jl2] = € (1,2, <3,4> >; 


Person Rec = C 5,'lIsa' 39»; 
char =StŁr = "Isabel"; 
Person Peoplel'c” — 'a' + 1] = 


< « 40, 'Eva' >», 
<« 6, 'Isa' >, 
< 46, "Jan" > >; 
Person %*Ptr; 
RefPerson %*%RefPtr; 
int *Ref; 
mai nCJ 
< 
Ptr = GRec; 
RefPtŁr = 8Ptr; 
Ref = 4Fixed; 
WE ... 3% 
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Turbo Pascał -— tnspekcja zmiennej Number 


File View Run  Breakpoints Bata  Hindow  Gptions 
odule: PROGRAM File: INSPECT.PAS 8 
type 
Person = record 
Age : word; 
Nane : string(5] 
end; 
RefPerson = APerson; 
const 
Number : real = 12.4; 
Fixed : integer = 13; 
Arr : array [1..2,boolean) of byte = 
( (1,2), (3,4 ); 
Rec : Person = (Age : 5; Nane : *"Isa'); 
Str : string = ' Isabel"; 
People : array (*a'..”c”] of Person = 
( (Age : 40; Name : *Eva'), 
(Age : 6; Nane : "Isa'), 
(Age : 46; Name : 'Jan') ); 


FZ-Bkpt F3-Close F4-Here F5-Zoon F6-Next F7-Trace F8-Step F3-Run F10-Menu 


Turbo Ć - Inspekcja zmiennej Number 


File View Run  Breakpoints Data  Hindow Options 
dule: INSPECT File: INSPECI.C 6 
typedef 
struct 
unsigned Age; 
char Nanel5]; 
+ Person, *RefPerson; 
float Number = 12.4; 


ZTS Iuspecting Humber 

unsigne Radi 14) ); 
Person | 

char +SB 


Person Peoplel*c' - ”a' + 1] = 
4440, "Eva" ), 
4 6, "Isa" ), 
4 46, "Jan" » >; 
Person 3Ptr; 
RefPerson *RefPtr; 
int :Ref; 
main() 


KANION 


F2-Bkpt F3-Close F4-Here F5-Zoon F6-Next F7-Trace F8-Step FS-Run F10-MNenu 
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Turbo Pascal - Inspekcja zmiennej Fixed 


File View Run  Breakpoints Data Hindow Options 
odule: PROGRAK File: INSPECT.PAS 3 
type 
Person = record 
Age : word; 
Nane : string(5] 
end; 
RefPerson = Person; 
const 
Number : real = 12,4; 
Fixed : integer = 13; 
Avr : array (1..Z,boolean] of byte = 
( (1,2), (3,4) ); 
Rec : Person = (Age : 5; Naxwe : "Isa'); 
Str :« string = 'Isabel'; 
People : array [”a'..*c'] of Person z 
( (Age : 40; Nane : "Eva'), 
(Age : 6; Name : 'Isa'), 
(Age : 46; Name : "Jan') ); 


KANINNOTONNNENENEEM 


Alt: F2-Bkpt at F3-Nod F4-Anim F5-User F6-Undo F7-Instr F8-Rtn F3S-To F10-Local 


Turbo C - Inspekcja zmiennej Fixed 
File View Run  Breakpoints Bata  Hindow  Bptions HM 
odule: INSPECI File: INSPECI.C 7 1 


unsigned Age; 
char Nane[5]; 
> Person, *Ref Person; 
float Number = 12.4; 
int Fixed = 13; 


4440, "Eva" >», 
4 6, "Isa" », 
4 46, "Jan" > >»; 
Person %*PŁr; 
RefPexson *RefPtr; 
int *Ref; 
nainl) 


tchec—————————-->->-2---Ł 


Alt: F2-Bkpt at F3-Nod F4-Anim F5-User F6-Undo F7-Instr F8-Rtn F3-To Fl$-Local 
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Turbo Pascal — Inspekcja tabltcy Arr 


File View Run  Breakpoints Data Hindow Options 
dule: PROGRAM File: INSPECT.PAS 10 
type 
Person = record 
Age : word; 
Name : stringi 5] 
end; 
RefPerson = *Person; 


(23 || |... |... (3,4) 
const 
Nunaber : real = 12.4 ARRAY [BOOLEANJ OF BYIE 


Fixed : integer = 13; 
Arr : array [1..Z,boolean)i of byte = 
( (1,2), (3,4) ); 
Rec : Person = (Age : 5, Nane : 'Isa');, 
Str : string = 'Isabel";, 
People : array [*a'..*c'] of Person = 
( (Age : 40; Name : "Eva'2, 
(Age : 6; Name : "Isa'), 
(Age : 46; Name : ' Jan') 0; 


Alt: F2-Bkpt at F3-Nod F4-Anin F5-User F6-Undo F7-Instr F8-Rtn F3-fo F10-Local 


Turbo C — Inspekcja tablicy Arr 


File Wiem Run  Breakpoints Bata  Hindow Options 
dule: IŃSPECT File: INSPECT.C 8 
typedef 
struct< 
unsigned Age; 
char Nanel[5]; 
> Person, *Ref Person; 
float Number = 12.4; 
int Fixed = 13; 
unsigned char Arr[2J[Z] = £ £1,2), 43,4 ); 
ing A 


4 4 40 i 
4 6|unsigned char [2] | 


RefPerson *RefPtr; 
int Ref; 
main() 


F2Z-Bkpt F3-Close F4-Here F5-Zoom FE-Next F]-Irace F8-Step F3-Run F18-Nenu 
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Turbo Pascal - Inspekcja elementu tablicy Arr 


File View Run  Breakpoints Bała MHindow Options 


dule: PROGRAM File: INSPECT.PAS 10 1 
type 
Person = record 
Age : word; Inspecting Ar_——m————73 
Name : stringi5] 85B81: 0008 
end; 
RefPerson = Person; 
const 


Nunber : real - 12.4; 
Fixed : integer - 13; 
Arvrr : array [1..2,booleanl of byte = | 

( (1,22, (3,4) 3; 
Rec : Person = (Age : 5; Nane : 'Isa' 
Str : string = ' Isabel"; 


People : array (7a'..”c'] of Person = 
( (Age : 40; Name : 
(Age : 6; Name : "Isa'), 


(Age 


*Jan') ); 


KANININTONENENENENENEEEM 


F2-Bkpt F3-Close F4-Here F5-Zoonm F6-Next F7-Trace F8-Step F3S-Run Fii-Menu 


Turbo C - Inspekcja elementu tablicy Arr 


File Wiem Run  Breakpoints Bata  Hindow Options 
dule: IŃSPECT File: INSPECT.C 8 
typedef 
struct< 
unsigned Age; 
char Name[5]; 
>) Person, *Ref Person; 
float Number = 12.4; 
int Fixed = 13; 
unsigned char ArMZJ[ZJ = € (1,2), 43,4% »; 
Person Rec = 4 qlInspecting Aq—————————3 
char 3Str'= "Is |[65C04: 009A | 


Person Peoplel” |[0] "Nx01Nx02" 
444 


„Inspecting Arrl0] gazami 
|R5C04: 0O9Ą 


Person «Ptr; 


Ref Person «Ref Pt| 
int *Ref; junsigned char [Z] 


main() 


FZ-Bkpt F3-Close F4-Here F5-Z0om FE-Next Fl-Irace F8-Step F3-Run Fil-Nenu 
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Turbo Pascal -— Inspekcja rekordu Rec 


File Wiew Run  Breakpoints Bata Hindow Options 
dule: PROGRAM File: INSPECT.PAS 12 
type 
Person = record 
Age : word; 
Name : string(5] 
end; 
RefPerson = Person; 
const 
Nuaber : real = 12.4; 
Fixed : integer = 13, 
Arr : array [1..2,boolean] of byte = 
( (1,2), (3,4 ); 
Rec : Person = (Age : 5; Name : 'I[sa'); 
Str ; string = "Isabel"; 
People : array [”a'..*c'] of Person = 
: 40; Name : *Bva'), 
: Name : "Isa'), 
: Name : *Jan') ); 


F2-Bkpt F3-Close F4-Rere F5-Zoom F6-Next F7-Trace F8-Step FS-Run F10-Menu 


Turbo C - Inspekcja rekordu Rec 


File View Run  Breakpoints Bała Nindow Options 
dule: INSPECT File: INSPECYT.C 3 
typedef 
struct< 
unsigned Age; 
char Nanel[5]; 
+ Person, *Ref Person; 
float Nvzber = 12.4; 
int Fixed = 13; 
unsigned char ArrlZI[ZJ = 4 41,Z), 43,4 >; 


int Ref; 
main() 


A1t: F2-Bkpt at F3-Nod F4-Anin F5-User FE-Undo F7-Instr F8-Rtn F9-To F1iOG-Local 
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Turbo Pascal -— Inspekcja pola rekordu Rec 


File View Run  Breakpoints Bata  Hindow  Bpłions 
dule: PROGRAM File: INSPECT.PAS 12 
type 
Person z record 
Age : word; 
Nane : stringl5] 
end; 
ReśPerson = 4Person; 
const 
Number : real = 12.4; 
Fixed : integer = 13; 
Arr : array [1..Z,boolean] of byte = 
( (1,2), (3,4) ); 


Rec ; Person = (Age : 5; Nane : 'Isa'); 
Str : string = 'Isabel'; 
People : array [”a'..'c'] of Person = 
( +: 40; Name : 
+ 6; Nane : 
: 46, Name : 


F2Z-Bkpt F3-Close F4-Here F5-Zoom F6-Next F7-Irace F8-Step FS-Run F18-Menu 


Turbo C - Inspekcja pola rekordu Rec 


File View Run  Breakpoints Bata  Hindow Options READY 
odule: INSPECI File: INSPECTI, € J——NN—————————] 
typedef | 
struct 
unsigned Age; 
char Nanel[5]; 
+ Person, *RefPerson; 
float Number = 12.4; 
int Fixed = 13; 
unsigned char AvrCZJCZ] = £ X1,2>, (3,4 ); 
Person Rec = 4 5,"Isa" 3; 


Inspecting Kame 
85.04: 0040 


KOEENEEEMA | 2 
jchar 15] | | 


F2-Bkpt F3-Close F4-Here F5-Zoom F6-Next F?-Trace F8-Step F3-Run F18-Nenu 
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Turbo Pascal -— Inspekcja zmiennej Śtr 


File  Wiew Run  Breakpoints Bata Hindow  Gptions 
odule: PROGRAM File: INSPECT.PAS 13 
type 
Person z record 
Age : word; 
Name : stringl5] 
end; 
RefPerson z APerson; 
const 
Number : real = 12.4; 
Fixed : integer = 13; 
Arr ! array [1..2,boolean] of byte = 
( (1,2), (3,4 0); qlnspecting Str 
Rec : Person = (Age : 5; Name : "Isa'); |05B81: 0014 * Isabel" 
Str : string = "Isabel"; 10] 
People : array [”a'..*c'] of Person = [1] 
( (Age : 40; Name : "Eva'), JE2] 
(Age : 6; Name : *Isa'), 37 
(Age : 46; Name : "Jan') ), [[4] 
var i[5] 


F2-Bkpt F3-Close F4-Here F5-200n F6-Next F]-Irace F8-Step F93-Run F10-Menu 


Turbo C -— Inspekcja zmiennej Śtr 


File View Run  Breakpoints Bata  Hindow 
sdule: INSPECT File: INSPECI.C 10 
typedef 
struct< 
unsigned Age; 
char Name[5]; 
+ Person, *Ref Person; 
float Number = 12.4; 
int Fixed = 13; 
unsigned char Arr[ZI[2Z] = 4 41,2), 43,4) >; 
Person Rec = 4 5,”Isa" >; 
char 3S$tr = "Isabel"; 


Person Peoplel'c” - "a + 1] = zlunspecting Str 
4440, "Eva" ), '85C04:00A5 : 5C04: OOBE "Isab ' 
4 6, "Isa" >», 
4 46, "Jan" > >; 
Person %PŁr; 
RefPerson *RefPtr; 
int Ref; 


F2-Bkpt F3-Close F4-Here FS-Zoon F6-Next F?-Irace F8-Step F3-Run F10-Menu 
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Turbo Pascal - Inspekcja tablicy struktur People 


File Wiew Run  Breakpoints Data  Hindom  Gptions 
PROGRAM File: INSPECT.PAS 14 
( (1,2), (3,4) ); 
. Person = (Age : 5; Nane : "lsa'); 
: string = "Isabel"; 


Ptr :-= GRec; 
RefPtr :- GPtr; 
Ref :- GFixed; 


p] 


FZ-Bkpt F3-Close F4-Here F3-Zoom F6-Next F7-1race F8-Step F3-Run F10-Henu 


Turbo C -— Inspekcja tablicy struktur People 


File  Wiew Run  Breakpoints Bata  Hindow  Gptions 

dule: IRSPECT File: INSPECT.C il 

typedef 

struct 
unsigned Age; 
char Namel[5]; 
> Person, *Ref Person; 

float Number = 12.4; 

int Fixed = 13; 

unsigned char Arr[ZJ[Z] = £ 1,2), 43,4) 2; 

Person Rec = ( 5,"Isa" 2; unspecting People 

char +S$tr = "Isabel"; | 

Person Peoplel*c” - ”a' + 1) = | 440," Bvav0NO0"> 

4440, "Eva" >, t6,"IsaN0N0"> 

4 6, "Isa" >, | 448," Jani0N0">] 
4 46, "Jan" )» >; | | 

Person %*Ptr; 

ReśPerson %*RefPtr; 

int *Ref; 

main() 


F2-Bkpt F3-Close F4-Here F5-Zoom F6-Next F7-Irace F8-Step F3-Run FI8-Nenu 
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Turbo Pascal — Inspekcja elementu tabltcy struktur People 


File View Run  Breakpoints Data Hindow Options 
dule: PROGRAM File: INSPECT.PAS 14 
( (1,2), (3,4) ); 
Rec : Person = (Age : 5; Name : "Isa'); 
Str : string = ” Isabel; 
array [*a'..'c'] of Person = 
31Eva'), 
Isa'), 
(40,'Eva')|Jan') ); 


Alt: F2-Bkpt at F3-Mod F4-Anin F5-User F6-Undo F7-Instr F8-Rtn F9-To F10-Local 


Turbo C - Inspekcja elementu tablicy struktur People 


File View Run  Breakpoints Data  Hindow Options 
odule: INSPECT File: INSPECT.C 11 
typedef 
struct< 
unsigned Age; 
char Nane[5]1; 
>) Person, *Ref Person; 
float Namber = 12.4; 
int Fixed = 13; 


3 
char 3Str = "Isabel"; : 
Person Peoplel*”c' - 'a' + 1] = 440," EvaN0NO0"> 
4440, "Eva" +), 46,"IsaN0N0") 
( 6, "Isa" +, 446," JanN0N0"”> 
4 456, "Jan" > >; ! 
Person «Ptr; 
RefPerson *RefPtr; 
int *Ref; 


Alt: F2Z-Bkpt at F3-Wod F4-Anin FS5-User F6-Undo F7-Instr F8-Rtn F3-To F10-Local 
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Turbo Pascal -— Inspekcja pola elementu tablicy struktur People 


File View Run  Breakpoints Bata Hindow Options 
pdule: PROGRAM File: INSPECT.PAS 14 
( (1,2), (3,4) ); 
Rec : Person = (Age : 5; Name : "lIsa'); 
Str : string = 'Isabel'; 
People : array ['a'..'c'] of Person = 
31Eva'), 
Isa'), 
(40,' Eva' ) |Jan') ); 


, 


F2-Bkpt F3-Close F4-Here F5-Zoon F6-Next F7?-Trace F8-Step FS-Run F10-Nenu 


Turbo C - Inspekcja pola elementu tablicy struktur People 


File  Yiew Run  Breakpoints Data  Hindow  Sptions 
odule: INSPECT File: INSPECT.C 11 
typedef 
structi 
unsigned Age; 
char Nanel[5]; 
>) Person,*RefPerson; | 
float Number = 12.4; 
int Fixed = 13; 
unsigned char AvrlZJCZ] = ( (1,2), 43,4 ); 
Person Rec = 4 5,"Isa" >; Inspecting People—————3 
char 35tr = "Isahel"; ©5004: 00A9 
Person Peoplel[”c' - 'a' + 11 = |[0] 440,"EvaX0N0"> 
4 440, "Eva" ), [1] 46," IsaN0N0")> 
4 6, "Isa" », 121 446," JanN0N0"> 
4 46, "Jan" » b; ] 
Person %Ptr; 
RefPerson %*RefPtr; 46 
int *Ref; =Janv010" 


aain() 


F2-Bkpt F3-Close F4-Here F5-Zoom FG-Next F7-Irace F8-Step F3-Run F18-Nenu 
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Turbo Pascal - Inspekcja zmiennej wskazującej Ptr 


File View Run  Breakpoints Data Hindow Options READY 
dule: PROGRAM File: INSPECT. PAS Ż4—————————— 1 
Rec : Person = (Age : 5; Nane : 'Isa'), 
Str : string = *Isahel'; 
People : array [”a'..'c'] of Person = 
( (Age : 40; Name : "Eva'), 
(Age : 6; Nane : 'Isa'), 
(Age : 46; Name : "Jan') ); 
var 
PŁr : Person; 
RefPtr : *RefPerson; 
Ref : *integer; 
begin 
PŁr :-= BRec; 
RefPtŁr := GPtr; 
Ref :-= GFixed; 


KANION 


Alt: FZ-Bkpt at F3-Mod F4-Anim F5-User F6-Undo F7-Instr F8-Rtn F9-To F10-Local 


Turbo C -— Inspekcja zmiennej wskazującej Ptr 


File Wiem Run  Breakpoints Bata  Hindow  Dptions 
dułe: INSPECT File: INSPECT.C 15————————————————-—------| 
typedef l 
struct< 
unsigned Age; 
char Nanel5]; 


> Person, *Ref Person; | 
int Fixed = 13; Ś 
unsigned char ArrlZJIZ] = 4 4<1,2>, 43,4 ); 
Person Rec = 4 5,"Isa" >; 
char 3Str = "Isabel"; 
Person Peoplel"c' - "a! + 1] = 
< + 40, "Eva" >, 
4 6, "Isa" ), 
4 46, "Jan" > >; 
Person 4Ptr; 
RefPerson *RefPŁr; 
int *Ref; 
main() 


KANININNNNNNNINNNNM 


Alt: F2-Bkpt at F3-Mod F4-Anim F5-User F6-Undo F7-Instr F8-Rtn F3-To F10-Local 
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Turbo Pascał -— Inspekcja zmiennej wskazującej Re/fPtr 


File View Run  Breakpoints Data Hindox  Dplions 
odule: PROGRAM File: INSPECT.PAS 24 
Rec : Person = (Age : 5; Mame : 'Isa*); 
Str : string = 'Isahel"; 
People : array [”a'..'c'] of Person = 
* 40; + "Eva'), 
: 6; + "Isa'), 
+ 46; +: "Jan') ); 


var 
Ptr : APerson; 
RefPtŁr : *RefPerson; 
Ref : *integer; 


hegin 
PŁr :-= GRec; 
RefPŁr :-= GPtr; 
Ref :- CGFixed; 
4...) 
) end. 


F2-Bkpt F3-Close F4-Here F3S-Zoon F6-Next F7-Irace F8-Step F3-Run F10-Nenu 


Turbo C - Inspekcja zmiennej wskazującej RejfPtr 


File View Run  Breakpoints Bata  Hindow  Bptions 
dule: INSPECT File: INSPECI.C 16 
typedef „Inspecting RefPtr 
struct< P5C04:014E : 5C04:014A [_Ptr , 
unsigned Age; 5004: 009E [_Rec]| 
char Nane[5]; 


+ Person, *RefPerson; | | 
int Fixed = 13; ć 
unsigned char ArrlZJ[Z) = 4 (1,2), 43,% >; 

Person Rec = 4 5,"Isa" +b; 
char 35tr = "Isabel"; 
Person Peoplel[”c” - 'a + 11] = 
4440, "Eva" >, 
4 6, "Isa" b, 
„"dJan* > 2; 


U 
l 
' 


Person xPtŁr; 
RefPerson *RefPtr; 
int %*Ref; 


Alt: F2-Bkpt at F3-Mod F4-Anim FS-User F6-Undo F7-Instr Fi-Rtn F3-To FiG-Local 
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Turbo Pascal -— Inspekcja zmiennej wskazanej przez RejPtr 


File View Run  Breakpoints Bata  Hindow Options READY 
odule: PROGRAM File: INSPECT.PAS 24 1 
Rec : Person = (Age : 5; Nane : 'Isa'); 
Str : string = 'Isabel'; 
People : array [*a'..'c'] of Person = 
( (Age : 40; Nane : "Eva'), 
(Age : 6; Name ; 'Isa'), 
(Age : 46; Name : "Jan') ); 
Inspecting Ref PĘ 
©5B81:016C : 5B81:0168 [ PROGRAN. PTR] 
5B81: 000C€ £ PROGRAM. REC] 


var 
PŁr ; APerson; 
RefPtŁr : *RefPerson; 
Ref : integer; 
begin 
PŁr := BGRec; 
RefPŁr := GPtr; 
Ref :- GFixed; 
4 


) end. 


KANINNINNNNNNNONNNNNNE 


F2-Bkpt F3-Close F4-Here F5-Z00n F6-Next F?-1race F8-Step F3-Run F10-Menu 


Turbo C -— Inspekcja zmiennej wskazanej przez Re/fPtr 
File Wiew Run  Breakpoints Data  Hindow Options READY 
dule: INSPECT File: INSPECT € 16m 
typedef Inspecting RefPęr————3 
struct< ©5004: 014E : 5C04:014A [_PŁr | 
unsigned Age; [01 5004: 009E [_Rec] 


char Nanel[5]; 

+ Person, *Ref Person; 
float Number = 12.4; 
int Fixed = 13; 
unsigned char Arr[2J[Z] = £ 
Person Rec = 4 5,"Isa" >; 
char 35tr = "Isabel"; 
Person Peoplel'c' - 'a' + 1] = 

4 40, "Eva" ), 
4 6, "Isa" ), 
4 46, "Jan" » >; 
Person *Ptr; 
RefPerson *RefPŁr; 
int *Ref; 
main() 


(a "| 


F2-Bkpt F3-Close F4-Here F5-Zoom F6-Next F?-Trace F8-Step F3-Run F10-Menu 
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Turbo Pascal - Inspekc ja rekordu wskazanego pośrednio 


File  Wiew Run  Breakpoints Data Hi ] 
pdule: PROGRAM File: IASPECI PAS zę W on "||| BM Pons U 
Rec : Person = (Age : 5; Name : "Isa'); 
Str : string = 'Isahel"; 
People : array ['a'..'c'] of Person = 


( (Age : 40; Name : 'Eva'), 
(Age : 6; Hane : "Isa'), 
(Age : 46; ane . Jan) ); 
var nspecting Ref Pm 
PŁr : APerson; 05881: 016C : 5B81: 0168 [ PROGRAM, PTRI 
RefPŁr : *RefPerson; 1] 9B81: 000C [ PROGRAM. REC] 


Ref : Ainteger; 
begin 


5B81: 000€ [PROG 
5 
| Isa? 


F2-Bkpt F3-Close F4-Here F5-Zoon F6-Next F?-Irace F8-Step F3-Run F10-Menu 


Turbo C - Inspekc ja rekordu wskazanego pośrednio 


File FJiew Run  Breakpoints Dała  Hindow  fptions 
odule: INSPECT File: INSPECI, E [6—————————— 
typedef Inspecting Rex PE————1———3 
struct4 ©5004: 014E : 5C04:014A [_Ptr 
unsigned Aqe; 101 5004: 009E [_Rec] 
char Namel51; Inspecting *RefPt 
+ Person,*Ref Person; ©5004: 014A : 5C04: O09E £_Recj 
float Number = 12.4; Age 5 
int Fixed = 13; Nane "Isav0N0" 
unsigned char ArfZICZ] = 4 
Person Rec z 4 5,"lsa" >; 
char %Str = "Isabel"; 


Person Peoplel”c” - "a + 1] 
4140, "Eva" ), 
4 6, "Isa" », 
4 46, "Jan" > >; 
Person xPŁr; 
RefPerson %*RefPtr; 
int *Ref; 


W celu usunięcia z ekranu ostatnio otworzonego okienka 
inspekcyjnego należy posłużyć się klawiszem Esc. Naciśnięcie 


klawisza F3 powoduje zamknięcie wszystkich takich okienek. 


Podobnie jak inne okienka, także i okienko inspekcyjne ma 
swoje lokalne menu. Składa się ono z następujących pól 
Range 
Change 
Inspect 
Descend 


New expression... 


Pole Range 


Wybranie pola Range umożliwia określenie zakresu wyświet- 
lanych komponentów zmiennej strukturalnej. Zakres ten wy- 
nika z podania pierwszego komponentu i liczby komponentów. 


Jest to szczególnie wygodne w przypadku tablic. 


Pole Change 


Wybranie pola Change umożliwia określenie wartości danej, 


która ma być przypisana wybranej zmiennej. 


Pole Inspect 


Wybranie pola Inspect ma taki sam skutek jak naciśnięcie 
klawisza Ctrl-I, a zatem powoduje otworzenie kolejnego 
okienka inspekcyjnego. Umożliwia to zagłębianie się w struk- 
turę tablic i rekordów, przeglądanie łańcucha wskazań oraz 


ujawnianie asemblerowego rozwinięcia instrukcji. 


Pole Descend 


Wybranie pola Descend ma podobny skutek jak wybranie pola 
Inspect, z tym że nowo utworzone okienko inspekcyjne zajmuje 
miejsce bieżącego okienka inspekcyjnego. Zapobiega to nie- 
potrzebnemu mnożeniu okienek inspekcyjnych, ale uniemożli- 
wia cofanie się w łańcuchu wskazań oraz powrót na wyższy 


poziom hierarchii komponentów. 


Pole New Expression 


Wybranie pola New Expression umożliwia wyznaczenie wartości 
danej reprezentowanej przez podane wyrażenie. Informacje o 


danej są umieszczane w bieżącym okienku inspekcyjnym. 
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16.5. Opracowywanie wyrażeń 


Składnia wyrażeń, które można konstruować posługując się 
uruchamiaczem, nie odbiega istotnie od składni wyrażeń uży— 


Łego języka wzorcowego. 


W obecnej wersji uruchamiacza można zdecydować się na wybór 
składni zgodnej z Turbo Pascalem, z Turbo C albo z Turbo 
Assemblerem. Przez domniemanie przyjmuje się taką składnię 
jaka wynika z bieżącego modułu źródłowego, to jest tego, w 
którym nastąpiło zatrzymanie wykonywania programu. Nic jednak 
nie stoi na przeszkodzie wybrania innej składni. W tym celu 
wystarczy wyświetlić menu Options/Language, a następnie 
dokonać wyboru języka. 


w typowych przypadkach, w celu odwołania się do zmiennej, 
wystarczy podać jej identyfikator, a w celu odwółania się do 
instrukcji programu podać numer wiersza poprzedzony znakiem Ż 
Chash>. Wynika to stąd, że identyfikując obiekt programu 
źródłowego, uruchamiacz stosuje takie same zasady rozpozna- 


wania zakresów i zasięgów deklaracji jak kompilator. 


Jeśli zlokalizowanie obiektu w bieżącym module źródłowym oka— 
Że się niewykonalne, to przyjmuje się, że chodzi o obiekt 

publiczny znajdujący się w jednym z pozostałych modułów pro- 
gramu. Domniemanie to może być anulowane przez podanie pełnej 


nazwy obiektu name, która w ogólnym przypadku ma postać 
[fmodulelfftlellźtinel fnane] 

albo 
[źmodulelfftilellliiprocedure] łname 


W zapisie Łym, w którym module jest nazwą modułu, ftle jest 
nazwą zbioru, Line jest numerem wiersza, a procedure jest 
nazwą procedury, fragmenty ujęte w nawiasy kwadratowe mogą 


być opuszczone. W szczególności napis 
A44ŻCount 


może być nazwą zmiennej Count dostępnej z 44 wiersza 


bieżącego modułu, a napis 


dRouti nełLocal 


może być nazwą zmiennej Local dostępnej z procedury Routine. 
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Turbo Pascal 


Respektuje się pełną składnię wyrażeń, z wykluczeniem ope- 
racji mnogościowych i łączenia łańcuchów. Dopuszcza się 
posługiwanie następującymi operatorami 


Priorytet Operatory 


i © * not typelD + —- C jednoargumentowe. 
2 * / div mod and Sshl shr 
3 in + -— or xor 
4 < <= > >= © 
5 = 
Rezultatem operacji := Cprzypisanie) jest dana przypisywana. 


Przykład Wyrażenia w Turbo Pascalu 
W zasięgu deklaracji 

const Fixed : integer = 13; 
wyrażenie 

COQFi xed) * 


reprezentuje daną o wartości 13. 


Turbo C 


Respektuje się pełną składnię wyrażeń z wykluczeniem operacji 
połączenia wyrażonej przez operator , Cprzecitnek). Dopuszcza 


się posługiwanie następującymi operatorami 


Priorytet Operatory 


O 

1 CO [] —> sizeof € jednoargumentowe.) 

2 + BB — + i u ++ _— 

3 * Z % 

4 + -— 

5 << >> 

6 4 <= > >= 

7 == = 

8 Se 

3 A 

10 i 

11 Se8x 

12 ją 

13 r: 

1 4 = += -= /z2 %4= <L= >>= = = := 
Uwaga: Dodatkowy operator :: Cpodwójny dwukropek) może być 


wykorzystany do utworzenia dalekiego wskazania Cnp. 2::3 Jest 


wskazaniem o numerze segmentu 2 i przemieszczeniu 3). 
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Przykład Wyrażenia w Turbo C 
W zasięgu deklaracji 

int Fixed = 13; 
wyrażenie 

xGF1i xed 


reprezentuje daną o wartości 13. 


Turbo Assembler 


Respektuje się pełną składnię wyrażeń, w których ograniczono 


się do posłużenia następującymi operatorami 


Priorytet Operatory 


1 xxx PTR Cnp. BYIE PIRDJ 
2 . 

3 : 

4 OR XOR 

5 AND 

6 NOT 

7 EQ NE LT LE GT GE 
8 + — 

9 * _ . MOD SHR  SHL 
10 + —  Cjednoargunentowe. 
11 OFFSET SEG 

12 CO [CJ 


Uwaga: Przypisywanie danych zmiennym może wykonywane za po- 


mocą operatora = Cprzypisanie), np. 
Count = [BYTE PIR DS:20] 
Przykład. Wyrażenia w Turbo Assemblerze 


W zasięgu deklaracji 
Fixed DW 13 


wyrażenie 
(WORD PTR DS : COFFSET Fixed)] 


reprezentuje daną o wartości 13. 


Redagowanie 


Niezależnie od obranej składni, po każdym z wyrażeń może 
wystąpić wzorzec, określający sposób wyświetlenia danej re- 
prezentowanej przez wyrażenie. Wzorzec jest oddzielony od 
wyrażenia znakiem , Cprzectinek) i może mieć jedną z nastę- 
pujących postaci 
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Wzorzec Interpretacja 


c Wyprowadzenie znaku. 
Wyprowadzenie liczby dziesiętnej. 
fn wyprowadzenie liczby rzeczywistej n cyfrowej 


(opuszczenie n powoduje wyprowadzenie wszystkich 


cyfr). 
m wyprowadzenie adresu szesnastkowo. 
md Wyprowadzenie adresu dziesiętnie. 
p Wyprowadzenie wskazania albo danej przypisanej 


zmiennej wskazywane j. 
cs Wyprowadzenie ciągu c znaków tablicy albo ciągu 
c znaków wskazywanych Copuszczenie c powoduje 
wyprowadzenie ciągu zakończonego znakiem nuł). 
x Wyprowadzenie liczby szesnastkowej. 


h wyprowadzenie liczby szesnastkowej. 


16.6. Opcje menu 


Typowe wybieranie opcji rozpoczyna się od głównego menu. Wy- 
Jątkiem od tej zasady jest przywołanie na ekran menu lokalne- 
go albo posłużenie się przyspieszonym wybraniem opcji za po- 


mocą klawiszy sterujących. 


W niniejszym rozdziale będą przedstawione opcje menu głów- 
nego, opcje menu globalnych i opcje menu lokalnych. Wiele z 
nich może być wybieranych za pomocą klawiszy sterujących. 
Chociaż dokładny ich opis zostanie podany nieco dalej, celowe 
wydaje się przytoczenie pełnego ich zestawienia 


Klawisz Funkc ja 

F1 wyświetlenie wyjaśnienia. 

F2 zastawienie pułapki. 

F3 zamknięcie okienka. 

F4 Wykonanie do kursora. 

F5 Powiększenie okienka do rozmiaru ekranu. 
F6 Wyświetlenie kolejnego okienka. 

F7 Wykonanie jednej instrukcji/rozkazu. 

Fe Wykonanie j.w., ale z omijaniem procedur. 
Fo Wykonywanie aż do zatrzymania. 

F1O Aktywowanie głównego menu. 
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ALŁ=F1 
ALt-F2 
ALŁ-F3 
ALŁ-F4 
ALt-F5 
ALt>FO 
ALŁ>F7 
ALŁ>F8 
ALŁ>FO 
ALŁ>F1O 


ALtŁ-O 
ALt-1..9 


ALtŁ-F 
ALt-V 
ALt>R 
ALt-B 
ALt>D 
ALt>W 
ALt-O 
ALt-X 


ALt-= 
ALŁ-— 


Ctrl-F2 
Ctrl-F4 
CtrL-F7 
Ctrl-F8 
CtrL-F9 
CtrL-FiO 


CtrL-—> 
Ctrl=<— 


Esc 
Ins 
Tab 
Shtft-Tab 


Ścroll-LockR 


Wyświetlenie poprzedniego wyjaśnienia. 
zastawienie pułapki adresowej. 
Wybranie modułu źródłowego. 
Rozpoczęcie wykonywania ani mowanego. 
Wyświetlenie ekranu wyjściowego. 
Wyświetlenie właśnie zamkniętego okienka. 
Wykonanie jednej instrukcji. 
wykonanie aż do powrotu z procedury. 
Wykonanie do podanego adresu. 


Wyświetlenie lokalnego menu. 


Wyświetlenie wykazu otwartych okienek. 


Aktywowanie okienka o podanym numerze. 


Wyświetlenie menu globalnego File. 
wyświetlenie menu globalnego View. 
wyświetlenie menu globalnego Run. 
Wyświetlenie menu globalnego Breakpoints. 
Wyświetlenie menu globalnego Data. 
Wyświetlenie menu globalnego Windows. 
Wyświetlenie menu globalnego Options. 
Powrót do systemu DOS. 


Rozpoczęcie rejestrowania makrodefinicji. 


Zakończenie rejestrowania makrodefinicji. 


Przygotowanie do śledzenia od początku. 


Wyznaczenie wartości wyrażenia. 


Umieszczenie zmiennej w okienku obserwacyjnym. 


Zastawienie/usunięcie pułapki. 
Wykonywanie aż do zatrzymania. 


wyświetlenie lokalnego menu. 


Zwiększenie adresu o 1. 


Zmniejszenie adresu o 1. 


Zamknięcie okienka inspekcyjnego albo menu. 


Zainicjowanie wyróżnienia wyrażenia. 


Przemieszczenie kursora do następnej ramki. 


Przemieszczenie kursora do poprzedniej ramki. 


Zainicjowanie rekonfigurowania okienka. 


MENU GŁÓWNE 


FILE 


Menu File składa się z opcji umożliwiających m. in. łado- 
wanie programów, wybieranie katalogów oraz wykonywanie dy- 


rektyw systemu DOS. 


Opcja Load 


Wybranie opcji Load powoduje załadowanie programu, który ma 
podlegać uruchamianiu. Jeśli nazwa zbioru zawierającego 
program jest niejednoznaczna Czawiera znaki % albo ?D, to 
naciśnięcie klawisza Enter powoduje wyprowadzenie na ekran 


wykazu nazw zbiorów, spośród których można dokonać wyboru. 


Opcja Change Dir 


Wybranie opcji Change Dir powoduje zmianę stacji dyskowej 
albo bieżącego katalogu. 


Opcja Get Info 


Wybranie opcji Get Info powoduje wyświetlenie informacji o 
programie, a w szczególności: jego nazwy, rozmiaru pamięci 
zajętej przez program, uruchamiacz i DOS, listy numerów 

przerwań przechwyconych przez uruchamiacz, sposobu obługi — 


wania pułapek (sprzętowo albo przez oprogramowanie), itp. 


Opcja OS Shell 


Wybranie opcji OS Shell powoduje tymczasowe wywołanie sys- 
temu DOS. Po zakończeniu działań w systemie DOS, można wró- 
cić do uruchamiacza wykonując dyrektywę EXIT. 


Opcja Quit 


Wybranie opcji Quit powoduje powrót do systemu DOS. 


VIEW 


Menu View składa się z opcji umożliwiających wyświetlanie 
okienek informacyjnych. Okienka te są podzielane na ramki. 
Przemieszczanie się miedzy ramkami odbywa się za pomocą kla- 
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wiszy Tab i Shtft-Tab, a przemieszczanie wyróżnienia w ramce 
za pomocą klawiszy strzałek pionowych. W chwili gdy jest 
aktywne okienko informacyjne można podjąć wprowadzanie zna- 
ków z klawiatury. Powoduje to pojawienie się okienka dialo- 
gowego dobranego do aktualnego kontekstu. Zaleca się 
praktyczne wypróbowanie tej możliwości w odniesieniu do 


poszczególnych okienek i ich ramek. 


Opcja Breakpoints 


Wybranie opcji Breakpoints powoduje wyświetlenie i uczynie- 
nie aktywnym okienka pulapek. Okienko to składa się z dwóch 
ramek. Lewa zawiera wykaz pułapek, a w prawej Są wyświetlane 
informacje o aktualnie wybranej pułapce. Proste pułapki mogą 
być zastawiane z menu Breakpoints albo za pomocą klawisza Fe, 
a następnie modyfikowane za pomocą menu lokalnego. Menu 
lokalne okienka pułapek może dotyczyć tylko jego lewej ramki. 
Jak każde menu lokalne, jest ono wyświetlane po naciśnięciu 


klawisza ALŁ=F1IO albo CtrL-—-F1O. 


Lokal ne me nu 
Set action Określenie co ma się zdarzyć po wpadnięciu 
programu w pułapkę 
Break zatrzymanie programu; 
Log umieszczenie wartości wyrażenia 


w okienku komunikatów; 
Execute opracowanie podanego wyrażenia. 
Condition Określenie warunku wpadnięcia w pułapkę 
Always zawsze; 
Changed memory po wystąpieniu zmiany w 
podanym obszarze pamięci Cnp. jeśli 
w zasięgu deklaracji: 
w Turbo Pascalu 
const Fix : longint = 13; 
v Turbo C 
long int Fix = 13; 


w Turbo Assemblerze 


Fix DD 13 
poda się napis 
Fix,4 
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to będzie to określać obszar 16 bajtów 
począwszy od adresu zmiennej Fix; 

Expression true zawsze gdy podane wyra- 
żenie będzie miało wartość TRUE albo 
różną od O. 

Pass count... Określenie liczby spełnień warunku, po 
której nastąpi wpadnięcie w pułapkę. 

Enable/disable Aktywowanie/dezaktywowanie pułapki. 

Add... Włączenie pułapki o podanym adresie do 
listy pułapek Cnp. 444 włącza pułapkę 
przed pierwszą instrukcją albo rozkazem 
wiersza 440). | 

Global włączenie pułapki do listy pułapek i uz- 
nanie jej za globalną Ctraktowaną tak, 
Jakby była włączona przed każdą ins— 
trukcją programu... 


Remove Usunięcie rozpatrywanej pułapki. 
Delete all Usunięcie wszystkich pułapek. 
Inspect Wyświetlenie tego fragmentu programu, 


którego dotyczy rozpatrywana pułapka. 


Opcja Stack 


Wybranie opcji Breakpoints powoduje wyświetlenie i uczynie- 
nie aktywnym, okienka wywołań. Okienko to składa się z jednej 
ramri, w której znajduje się wykaz aktywnych procedur, w 
kolejności ich wywoływania. 


Lokal ne me nu 


Inspect Otworzenie okienka modułowego, usytuowa— 
nego w miejscu wywołania wybranej proce- 
dury. 

Locals Otworzenie okienka zmiennych i wyświetle- 
nie w nim zmiennych lokalnych bieżącego 
modułu oraz zmiennych lokalnych wybranej 
procedury ćw przypadku wywołań rekurencyj- 
nych, zmiennych lokalnych wybranej gene- 
racji wywołaniaJ. 


Opcja Log 


Wybranie opcji Log powoduje wyświetlenie i uczynienie 
aktywnym. okienka komunikatów. Okienko to składa się z Jednej 
ramki, w której znajduje się wykaz najnowszych komunikatów 


(zazwyczaj 50 wierszy) skierowanych do tego okienka. 


Komunikaty mogą być umieszczane w okienku na skutek 
wpadnięcia programu w pułapkę, zarejestrowania komentarza 


oraz skopiowania zawartości aktywnej ramki wybranego okienka. 
Lokal ne me nu 


Open log file Podjęcie wyprowadzania komunikatów nie 
Łylko do okienka komunikatów, ale również 
do zbioru o podanej nazwie (po uprzednim 
umieszczeniu w tym zbiorze wszystkich ko- 
munikatów już znajdujących się w wymienio- 
nym okienku). 

Close log file Zamknięcie zbioru, do którego wyprowadzano 
komunikaty i ograniczenie się do wyprowa- 


dzania dalszych komunikatów tylko do oklen- 


ka. 

Loggi ng Włączenie.wyłączenie rejestrowania komuni - 
katów. 

Add comment Wyprowadzenie podanego komentarza do 


okienka komunikatów. 

Erase log Wyczyszczenie okienka komunikatów (może 
okazać się przydatne przed wybraniem opcji 
Open log file. 


Opcja Watches 


Wybranie opcji Watches powoduje wyświetlenie i uczynienie 
aktywnym, okienka obserwacyjnego. Okienko to składa się z 
Jednej ramki i wraz z okienkiem modułowym jest wyświetlane 
bezpośrednio po aktywowaniu uruchamiacza. W okienku obser- 
wacyjnym są umieszczane wyrażenia obserwowane podczas 
wykonywania programu. Jeśli wyrażenie jest nazwą zmiennej 
strukturalnej, to okienko zawiera określenie typu zmiennej i 
wartość danej przypisanej tej zmiennej albo jej komponentom. 
W pozostałych przypadkach, okienko zawiera tylko określenie 
typu oraz wartość danej. Jeśli wyrażenie jest wskazujące, to 


jest przytaczana informacja o zmiennej wskazywanej. 
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Wyrażenia mogą być umieszczane w okienku obserwacyjnym za 
pomocą klawisza Ctrl-F7 Cpo wyróżnieniu za pomocą klawisza 
Ins i klawiszy strzałek poziomych», a także z lokalnego menu. 
Ww przypadku kolizji identyfikatorów przyjmuje się, że chodzi 
o identyfikatory widoczne w punkcie wykonywania programu. 


Lokal ne me nu 


Watch Umieszczenie podanej nazwy zmiennej albo 


wyrażenia w okienku obserwacyjnym. 


Edit Poddanie edycji obserwowanego wyrażenia 
albo nazwy zmiennej. 

Remove Usunięcie z okienka wyróżnionego obiektu 
obserwowanego. 

Delete all Usunięcie z okienka wszystkich obiektów 
obserwowanych. 

Inspect Otworzenie okienka inspekcyjnego, w celu 


zapoznania się z komponentami obiektu zło- 
żonego. 
Change Przypisanie wybranej zmiennej, danej o po- 


danej wartości. 


Opcja Variables 


Wybranie opcji Variables powoduje wyświetlenie i uczynienie 
aktywnym, okienka zmiennych. Okienko to składa się z dwóch 
ramek, w których są wyświetlane zmienne dostępne w punkcie 
zatrzymania programu. W lewej ramce są wyświetlane zmienne 


publiczne, a w prawej zmienne prywatne. 


Lokal ne me nu 


Inspect Otworzenie okienka inspekcyjnego, w celu 
zapoznania się z komponentami obiektu 
złożonego. 

Change Przypisanie wybranej zmiennej, danej o po- 


danej wartości. 


Opcja Module 


Wybranie opcji Module powoduje wyświetlenie wykazu nazw mo” 
dułów, z których można dokonać wyboru modułu. Po wykonaniu 
tej czynności następuje wyświetlenie i uczynienie aktywnym, 
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okienka modulowego zawierającego tekst wybranego modułu. O- 
kienko Ło składa się z jednej ramki i wraz z okienkiem ob- 
serwacyjnym jest wyświetlane bezpośrednio po aktywowaniu u- 
ruchamiacza. Poszukiwanie modułu o podanej nazwie odbywa się 
kolejno: 10 w katalogu, w którym kompilator znalazł urucha- 
miany program, 2) w katalogach określonych za pomocą opcji 
Options/Path for Source, 3) w katalogu bieżącym, 4) w kata- 
logu, w którym znajduje się właśnie uruchamiany program. 


Lokal ne me nu 


Inspect Otworzenie okienka inspekcyjnego w celu 
zapoznania się z obiektem wyróżnionym 
przez kursor albo w celu określenia war-— 
tości wyrażenia wyróżnionego za pomocą 
klawisza Ins i klawiszy strzałek pozio- 
mych. 

Watch Umieszczenie zmiennej wyróżnionej przez 
kursor w okienku obserwacyjnym. 

Module Wyświetlenie w okienku modułowym, innego 
modułu wybranego z podsuniętego wykazu. 

File Wyświetlenie w okienku modułowym, tej 
części modułu, która znajduje się w Ilnnym 
zbiorze. 

Previous Przemieszczenie kursora na pozycję jaką 
zajmował on przed ostatnią zmianą jego po- 
zycji. 

Line Przemieszczenie kursora na pierwszy Znak 
wiersza o podanym numerze. 

Search Odszukanie łańcucha składającego się z po- 
danych znaków. Jeśli kursor znajduje się 
nad identyfikatorem, albo gdy za pomocą 
klawisza Ins wyróżniono blok znaków, to 
jako tekst poszukiwany jest odpowiednio 
podsuwany identyfikator albo blok. Jeśli 
w podanym ciągu znaków znajdują się znaki 
»* Cgvliazdka0 albo ? Cpyłajnik0, to opisują 
odpowiednio: dowolny ciąg znaków i dowolny 
znak. Szukanie ciągu znaków odbywa się od 


pozycji kursora do końca modułu. 
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Next Odszukanie identycznego ciągu znaków, jak 
podany podczas ostatniego wybrania opcji 
Search. 

Origin Przemieszczenie kursora na pozycję, w 
której nastąpiło zatrzymanie wykonywania 
programu. Jeśli okaże się to konieczne, 
załadowanie do oklenka modułowego innego 
modułu. 

Goto Przemieszczenie kursora na podaną pozycję. 
Pozycja może być określona za pomocą nume- 
ru wiersza Cnp. 4440, nazwy procedury, al- 
bo adresu wyrażonego szesnastkowo. 

Edit Aktywowanie edytora w celu poddania edycji 
testu wyświetlanego w okienku modułowym 
Cdyrektywa systemu DOS wywołująca edytor 
musi być określona podczas instalowania 


uruchamiaczaJ.J. 


Opcja File 


Wybranie opcji File powoduje wyświetlenie i uczynienie ak- 
tywnym, okienka zbiorów. Okienko to składa się z jednej ram- 
ki, w której jest wyświetlana zawartość podanego zbioru, w 
postaci znakowej albo szesnastkowej. Przełączanie między tymi 
dwiema postaciami zapewnia opcja Display As wybrana z lokal- 


nego menu Cjej wersją przyspieszoną jest Ctrl-DV. 


Lokal ne me nu 


Goto Przemieszczenie kursora na pozycję © 
podanym numerze. Jeśli zawartość zbioru 
jest wyświetlana znakowo, należy podać 
numer wiersza, a jeśli szesnastkowo, to 
numer bajtu. 

Search Odszukanie łańcucha składającego się z po- 
danych znaków. Jeśli kursor znajduje się 
nad identyfikatorem, albo gdy za pomocą 
klawisza Ins wyróżniono blok znaków, to 
jako tekst poszukiwany jest odpowiednio 
podsuwany identyfikator albo blok. Jeśli 
w podanym ciągu znaków znajdują się znaki 
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* Cgwiazdko0 albo ? (pytajnik), to opisują 
odpowiednio: dowolny ciąg znaków i dowolny 
znak. Szukanie ciągu znaków odbywa się od 
pozycji kursora do końca modułu. 

Next Odszukanie identycznego ciągu znaków, jak 
podany podczas ostatniego wybrania opcji 
Search. 

Display as Przełączenie między wyświetlaniem zbioru w 
postaci znakowej i szesnastkowej. 

File Wyświetlenie w okienku zbiorów zawartości 
innego zbioru. Jeśli podana nazwa zbioru 
Jest niejednoznaczna, umożliwienie 
dokonania wyboru z podsuniętego wykazu. 

Edit Jeśli zbiór jest wyświetlany znakowo, 
aktywowanie edytora w celu poddania edycji 
testu wyświetlanego w okienku modułowym 
Cdyrektywa systemu DOS wywołująca edytor 
musi być określona podczas instalowania 
uruchamiacza). Jeśli zbiór jest wyświet- 
lany szesnastkowo, zastępowanie bajtów wy- 
różnionych przez kursor, bajtami wprowa- 


dzonymi z klawiatury. 


Opcja CPU 


Wybranie opcji CPU powoduje wyświetlenie i uczynienie aktŁyw- 
nym okienka procesora. Okienko to składa się z pięciu ramek: 
kodu (Code), rejestrów CRegister), znaczników (Flags), stosu 


CStack) i danych CData)J. 


Ramka Code 


Ramka zawiera instrukcje programu źródłowego i rozkazy asem- 
blerowe. Sposób ich wyświetlania zależy od opcji lokalnej 

Mixed. Symbole publiczne mają postać identyfikatorów. Pozos- 
tałe symbole składają się z nazwy modułu, po której następuje 
znak % Chash) albo . Ckropko)> i identyfikator. Numery wierszy 
składają się z nazwy modułu, po której występuje jeden z wy- 
mienionych znaków i liczba określająca numer wiersza w modu- 
ie. Adresy docelowe rozkazów sterujących są wyświetlane sym- 


bolicznie. Jeśli wyróżnienie dotyczy rozkazu sterującego, 
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którego wykonanie spowodowałoby skokową zmianę licznika roz- 
kazów, to rozkaz taki jest uzupełniany strzałką określającą 


kierunek skoku. 


Lokal ne me nu ramki Code 


Goto wyświetlenie kodu w otoczeniu podanego 
adresu Cpowrót zapewnia opcja Previous). 

Origin Wyświetlenie kodu w otoczeniu adresu 
zatrzymania programu CCS: |IPV. 

Follow Wyświetlenie kodu w otoczeniu adresu 
rozkazu sterującego CJMP, CALL, itp.). 

Caller Wyświetlenie kodu w otoczeniu adresu skąd 
wywołano daną procedurę. 

Previous Wyświetlenie kodu w otoczeniu punktu, w 
którym posłużono się ostatnio użytą opcją 
zmiany adresu. 

Search Odszukanie podanego rozkazu albo ciągu 
podanych bajtów. 

Mi xed Przełączenie między trybami wyświetlania 


instrukcji i rozkazów w ramce kode 


No Wyświetlanie tylko rozkazów; 

Yes Wyświetlanie instrukcji i ich roz- 
winięć asemblerowych Ctryb domnie- 
many w przypadku gdy bieżący moduł 
jest napisany w języku wysokiego 
poziomuD ; 

Both Wyświetlanie instrukcji i tylko 
tych rozkazów, które nie Są roz- 
winięciami instrukcji. 

New CS: IP Dokonanie takiej zmiany licznika rozkazów 
CCS:IP>D, aby następnym wykonywanym 


rozkazem był rozkaz o podanym adresie. 


Assemble Zastąpienie bieżącego rozkazu, rozkazem 
wprowadzonym z klawiatury. 
1/0 Wykonanie operacji na porcie wejścia- 
wyjścia 
In byte wprowadzenie danej z portu 


bajtowego o podanym adresie; 
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Out byte wyprowadzenie podanej danej 
do portu bajtowego o podanym 
adresie; 

Read word wprowadzenie danej z portu 
Słowowego o podanym adresie; 

Write word wyprowadzenie danej do portu 


słowowego o podanym adresie. 


Ramka Regi ster 


Ramka zawiera wykaz rejestrów procesora i danych przypisa- 


nych Łym rejestrom. 


Lokal ne me nu ramki Register 
Increment Inkrementacja wyróżnionego rejestru o 1. 
Decrement Dekrementacja wyróżnionego rejestru o 1. 
Żero Wyzerowanie wyróżnionego rejestru. 
Change Przypisanie wyróżnionemu rejestrowi danej 


o podanej wartości. 

Registers 32-b. Przełączenie między wyświetlaniem rejest- 
rów jako 16-bitowych albo 32-bitowych (ma 
Ło znaczenie jedynie w przypadku posługi - 


wania się mikroprocesorem rodziny 386). 


Ramka Flags 


Ramka zawiera wykaz elementów rejestru znaczników procesora 


i danych przypisanych tym rejestrom. 


Lokal ne me nu ramki Flags 


Toggle Zmiana danej przypisanej wyróżnionemu ele- 
mentowi rejestru znaczników, z wartości O 


na 1 i odwrotnie. 


Ramka StŁ a CK 


Ramka zawiera wykaz danych znajdujących się na stosie proce- 


sora. Szczytowa pozycja tego stosu jest oznaczona strzałką. 


Lokal ne me nu ramki Stack 


Gota Wyświetlenie stosu w otoczeniu podanego 
adresu Cprzywrócenie poprzedniego adresu 
zapewnia opcja Previous). 
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Origin Wyświetlenie stosu w otoczeniu jego 
szczytu. 

Follow Wyświetlenie stosu w otoczeniu adresu 
znajdującego się na wyróżnionej pozycji 
stosu. 

Previous Wyświetlenie takiego samego obszaru stosu 
jaki był wyświetlany przed wybraniem 
ostatniej opcji zmiany adresu. 

Change Umieszczenie na wyróżnionej pozycji stosu, 
danej o podanej wartości Cdana może być 
wprowadzona bezpośrednio, to jest bez 


jawnego wybrania opcji Change). 


Ramka Data 


Ramka zawiera dane znajdujące się w wybranym obszarze pa— 
mięci operacyjnej. Dane są wyświetlane w postaci określonej 
za pomocą opcji Display As. W prawej części ramki są wyś-— 
wietlane znaki znajdujące się w wybranym obszarze pamięci. 
Jeśli częśc segmentowa adresu pokrywa się z zawartością 


rejestru DS, Ło jako numer segmentu podaje się DS. 


Lokal ne me nu ramk i Da tŁ a 


Goto Wyświetlenie danych w otoczeniu podanego 
adresu. Adres nie musi znajdować się w 
obrębie uruchamianego programu. 

Search Wyświetlenie danych w otoczeniu adresu pod 
którym znajduje się podany ciąg bajtów. 

Next Wyświetlenie danych w otoczeniu adresu pod 
którym znajduje się kolejny ciąg takich 
bajtów jakie podano po wybraniu opcji 
Search. 

Change Dokonanie zmiany wyróżnionej danej na daną 
o podanej wartości Cdana może być wprowa” 
dzona bezpośrednio, to jest bez jawnego 
wybrania opcji ChangeJ. 

Follow Wyświetlenie danych w otoczeniu adresu 
DS: addr, w którym addr jest zawartością 
wyróżnionego słowa pamięci operacyjnej. 
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Long follow 


Previous 


Display as 


Block 


Opcja Dump 


Wyświetlenie danych w otoczeniu adresu 


seg:0fs, w którym seg i ofs stanowią parę 


kolejnych słów, z których pierwsze jest 


właśnie wyróżnione. 


Wyświetlenie takiego samego obszaru pamię- 


ci, jaki był wyświetlany przed wybraniem 


ostatniej opcji zmiany adresu. 


Określenie sposobu przedstawienia danych 


wybranego obszaru pamięci 


Byte 


word 


Long 


Comp 


Float 


Real 


Double 


Extended 


w postaci liczoy całkowitej 
typu char albo byte; 

w postaci liczby całkowitej 
typu int albo word; 

w postaci liczby całkowitej 
szesnastkowej (long, longint); 
w postaci liczby rzeczywistej 
Łypu comp; 

w postaci liczby rzeczywistej 
Łypu float albo single; 

w postaci liczby rzeczywistej 
typu real; 

w postaci liczby rzeczywistej 
typu double albo TBYIE; 

w postaci liczby rzeczywistej 
typu long double albo exten- 
ded. 


Wykonanie operacji na bloku pamięci opera- 


cyjnej o podanym adresie i rozmiarze 


Clear 
Move 
Set 
Read 


Write 


wyzerowanie bloku; 
skopiowanie bloku; 

jednolite zapełnienie bloku; 
wprowadzenie danych ze zbioru 
o podanej nazwie; 
wyprowadzenie bioku do zbioru 


o podanej nazwie. 


Wybranie opcji Dump powoduje wyświetlenie i uczynienie ak- 


tywnym, okienka pamięci. 


Okienko to składa się z takiej sa- 
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mej ramki jak ramka Data okienka CPU. Stosuje się do niego 
takie samo lokalne menu składające się z następujących pól 


Goto 
Search : 
Next 

Change 
Follow 

Long follow 


Previous 
Display as 
Byte Word Long Comp 
Float Real Double Extended 
Block 


Read Write 


Wygodnym zastosowaniem opcji Dump jest posłużenie się nią po 
wywołaniu okienka inspekcyjnego, w celu zapoznania się z re- 


prezentacją rozpatrywanego obiektu. 


Opcja Registers 


Wybranie opcji Registers powoduje wyświetlenie i uczynienie 
aktywnym, okienka rejestrów i znaczników. Okienko to składa 
się z dwóch ramek identycznych z ramkami rejestrów i znacz- 
ników okienka CPU. Stosują się do nich takie same lokalne 
menu składające się z następujących pól 


Increment Toggle 
Decrement 

Zero 

Change 

Registers—32-bit 


Opcja Numeric Processor 


Wybranie opcji Numeric Processor powoduje wyświetlenie i 
uczynienie aktywnym, okienka Roprocesora. Okienko to składa 
się z trzech ramek: ramki rejestrów (Register, ramki ste- 
rującej (Control) i ramki znaczników CFlags>. Nagłówek o- 
kienka informuje o użyciu koprocesora lub emulatora. Wymie- 
niony w nim adres jest podawany w postaci 20-bitowej Cnp. 


adres 3AOOB jest równoważny znormalizowanemu adresowi 
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3A00: 0O00B). IPTIR oznacza adres instrukcji, OPCODE oznacza 
rodzaj instrukcji, a OPIR oznacza adres pamięci, którego 
dotyczy instrukcja. 


Ramka Register 

Ramka zawiera wykaz rejestrów koprocesora i danych przypisa- 
nych Łym rejestrom. 

Lokalne me nu ramki Regi ster 


Żero Przypisanie wyróżnionemu rejestrowi, danej 
o wartości O. 

Change Przypisanie wyróżnionemu rejestrowi, danej 
o podanej wartości (dana może być wprowa 
dzona bezpośrednio, to jest bez jawnego 
wybrania opcji Change). 

Ramka Co nt rol 
Ramka zawiera określenia wartości znaczników słowa sterują- 
cego koprocesora. 


Local ne me nU ra mk i Cont rol 


Toggle Zmiana stanu wyróżnionego znacznika. 


Ramka Flags 


Ramka zawiera określenia wartości znaczników słowa stanu ko- 


procesora. 
Local ne me nu ramki Flags 
Toggle Zmiana stanu wyróżnionego znacznika. 


Opcja User Screen 


Wybranie opcji User Screen powoduje wyświetlenie i uczynienie 
aktywnym, okienka wyjsciowego. Okienko to ma taką samą postać 
Jaką miałby w danym momencie ekran monitora, gdyby program 
został wywołany z systemu DOS. W celu przyspieszonego wyś— 
wietlenia okienka wyjściowego należy nacisnąć klawisz ALt-F5. 
Wyświetlane okienko wyjściowe znika po naciśnięciu dowolnego 


klawisza klawiatury. Okienko wyjściowe nie ma lokalnego menu. 
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Opcja Another 


Wybranie opcji Another powoduje wyświetlenie i uczynienie 

aktywnym, okienka dodatkowego: modułowego CModule), pamięci 
(Dump albo zbioru CFile). W szczególności, posłużenie opcją 
Another umożliwia jednoczesne wyświetlenie zawartości więcej 


niż jednego zbioru. 


RUN 


Menu Run składa się z opcji umożliwiających śledzenie pro-— 


gramu i wykonywanie go aż do zatrzymania. 


Opcja Run 


Wybranie opcji Run (skrót F92 powoduje podjęcie wykonywania 
programu aż do zatrzymania. Wywołanie uruchamiacza nastąpi w 
jednym z następujących przypadków: 10 po zakończeniu wykony- 
wania programu, 20 po wpadnięciu programu w pułapkę, 32 po 


naciśnięciu klawisza Ctrl-Break. 


Opcja Reset 


Wybranie opcji Reset (skrót Ctrl-F22, powoduje ponowne zała- 
dowanie programu z pamięci dyskowej. Ponieważ po wykonaniu 
tej akcji nie zmienia się zawartość okienka modułowego, można 
na przykład Cpo przemieszczeniu kursora i naciśnięciu klawi- 
sza F40, spowodować wykonanie programu do punktu poprzedza— 


jącego ten, w którym wybrano omawianą opcję. 


Opcja Go to cursor 


Wybranie opcji Go to cursor Cskrót F42, powoduje zastawienie 
tymczasowej pułapki w wierszu wyróżnionym przez kurser i pod- 


jęcie wykonywania programu aż do zatrzymania. 


Opcja Trace into 


Wybranie opcji Trace into (skrót F72, powoduje wykonanie jed- 
nego wiersza źródłowego albo jednego rozkazu. Wykonanie roz- 
kazu następuje jedynie wtedy, gdy okienkiem bieżącym jest o- 
kienko procesora CCPUJ). Jeśli wiersz źródłowy zawiera wywoła- 


nia procedur, to śledzenie obejmuje ich wnętrza. 
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Opcja Step over 


Wybranie opcji Step over Cskrót F62, powoduje wykonanie 
jednego wiersza Źródłowego albo jednego rozkazu. W odróż- 
nieniu od opcji Trace Into, śledzenie nie obejmuje wywoły- 
wanych procedur. Zmodyfikowane jest także śledzenie niektó- 
rych rozkazów. Dotyczy to w szczególności rozkazów CALL 

i INT, a także rozkazów takich jak LOOP, LOOPZ, LOOPNZ (z 
licznikiem w rejestrze CX) oraz rozkazów poprzedzonych pre- 


fiksami REP, REPZ 1 REPNZ. 


Opcja Execute to 


Wybranie opcji Execute to Cskrót ALt-F90, powoduje zasta- 
wienie tymczasowej pułapki pod podanym adresem i podjęcie 


wykonywania programu aż do zatrzymania. 


Opcja Until return 


wybranie opcji Until return Cskrót ALt-F80, powoduje zasta- 
wienie tymczasowej pułapki przed instrukcją, która zostałaby 
wykonana po zakończeniu wykonywania bieżącej procedury, a 


następnie podjęcie wykonywania programu aż do zatrzymania. 


Opcja Animate 


Wybranie opcji Animate (skrót ALlLt—F40 powoduje podjęcie ani- 
rowanego wykonywania programu aż do zatrzymania. Animacja 
polega na uwidocznianiu przebiegu wykonywania programu. Prze- 


rywa ją naciśnięcie dowolnego klawisza klawiatury. 


Opcja Instruction trace 


wybranie opcji Instruction trace (skrót ALt-F70 powoduje wy- 
konanie jednego rozkazu. Opcja ta umożliwia śledzenie pod- 
programów obsługi przerwań oraz modułów skompilowanych bez 


opcji umożliwiających uruchamianie symboliczne. 


z 


BREAKPOINTS 


Menu Breakpoints składa się z opcji umożliwiających zasta- 
wianie i usuwanie pułapek. Modyfikowanie domniemanych właś— 


ciwości pułapek odbywa się natomiast w okienku pulapek. 
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Opcja Toggle 


Wybranie opcji Toggle (skrót F2£), powoduje zastawienie pułap- 
ki przed pierwszą instrukcją wiersza źródłowego albo przed 


wyróżnionym rozkazem asemblerowym. 


Opcja At... 


Wybranie opcji At... Cskrót ALt=-F2ED, powoduje zastawienie 
pułapki pod podanym adresem. 


Opcja Changed memory global... 


Wybranie opcji Changed memory global... powoduje zastawienie 
pułapki globalnej, w którą program wpadnie, gdy nastąpi 
zmiana zawartości podanego obszaru pamięci. Obszar pamięci 
określa się przez podanie nazwy zmiennej i rozmiaru. Na 


przykład, jeśli w zasięgu deklaracji: 


w Turbo Pascalu 


var Arr : array [O..9] of longint; 


v Turbo C 
long int Arr(10]; 


v Turbo Assemblerze 
Arr DD 1O DUPC?D 
poda się napis 
Arr ,3 


to będzie to określać obszar 120 bajtów począwszy od 
pierwszego bajtu tablicy Arr. 


Opcja Expression true global... 

Wybranie opcji Expression true global... powoduje zastawienie 
pułapki globalnej, w którą program wpadnie, gdy podane wyra- 
żenie będzie miało wartość różną od O albo TRUE. 


Opcja Delete all 


Wybranie opcji Delete all powoduje usunięcie wszystkich zas- 
tawionych pułapek. 
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KENZO O 


DATA 


Nenu Data składa się z opcji umożliwiających zapoznawanie się 
z wartościami danych przypisanych zmiennym i reprezentowanych 
przez wyrażenia, jak również przypisywanie zmiennym nowych 


danych. 


Opcja Inspect 


Wybranie opcji Inspect powoduje wyświetlenie okienka inspek- 
cyjnego dotyczącego zmiennej o podanej nazwie. Jeśli w chwi- 
li wybrania tej opcji kursor wyróżnia identyfikator, albo 

gdy za pomocą klawisza Ins i klawiszy strzałkowych wyróżniono 


pewne wyrażenie, to one właśnie są podsuwane do podania. 


Opcja Evaluate/modify 


wybranie opcji Evaluate.modify (skrót Ctrl-F40, powoduje 
wyświetlenie okienka pomocniczego, składającego się z trzech 
ramek. Jeśli w pierwszej ramce zostanie podane wyrażenie, to 
w drugiej zostanie wyświetlona wartość reprezentowanej przez 
nie danej CĆwartość tę można przedstawić w postaci zredagowa- 
nej, podając dodatkowo wzorzec redagowania oddzielony od wy- 
rażenia średnikiem”. Jeśli podane wyrażenie jest nazwą zmien- 
nej, Ło w trzeciej ramce można określić wartość danej, która 
ma być przypisana tej właśnie zmiennej. Podobnie jak w przy- 
padku opcji Inspect, może być podsunięty do podania identy- 
fikator zmiennej albo wyrażenie wyróżnione za pomocą klawisza 


Ins i klawiszy strzałek poziomych. 


Opcja Watch 


Wybranie opcji Watch Cskrót Ctrl-F72, powoduje umieszczenie 
podanego identyfikatora albo wyrażenia w okienku obserwacyj"- 
nym. W rozpatrywanym przypadku także stosuje się podsuwanie 
identyfikatora albo wyrażenia. 


Opcja Function return 


Wybranie opcji Function return powoduje ujawnienie rezultatu 
procedury funkcyjnej. Opcja może być wybrana tylko tuż przed 


zakończeniem wykonywania procedury. 
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WINDOW 


Menu Window składa się z opcji umożliwiających wykonywanie 


operacji na okienkach, bez wnikania w zawartość okienek. 


Opcja Window pick 


Wybranie opcji Window pick Cskrót AŁŁ=O2, powoduje wyświetle-— 
nie wykazu wszystkich otwartych okienek. Wybranie jednej z 
pozycji tego wykazu czyni wybrane okienko aktywnym. 


Opcja Next pane 


Wybranie opcji Next pane (skrót 7ab), powoduje wyróżnienie 
następnej ramki okienka aktywnego. 


Opcja Move/resize 


Wybranie opcji Move/resize (skrót Scroll-LockD, powoduje 
podjęcie rekonfiguracji okienka aktywnego Czmiany jego roz- 


miaru i położenia). 


Opcja Close 


Wybranie opcji Close (skrót F30, powoduje zamknięcie okienka 
aktywnego. 


Opcja Undo close 


Wybranie opcji Undo close (skrót ALtŁ-—F62, powoduje otworzenie 
ostatnio zamkniętego okienka. 


Opcja Dump pane to log 


Wybranie opcji Dump pane to log powoduje skopiowanie aktywnej 
ramki do okienka komunikatów. 


Opcja Restore standard 


Wybranie opcji Restore standard powoduje przywrócenie domnie- 


manego rozmieszczenia okienek. 


Opcja Screen repaint 


Wybranie opcji Screen repaint powoduje odświeżenie ekranu. 
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OPTIONS 


Menu Options składa się z opcji umożliwiających dokonanie 


zmiany zewnętrznych właściwości uruchamiacza. 


Opcja Language 


Wybranie opcji Language umożliwia wybranie języka, w którym 


będą zapisywane wyrażenia. 


Opcja Macros 


Wybranie opcji Macros umożliwia definiowanie i usuwanie 


makrodefinicji przypisanych wybranym klawiszom specjalnym. 


Create Rozpoczęcie rejestrowania makrodefinicji, 
po uprzednim podaniu klawisza specjalne- 
go, stanowiącego jej nazwę. Rejestrowa- 
nie następuje do momentu wybrania opcji 
Stop Recording. Od tej chwili naciśnię- 
cie klawisza specjalnego Cnp. Ctrl-Del) 
wywołuje taki sam skutek, jak naciśnięcie 
kolejno wszystkich klawiszy zarejestrowa- 
nych między Create Cskrót ALt-=) i Stop 


Recording (skrót ALt—-. 


Stop recording Zakończenie rejestrowania makrodefinicji. 


Remove Usunięcie makrodefinicji związanej Z 
podanym klawiszem specjalnym. 

Delete all Usunięcie wszystkich makrodefinicji zwią” 
zanych z klawiszami specjalnymi. 


Opcja Environment 


Wybranie opcji Environment umożliwia określenie sposobu 


wyświetlania danych. 


Integer format Obranie zapisu wartości danych 


całkowitych 
Decimal dziesiętnie; 
Hex szesnastkowo; 
Both dziesiętnie i szesnastkowo. 
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Display swapping Obranie sposobu przełączania między ek— 


ranem uruchamiacza, a ekranem wyjściowym 


None bez przełączania; 
Smart tylko wtedy, gdy można się 
spodziewać operacji ekranowej; 
Always zawsze. 
Screen size Obranie maksymalnego, dopuszczalnego dla 


danej karty, pionowego rozmiaru ekranu 
(43 -— EGA, 50 -— VGAV. 
Tab Size Obranie skoku tabulacji. 


Opcja Path for source 


Wybranie opcji Path for source podanie katalogów, w których 
będą poszukiwane moduły źródłowe. Moduły te są poszukiwane 
kolejno: 1) w katalogu, w którym kompilator znalazł program 
źródłowy, 20 w katalogach określonych za pomocą właśnie roz— 
patrywanej opcji, 32 w katalogu bieżącym, 40 w katalogu za-— 


wierającym uruchamiany program. 


Opcja Arguments 


Wybranie opcji Arguments umożliwia podanie argumentów pro-— 


gramu. 


Opcja Save options 


Wybranie opcji Save options powoduje zapamiętanie parametrów 
uruchamiacza w zbiorze o podanej nazwie (w tym jego opcji i 
makrodefinicji, a także sposobu rozmieszczenia okienek i ra— 
mek). 


Opcja Restore options 


Wybranie opcjłt Restore options powoduje ustawienie para— 
metrów uruchamiacza ząpamiętanych po wybraniu opcji Save 
Options. 
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DODATEK A — Kody 


Kody ASCII 


Znakami kodu ASCII są znaki o kodach O..7F, a znakami rozsze- 


rzonego Rodu ASCII są znakt o kodach O..FF. 


2 3 4 5 6 7 8 9 A B CDD EE 


1 


2 3 4 5 6 7 8 98 


1 


O 


J K L M N O 


© A B C D E F GH I 


5 P QR SS T U Vw X Y z 


4 


N 


( 


7 P q 


8 € u ć A A A A qę © 


9 EE 


Y 


2 A 6 


r". C 


"R 


ą 


"Ne ZI 


SĘ m 


Him Oj 


= Ra. 


«Nu 2 [FE BB O |-— 


r" 


tŁ_ 


4) 


ol 


UJ 


4 ra 
= " © . 


=" 4+ © 0 


km dm 
nancudiiima smd 


KO 


-- EE 4 H 
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Znaki sterujące 


dec hex char dec hex char 
O 00 © NUL 16 1O *P DLE 
1 Oi 4A SOH 17 11 *Q DC1 
2 02 *B STX 18 12 "R DC2 
3 03 *C ETX 19 13 *S DC3 
4 04 *D EOT 20 14 ST DC4 
5 O5 *E ENQ 21 15 *U NAK 
6 06 *F ACK 22 16 ©V SYN 
7 07 4*G BEL 23 17 *W ETB 
8 08 *H BS 24 18 7X CAN 
9 09 *1 HT 25 19 ZY EM 
10 OA 3 LF 26 iA 2 SUB 
11 OB 4K VT 27 1B *[ ESC 
12 OC 4L FF 28 1C 4 FS 
13 OD *M CR 29 1D ] GS 
1 4 OE *N SO 30 1iE 0 RS 
15 OF 0 SI 31 1F ©. US 


znaki klawiatury 


Naciśnięcie pewnego znaku klawiatury, ewentualnie łącznie z 
klawiszem Shift, Ctrl albo Alt powoduje wprowadzenie do bufo- 
ra wejściowego jednego albo dwóch znaków. Jeśli zostaną wpro- 


wadzone dwa znaki, to pierwszym z nich jest znak o kodzie O. 


Klucze F1 - F1O 


bez Shift z Shift z Ctrl z Alt 
F1 o 59 O 84 O 94 O 104 
F2 O 60 O 85 O 95 O 1OS 
F3 O 61 O 86 O 96 O 106 
F4 O 62 O 87 O 87 O 107 
FS O 63 O 88 O 398 O 108 
F6 O 64 O 89 O 99 O 1O9 
F7 O 65 O 80 O 100 O 110 
F8 O 66 O SI O 101 O 111 
F9 0 67 O Sz O 102 O 112 
F1O O 68 O 83 O 103 O 113 
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Klucze spec jalne 


Łttery 


NKKE<CHYÓWOVWVOZZKUZXLHEIQA IMUNWP 


bez Shift 


75 
77 
72 
80 
71 
79 
73 
81 
82 
83 


POWOCOOOCOCOCO 


wW 


bez Shift 


27 
398 

99 
1 OO 
1O1 
102 
103 
1 04 
1 OS 
1 06 
107 
108 
1 OS 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 


OOOO 
| 
p 
J 


z Ctrl 


OONOURWWE 


N 
z 
R 


OOODOODOOOOOOOOOOOOOOOOOOOOOOCO 
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Niektóre titnne e=nakRt 


bez Shift z Shift z Ctrl z Alt 
[ 91 123 27 
N 92 124 28 
] 93 125 29 
* 36 126 
O 48 41 O 129 
1 49 33 O 1ez0 
2 50 64 O 3 O 121 
3 Si 35 O 122 
4 5S2 36 O 123 
5 53 37 O 124 
6 54 94 30 O 125 
7 55 38 O 126 
8 56 42 0127 
je 57 40 O 128 
3x 42 42 O 114 
+ 43 43 
- 45 95 31 O 130 
= 61 43 O 131 
44 60 
47 63 
; 59 58 


Przykład Zasada wprowadzania znaków z klawiatury 


program FunctionKeys; 
uses 
Crt; 
var 
Ch : char; 
begin 
repeat 
Ch := ReadKey; 
if Ch = 40 then begin 
Ch := ReadKey; 
if OrdCCh> in [59..68] then 
WritelnCl'Key F' ,OrdCCho> — 590) 


else 
WriteC "Special key: *” ,„OrdCCho>J) 
end 
else 
Writeln( "Regular key: ',Ch) 
until Ch = "C 


end. 


Jeśli z klawiatury zostanie wprowadzony znak F1..F10, 


zostanie wyprowadzony napis 


Key Fn 
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Ło 


Jeśli zostanie wprowadzony znak specjalny (o kodzie m, to 


zostanie wyprowadzony napis 
Special key: m 


Jeśli zostanie wprowadzony znak kodu ASCII, to zostanie 


wyprowadzony napis 
Regular key: c 


Wykonywanie programu kończy się po wprowadzeniu znaku Esc. 


DODATEK B — Edytor 


W odróżnieniu od innych edytorów, edytor ekranowy Systemu 
Turbo Pascal jest zorientowany na wprowadzanie tekstu, a nie 
na przyjmowanie dyrektyw. Powoduje to, że sterowanie opera— 
cjami na tekście odbywa się za pomocą znaków, które nie mają 
bezpośredniej reprezentacji graficznej. Znaki takie są nazy- 
wane sterującymi, a ich użycie sprowadza się do jednoczesnego 
naciśnięcia klawisza Ctrl oraz jednego albo dwóch klawiszy 
literowych dodatkowych. Ponieważ w dalszym opisie odwoływanie 
się do tych znaków będzie występować bardzo często, przyjęto 
umowę wyróżniania znaków sterujących symbolem © Ccaretd> ozna- 
czającym naciśnięcie klawisza Ctrl. W szczególności, wprowa— 
dzenie z klawiatury znaku sterującego Ctrl-A Cuzyskanego w 
następstwie jednoczesnego naciśnięcia klawisza Ctrl i klawi- 
sza AD będzie nazywane wykonaniem dyrektywy CA, a wprowadze— 
nie znaków sterujących Ctrl-K-D Cuzyskane w następstwie jed— 
noczesnego naciśnięcia klawisza Ctrl oraz klawiszy K i DV 


będzie nazywane wykonaniem dyrektywy: "KD. 


Typowa sesja współpracy z edytorem zaczyna się od uaktywnie- 
nia okienka edycyjnego. W jego nagłówku są wyświetlane na 


bieżąco informacje o przebiegu edycji: 


Line — numer wiersza zawierającego kursor 
Col — numer kolumny zawierającej kursor 
Insert — określenie sposobu wprowadzania znaków 
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Indent — określenie sposobu umieszczania kursora w nowym 
wierszu 
Tab — uwzględnienie tabulacji 


Name.ext — nazwa zbioru 


Jak można się przekonać, każde naciśnięcie klawisza powodu je 
umieszczenie na ekranie jednego znaku. Znak ten pojawia się 
na pozycji zajmowanej przez kursor. Jeśli wprowadzanie znaków 
odbywa się w trybie Insert, to przed wykonaniem tej czynności 
wszystkie znaki wiersza, począwszy od znaku wyróżnionego 
przez kursor, Są przesuwane o jedną pozycję w prawo. W trybie 
bez Insert następuje jedynie wprowadzenie znaku i przesunię- 
cie kursora. Przełączanie edytora z trybu Insert do trybu bez 


Insert i z powrotem odbywa się za pomocą klawisza Ins. 


Bezpośrednio po naciśnięciu klawisza Enter następuje zakoń- 
czenie kompletowania bieżącego wiersza tekstu i przemieszcze- 
nie kursora do wiersza następnego. W trybie Indent kursor 
zostanie umiejscowiony pod pierwszym różnym od spacji znakiem 
wiersza poprzedniego. Stanowi to duże ułatwienie podczas 
przygotowywania programów zawierających wcięcia. Przełączanie 
edytora z trybu bez Indent i z powrotem odbywa się za pomocą 


dyrektywy ©0OIL. 


Jeśli podczas wprowadzania tekstu zostanie naciśnięty klawisz 
Tab, to spowoduje to przemieszczenie kursora na najbliższą 
pozycję tabulacyjną. Wykonanie dyrektywy *OT powoduje włącza- 


nie i wyłączanie reagowania na tabulację. 


Wprowadzanie, zmiany ł usuwanie porcji tekstu 


Biorąc pod uwagę wprowadzanie tekstu, edytor można traktować 
jako wielofunkcyjną maszynę do pisania. Maszyna ta umożliwia 
wprowadzanie znaków i słów oraz operowanie na słowach już 
wprowadzonych. Pod pojęciem słowa jest rozumiany dowolny ciąg 
znaków zakończony jednym z następujących ograniczników: 


spacja ( > ;/ CO LL I ©" %* + -  $ 


Przesunięcie kursora o jedną pozycję w lewo, w prawo, w górę 
i w dół odbywa się za pomocą klawiszy oznaczonych strzałkami 
albo za pomocą dyrektyw E, S, Di X, których klawisze tworzą 
romb 
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| X 
Jak można się domyślić, CE przesuwa kursor o jeden wiersz w 
górę, *X przesuwa go o jeden wiersz w dół, a ”©S i ©D przesu- 
wają kursor odpowiednio o jedną pozycję w lewo i o jedną 
pozycję w prawo. Dzięki takiemu rozwiązaniu, o funkcji dyrek- 


tŁywy decyduje nie mnemonika nazwy jej klawisza, lecz położe- 


nie klawisza w przytoczonym układzie czterokierunkowym. 


Przesuwanie kursora o pojedyncze słowa jest realizowane za 
pomocą dwóch dodatkowych dyrektyw *©A i ©F Coraz Ctrl <— 
i Ctrl—0) 


Użycie dyrektywy CA powoduje przesunięcie kursora o jedno 
słowo w lewo, a użycie dyrektywy ©F powoduje przesunięcie 


kursora o jedno słowo w prawo. 


Kolejna para dyrektyw: ©R i ©C Coraz PgUp i PgDn» służy do 
przesunięcia kursora odpowiednio do poprzedniego i następnego 
ekranu. Klawisze tych dyrektyw są usytuowane z prawej Strony 
osi wyznaczonej przez klawisze E-X. Z lewej strony tej osi 
znajduje się para klawiszy do przesuwania tekstu nie miesz— 
czącego się na ekranie o jeden wiersz: W w dół i CZ w górę. 
Tak więc ostatecznie układ klawiszy wykorzystywanych do ste- 
rowania położeniem kursora oraz określających porcję wy- 


świetlanego tekstu przybiera postać 


L/ E R 
A S D F 
pa X je 


Układ ten jest łatwy do zapamiętania i nie wymaga identyfiko- 
wania klawiszy z opatrującymi je napisami. 


Z prawej strony podanego zestawu klawiszy znajdują się trzy 


klawisze dyrektyw *T, CY, 0G tworzące układ 
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G 


Użycie dyrektywy ©G powoduje usunięcie znaku wyróżnionego 
przez kursor, użycie dyrektywy 0T powoduje usunięcie znaków 
od znaku wyróżnionego przez kursor do końca słowa, a użycie 
dyrektywy CY powoduje usunięcie wiersza, w którym znajduje 


się kursor. 


Uzupełnieniem przytoczonego repertuaru dyrektyw Są klawisze 

Backspace Ce i Delete CDelDo. Naciśnięcie pierwszego z nich 
powoduje usunięcie znaku znajdującego się z lewej strony kur— 
sora, a naciśnięcie drugiego powoduje usunięcie znaku wyróż— 


nionego przez kursor. 


Podsumowanie 


©E Przesunięcie kursora o jeden wiersz do góry z zachowaniem 
pozycji kolumny. 

X Przesunięcie kursora o jeden wiersz do dołu z zachowaniem 
pozycji kolumny. 

*S Przesunięcie kursora o jedną pozycję w lewo. 

"D Przesunięcie kursora o jedną pozycję w prawo. 

SA Przesunięcie kursora do początku słowa w lewo. 

F Przesunięcie kursora do początku słowa w prawo. 

*R Przesunięcie 'okna' przez które jest widziany dokument 
o jeden ekran do góry. 

©C Przesunięcie 'okna' przez które jest widziany dokument 
o jeden ekran do dołu. 

*W Przesunięcie tekstu na ekranie o jeden wiersz w dół. 

z Przesunięcie tekstu na ekranie o jeden wiersz do góry. 

*G Usunięcie znaku wyróżnionego przez kursor. 

ST Usunięcie znaku wyróżnionego przez kursor oraz następują— 
cych po nim znaków danego Słowa. 

CY Usunięcie wiersza, w którym znajduje się znak wyróżniony 


przez kursor. 


Przytoczony tu repertuar dyrektyw, umożliwiający wyświetlanie 
i usuwanie dowolnych partii tekstu, został rozszerzony o zes— 
taw dyrektyw realizujący funkcje zbliżone do poprzednio omó— 
wionych, tyle że z większym "skokiem". Każda z nich składa 
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się ze znąku Q, bezpośrednio po którym występuje jeden ze 
znaków tworzących układ 


Dyrektywa QE Coraz Ctrl-Home) powoduje przesunięcie kursora 
do pierwszego wiersza ekranu, dyrektywa ©QX Coraz Ctrl -End) 
powoduje przesunięcie kursora do ostatniego wiersza ekranu, 
dyrektywa ©CQS Coraz Home. powoduje przesunięcie kursora do 
początku, a dyrektywa "QD Coraz End» powoduje przesunięcie 
kursora do końca tego wiersza, w którym znajduje się kursor. 
Dwie pozostałe dyrektywy "©QR i 0QC Codpowiednio Ctrl-PgUp 

i CtŁrl-PgDn> powodują przesunięcie kursora do początku i do 


końca tekstu. 


Przesuwanie kursora za pomocą dowolnych zestawów wymienionych 
tu dyrektyw może służyć dwóm celom: przemieszczaniu się w ob- 
rębie tekstu w celu sprawdzenia jego zawartości oraz prze— 
mieszczaniu się do obszaru, w którym mają być dokonane zmia— 
ny. W Łym drugim przypadku zmiany mogą polegać na uzupełnie— 
niu tekstu albo zastąpieniu go innym. W celu uzupełnienia 
tekstu wystarczy wprowadzić go z klawiatury. Edytor wstawi 
taki tekst przed znak wyróżniony przez kursor, dokonując na 
bieżąco przesunięcia znaku wyróżnionego oraz znaków po nim 
następujących. W celu zmiany tekstu można go najpierw usunąć 
albo zastąpić nowym — na zasadzie uzupełnienia, albo stary 
tekst wyrugować nowym. To ostatnie rozwiązanie nie należy do 
najlepszych, gdyż rzadko się zdarza, aby stary i nowy tekst 
były tej samej długości. Ponadto jego zastosowanie wymaga 
przejściowego wyłączenia trybu Insert, co pociąga za sobą 


konieczność posłużenia się dyrektywą CV Calbo Ins). 


Złożone operacje na tekście 


Opisane dotychczas dyrektywy umożliwiają nie tylko tworzenie, 
ale również praktycznie dowolne przetwarzanie dokumentów. Tym 
niemniej w pewnych przypadkach przydatne są operacje dotyczą- 
ce większych fragmentów tekstu, takie jak np. przestawianie 
lub kopiowanie grup sąsiadujących wierszy albo wyszukiwanie 
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lub zmiana określonych słów lub fraz. Do takich celów służą 
omówione tu dyrektywy blokowe. 


dyrektywa "QF 


Po wykonaniu tej dyrektywy na ekranie pojawia się napis 


Find: 


stanowiący zapytanie o frazę, która ma być wyszukana w tek— 
ście. Fraza taka składa się z dowolnej porcji znaków zakoń- 
czonej znakiem Enter. Bezpośrednio po naciśnięciu klawisza 


Enter na ekranie pojawia się zapytanie 
Options: 


na które należy odpowiedzieć określeniem trybu poszukiwania 
frazy. W najczęściej spotykanym przypadku poszukiwanie fra- 
zy począwszy od pozycji wyróżnionej przez kursor w kierunku 
końca tekstu, wystarczy w odpowiedzi na zapytanie nacisnąć 
klawisz Enter. Jeśli poszukiwana fraza znajduje się w tekście, 
to kursor zostanie umieszczony bezpośrednio za ostatnim zna 
kiem znalezionej frazy. Jak łatwo się domyślić, użycie dyrek- 
Ływy "QF nie jest niczym innym jak posłużeniem się dyrektywą 
edytora kontekstowego. Należy nadmienić, że wśród opcji okreś- 
lających tryb poszukiwania frazy znajdują się m.in.: 


B poszukuj wstecz, 
W ogranicz Się do pełnych słów, 
U utożsamiaj litery duże i małe. 


Ponadto można posłużyć się opcją mającą postać liczby. W ta- 
kim przypadku, dla liczby n, poszukiwanie dotyczy n-tego 
wystąpienia poszukiwanej frazy. 


dyrektywa "GA 


Dyrektywa "GA stanowi rozwinięcie dyrektywy "QF. Bezpośrednio 
po jej użyciu także pojawia się zapytanie o poszukiwaną frazę, 
ale po naciśnięciu kończącego się klawisza Enter pojawia się 


zapytanie 
Replace with: 


na które należy odpowiedzieć frazą, która ma zastąpić frazę 
podaną po Find: . Po tej drugiej frazie, także zakończonej 


naciśnięciem klawisza Enter, pojawia się zapytanie o opcje 
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określające tryb poszukiwania frazy. Poza opcjami już wymie-— 


nionymi dopuszczalne są tu także opcje: 


G zastępuj w całym tekście Ca więc nie od pozycji wyróż- 
nionej przez kursor, lecz od pierwszego znaku tekstu), 


N zastępuj bezwarunkowo. 


Jeśli użyto opcji N, to wykonanie dyrektywy przebiega aż do 
wykonania wszystkich zastąpień. Jeśli nie użyto tej opcji, to 
po każdym znalezieniu poszukiwanej frazy jest wyświetlane za- 
pytanie czy należy dokonać zastąpienia. Odpowiedź Y stanowi 
zgodę na zastąpienie. Dowolna inna odpowiedź powoduje zanie— 
chanie proponowanego zastąpienia i podjęcie poszukiwania 


następnego wystąpienia zastępowanej frazy. 


dyrektywa "KB 


Wykonanie dyrektywy ©KB powoduje oznaczenie miejsca w tekście 
jako początku bloku. Zdefiniowanie bloku wymaga dodatkowo 
użycia dyrektywy *KK. 


dyrektywa *KK 


Wykonanie dyrektywy "KK powoduje oznaczenie miejsca w tekście 
jako końca bloku. Dyrektywa ta wraz z dyrektywą "KB definiuje 
blok. Z chwilą zdefiniowania bloku ciąg znaków tekstu znajdu- 
jący się pomiędzy pozycjami kursora w chwili wykonywania dy- 
rektyw ©KB i CKK zostaje wyróżniony. Opisane dalej dyrektywy 
grupy "Kx będą dotyczyć tej właśnie partii tekstu. 


dyrektywa "KC 


Wykonanie dyrektywy *KC powoduje skopiowanie bloku wyróżnio- 
nego przez dyrektywy "©KB i OKK na pozycję przed znak wyróż— 
niony przez kursor. Po tej operacji kursor zostanie ustawio- 


ny na pierwszym znaku skopiowanego bloku. 


dyrektywa "KV 


Wykonanie dyrektywy "KV powoduje przeniesienie bloku wyróż- 
nionego przez dyrektywy "KB i ©KK na pozycję przed znak 
wyróżniony przez kursor. Po tej operacji kursor zostanie 
ustawiony na pierwszym znaku przeniesionego bloku, który 


w swojej nowej pozycji pozostanie blokiem wyróżnionym. 


666 


dyrektywa *KY 


Wykonanie dyrektywy *KY powoduje usunięcie wyróżnionego bloku. 


dyrektywa "KH 


Wykonanie dyrektywy "KH powoduje usunięcie wyróżnienia bloku. 


dyrekRtywa "KR 


Wykonanie dyrektywy "KR powoduje wstawienie w miejscu wyróż- 
nionym przez kursor, tekstu znajdującego się w zbiorze dysko- 


wym. Bezpośrednio po wydaniu tej dyrektywy na ekranie monito- 


ra pojawia się zapytanie 
Read Block From File: 


o nazwę włączanego zbioru. 


dyrektywa "KW 


Wykonanie dyrektywy *©KW powoduje wyprowadzenie do zbioru dys— 
kowego bloku wyróżnionego przez dyrektywy ©KB i *KK. Bezpo- 
średnio po wydaniu tej dyrektywy, na ekranie monitora pojawia 
się zapytanie 


Write Block To File: 


o nazwę zbioru, w którym zostanie umieszczony wyróżniony blok. 
Jeśli zbiór taki istnieje, to przed umieszczeniem w nim bloku 


zostanie usunięty, a następnie utworzony ponownie. 


Dyrektywy pomocnicze 


dyrektywa "N 


Wykonanie dyrektywy *©N powoduje wstawienie w miejscu wyróż— 
nionym przez kursor pary znaków cr-lf, tj. wstawienie nowe- 


go wiersza. 


dyrektywa ©%I 


Wykonanie dyrektywy "I Calbo Tab) powoduje przesunięcie kur- 
sora do najbliższej pozycji tabulacyjnej. Pozycją tą jest 


najbliższa kolumna o numerze 1 + 8 * n (1,9,17,25, ...). 
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dyrektywa ©L 


Wykonanie dyrektywy ©L powoduje powtórzenie ostatniej z dy- 
rekŁyw QF 1 GA. 


dyrektywa "U 


Wykonanie dyrektywy U powoduje zaniechanie wykonywania do- 
wolnej dyrektywy ćw szczególności ©Q0F i GAV. 


dyrektywa *P 


Wykonanie dyrektywy 0P powoduje, że następujący bezpośrednio 
za nią znak jest umieszczany w tekście, nawet jeśli jest ele- 
mentem dyrektywy. W Szczególności wprowadzenie, podczas wyko- 
nywania dyrektywy CQF, sekwencji znaków ©POMOP"J umożliwia 
identyfikację pary znaków końca wiersza. 


Przykład 
Wprowadzenie z klawiatury następującego ciągu znaków 


AQRSSSSS 


AQATP"MSCP"JeCcP"MCP"JsssssNGe 


Ce oznacza znak Enter, a s oznacza spację> powoduje przesu— 


nięcie całego tekstu poddawanego edycji o 5 kolumn w prawo. 


Zakończenie edycji 


W celu zakończenia edycji wystarczy wywołać główne menu i 
wybrać w nim pole File Cklawisz ALt-FD>, a następnie wybrać 
pole S CSave) albo W CWrite). W pierwszym przypadku nastąpi 
zaktualizowanie zbioru na dysku Cpołączone z utworzeniem 
zbioru z rozszerzeniem .BAKD, a w drugim utworzenie zbioru 


o wybranej nazwie. 


DODATEK C — Komunikaty 


Błędy programowe dzielą się na błędy wykrywane przez kompila— 
tor i błędy wykonywania programów. Wśród błędów wykonywania 
na szczególną uwagę zasługują błędy fatalne. Ich wystąpienie 
powoduje zaniechanie dalszego wykonywania programu. Reakcja 
taka występuje także i w przypadku wystąpienia błędu wejścia- 
-wyjścia. Można jednak, w zasięgu dyrektywy <$I->, kontynuować 
program, którego wykonanie powoduje powstanie takiego błędu. 


Błędy wykrywane przez kompilator 


1 Brak pamięci 
COut of memory) 

2 Spodziewano się identyfikatora 
CIdentifier expected) 

3 Nieznany identyfikator 
CUnknown identifierD 

4 Powtórzony identyfikator 
CDuplicate identifier. 

5 Niewłaściwy znak 
CSyntax error. 


Błąd w liczbie rzeczywistej 


|) 


CError in real constant) 
7 Błąd w liczbie całkowitej 
CError in integer constant. 
8 Łańcuch przekracza wiersz 


CSŁring constant exceeds line) 
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9 Nadmierne zagnieżdżenie 
CToo many nested files) 
1O Nieoczekiwany koniec zbioru 
CUnexpected end of file) 
11 Za długi wiersz 
(Line too long. 
12 Spodziewano się identyfikatora typu 
CType identifier expected) 
13 Zbyt wiele otwartych plików 
CToo many open files) 
14 Błędna nazwa zbioru 
CInvalid file name) 
15 Brak takiego zbioru 
CFile not found) 
16 Brak miejsca na dysku 
CDisk full) 
17 Błędna dyrektywa 
CInvalid compiler directive) 
18 Za wiele zbiorów 
CToo many files) 
19 Nie zdefiniowano typu 
CUndefined type in pointer definition 
20 Spodziewano się identyfikatora zmiennej 
CVariable identifier expected) 
21 Błąd w deklaracji typu 
_€Error in type) 
22 Ża duży rozmiar struktury 
(Structure Łoo largeD. 
23 Typ bazowy typu mnogościowego poza zakresem 
CSet base type out of range 
24 Nie istnieją pliki plików 
CFile components may not be files) 
25 Niewłaściwy rozmiar zmiennej łańcuchowej 
CInvalid string length 
26 Niezgodność typów 
CType mismatch) 
27 Typ bazowy typu okrojonego nie jest typem porządkowym 
CInvalid subrange base type. 
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28 


29 


30 


31 


32 


33 


34 


35 


36 


37 


38 


39 


40 


42 


43 


414 


45 


46 


Puste okrojenie 


(Lower bound greater than upper bound) 
Spodziewano się Łypu porządk owego 
COrdinal type expected) 

Spodziewano się liczby całkowi tej 
(Integer constant expected) 
Spodziewano się literału 

CConstant expected) 

Spodziewano się liczby 

CInteger or real constant expected) 
Spodziewano się identyfikatora Łypu 
CType identifier expected) 

Błędny typ rezultatu funkcji 

CInvalid function result type) 
Spodziewano się nazwy etykiety 

CLabel identifier expected) 
Spodziewano się słowa kluczowego begin 
CBEGIN expected) 

Spodziewano się słowa kluczowego end 
CEND expected) 

Spodziewano się wyrażenia całkowitego 
CInteger expression expected) 
Spodziewano się wyrażenia porządkowego 
COrdinal expression expected) 
Spodziewano się wyrażenia logicznego 
CBoolean expression expected) 
Niezgodność operatora i jego argumentu 
COperator type do not match operator) 
Błąd w wyrażeniu 

CError in expression) 

Niedozwolone przypisanie 

CIllegal assignment) 

Spodziewano się identyfikatora pola 
CField identifier expected) 

Zbiór wynikowy za duży 

CObject file too large) 


Nie rozstrzygnięte odwołanie zewnętrzne 


CUndefined external 
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47 Błędny zbiór wynikowy 
CInvalid object file record) 
48 Za duży rozmiar segmentu kodu 
(Code segment too large) 
49 Za duży rozmiar segmentu danych 
(Data segment too large. 
50 Spodziewano się słowa kluczowego do 
CDO expected) 
51 Niewłaściwa deklaracja etykiety publicznej 
CInvalid PUBLIC definition. 
52 Niewłaściwa deklaracja obiektu zewnętrznego 
CInvalid EXTERN definition) 
53 Za wiele deklaracji zewnętrznych 
CToo many EXTERN definitions) 
54 Spodziewano się słowa kluczowego of 
COF expected) 
55 Spodziewano się słowa kluczowego interface 
CINTERFACE expected) 
56 Niewłaściwe odwołanie przemieszczalne 
CInvalid relocatable reference 
57 Spodziewano się słowa kluczowego then 
CTHEN expected) 
58 Spodziewano się słowa kluczowego to albo downte 
CTO or DOWNTO expected) 
59 Brak deklaracji uzupełniającej 
CUndefined forward) 
60 Zbyt wiele procedur 
CToo many procedures) 
61 Niewłaściwa konwersja 
CInvalid typecast) 
62 Dzielenie przez zero 
(Division by zero. 
63 Niewłaściwy typ plikowy 
CInvalid file type) 
64 Niewłaściwy argument procedury Read, Readln, Write, ' 
Writeln 
CCannot Read or Write variables of this type) 
65 Spodziewano się zmiennej typu pointer 
CPointer variable expectedD 
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66 Spodziewano się zmiennej łańcuchowej 
CString variable expected) 

67 Spodziewano się wyrażenia łańcuchowego 
(String expression expected) 

68 Deklaracje modułów tworzą cykl 
CCircular unit reference) 

69 Niezgodność nazwy modułu w deklaracji i w zbiorze 
GUnit name mismatch) 

70 Nieaktualna wersja modułu 
CUnit version mismatch) 

71 Powtórzona nazwa modułu 
CDuplicate unit name) 

72 Błędna struktura zbioru modułowego 
CUnit file format error) 

73 Spodziewano się słowa kluczowego implementation 
CIMPLEMENTATION expected) 

74 Niezgodność wyróżnika instrukcji case i etykiety wyboru 
(Constant and case types do not match) 

75 Spodziewano się zmiennej rekordowej 
CRecord variable expected) 

76 Niewłaściwa wartość danej reprezentowanej przez literał 
(Constant out of range) 

77 Spodziewano się zmiennej plikowej 
CFile variable expected) 

78 Spodziewano Się wyrażenia wskazującego - 
(Pointer expression expected) 

79 Spodziewano się wyrażenia całkowitego albo rzeczywistego 
CInteger or real expression expected) 

80 Etykieta poza zasięgiem instrukcji goto 
(Label not within current block) 

81 Powtórne wystąpienie takiej samej etykiety 
CLabel already defined) 

82 Brak etykiety 
CUndefined label in preceding statement part) 

83 Niewłaściwy argument operatora wskazania 
CInvalid argument) 

84 Spodziewano się słowa kluczowego unit 
CUNIT expected) 


22 -— Turbo Pascal 5.0 673 


85 


86 


88 


90 


91 


92 


93 


94 


95 


96 


97 


98 


99 


100 


101 


102 


103 


104 
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Spodziewano się znaku ; 
C";' expected) 
Spodziewano się znaku : 
CC": " expected) 
Spodziewano się znaku , 


C','' expected) 
Spodziewano się znaku C 


C'"C'" expected) 

Spodziewano się znaku 2 

C'J' expected) 

Spodziewano się znaku = 

C'=" expected) 

Spodziewano się znaku := 

C':=' expected) 

Spodziewano się znaku [ albo 

C. C"L' or 'C.' expected) 
Spodziewano się znaku ] albo .) 

C"]" or ".2' expected) 

Spodziewano się znaku . 

C".' expected) 

Spodziewano się znaku 

C"'..'' expected) 

Zbyt wiele nazw zmiennych 

CToo many variables) 

Niewłaściwa zmienna sterująca 
CInvalid FOR control variableD 
Spodziewano się zmiennej całkowitej 
CInteger variable expected) 

Zmienne plikowe nie mogą być inicjowane 
(Files are not allowed hereD 
Niewłaściwy rozmiar danej łańcuchowej 
(String length mismatch) 

Niewłaściwe uporządkowanie pól 
CInvalid ordering of fieldsD 
Spodziewano się łańcucha 

(String constant expected) 
Spodziewano się zmiennej całkowitej albo rzeczywistej 
CInteger or real variable expectedD 
Spodziewano się zmiennej porządkowej 


COrdinal variable expectedD 
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106 


107 


113 


114 


117 


120 


121 


122 


123 


124 


126 


127 


128 


129 


130 


Błąd w instrukcji kodowej 

CINLINE error) 

Spodziewano się wyrażenia typu char 
(Character expression expected) 

Za duży program 

CToo many relocation items) 

Etykieta wyboru spoza dozwolonego zakresu 
CCASE constant out of range) 

Błędny znak na początku instrukcji 


CError in statement 


Nie wolno wywoływać procedury do obsługiwania przerwań 


CCannot call an interrupt procedure) 

Użyto konstrukcji, która wymaga koprocesora arytmety- 
cznego 

CMust be in 8087 mode to compile this) 

Nie ma instrukcji pod takim adresem 

CTarget address not found) 

Niedozwolone włączenie zbioru 

CInclude files are not allowed here) 

Spodziewano się słowa kluczowego nil 

CNIL expected) 

Niewłaściwy kwalifikator 

CInvalid qualifierD) 

Niewłaściwe odwołanie do zmiennej 

CInvalid variable reference) 

Przepełniona tablica identyfikatorów 

CToo many symbols) 

Za duża część wykonawcza programu 

CStatement part too large) 

Parametry procedury, które są typu plikowego muszą 
wystąpić na liście poprzedzonej słowem kluczowym var 
CFiles must be var parameters) 

za dużo symboli warunkowych 

CToo many conditional symbols) 

Niepoprawna dyrektywa strukturalna 

CMisplaced conditional directive) 

Brak dyrektywy ENDIF 

CENDIF directive missing) 

Błąd w niejawnej dyrektywie definiującej 

CError in initial conditional defines) 
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131 Niezgodność nagłówków w deklaracji zapowiadającej i uzu- 
pełniającej 
CHeader does not match previous definition) 

132 Bardzo poważny błąd dyskowy 
(Critical disk error) 

133 Nieaktualny zbiór z rozszerzeniem . MAP 
COld map file 

134 Żle zakończone wyrażenie 
CExpression incorrectly terminated) 

135 Zła specyfikacja wzorca 
CInvalid format specifierD) 

136 Odwołanie w przód 
CInvalid indirect reference) 

137 Niewłaściwe miejsce dla zmiennej strukturalnej 
CStructured variables not allowed here) 

138 Biblioteka TURBO. IPL nie zawiera modułu System 
CCannot evaluate without System unit 

139 Niedostępny symbol 
CCannot access this symbol) 

140 Niepoprawna operacja zmiennopozycyjna 
CInvalid floating-point operation) 

141 Program nakładkowany nie może być kompilowany do pamięci 
(Cannot compile overlays to memoryJ 

142 Spodziewano się zmiennej procedurowej 
(Procedure or function variable expectedJ 

143 Bliskie odwołanie do procedury, która powinna być daleka 
CInvalid procedure or function reference) 

144 Próba nakładkowania procedury skompilowanej bez <$0+> 
(Cannot overlay this unit 

145 Za duży poziom zagłębień 


CToo many nested scopes.) 


Błędy wejścia-wyjścia 


2 Nie znaleziono zbioru 
CFile not found) 

3 Nie znaleziono Ścieżki 
CPath not found. 

4 Zbyt wiele otwartych plików 


CToo many open files) 
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12 


15 


16 


17 


100. 


101 


102 


103 


104 


105 


106 


zabroniony dostęp 

(File access denied) 

Niewłaściwy uchwyt 

CInvalid file handle) 
Niewłaściwy dostęp 

CInvalid file access mode) 
Niewłaściwy numer stacji 
CInvalid drive number) 
Niewykonalne usunięcie katalogu 
(Cannot remove current directory) 
Niewykonalne przemianowanie 
(Cannot rename accross drives) 
Błąd odczytu 

(Disk read error. 

Błąd zapisu 

(Disk write error) 

Brak skojarzenia pliku ze zbiorem 
CFile not assigned) 

Plik nie otwarty 

(File not open) 

Plik nie otwarty do wprowadzania 
(File not open for input) 

Plik nie otwarty do wyprowadzania 
(File not open for output) 

Dana wejściowa nie jest liczbą 


CInvalid numeric format) 


Błędy krytyczne 


150 


151 


152 


153 


154 


Dysk zabezpieczony przed zapisem 
CDisk is write protected) 
Nieznane urządzenie 

CUnknown unit) 

Stacja nie gotowa 

CDrive not ready) 

Nieznana dyrektywa 

CUnknown command) 

Błąd kontroli parzystości 

CCRC error in data) 
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155 Żle przygotowany parametr odwołania do stacji 
(Bad drive request structure length 
156 Błąd szukania na dysku 
(Disk seek error) 
157 Nieznany typ nośnika 
CUnknown media type) 
158 Nie znaleziono sektora 
CSector not found) 
159 Brak papieru w drukarce 
(Printer out of paper) 
160 Błąd wyprowadzania 
CDevice write fault) 
161 Błąd wprowadzania 
(Device read fault) 
162 Błąd sprzętowy 


CHardware error. 


Błędy fatalne 


200 Dzielenie przez zero 
(Division by zero) 
201 Błąd zakresu 
CRange check error) 
202 Przepełnienie stosu 
(Stack overflow error) 
203 Przepełnienie sterty 
CHeap overflow error) 
204 Niewłaściwa operacja na danej wskazującej 
CInvalid pointer operation) 
205 Nadmiar zmiennopozycyjny 
(Floating point overflow) 
206 Niedomiar zmiennopozycyjny 
(Floating point underf low) 
207 Niewłaściwa operacja zmiennopozycyjna 
CInvalid floating point operation) 
208 Nie zainstalowano zarządcy nakładek 
COverlay manager not installed) 
209 Błąd wprowadzenia nakładki 
COverlay file read error. 
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DODATEK D — Grafika BGI 


Przedstawiono wybrane deklaracje modułu Graph oraz podano 


program realizujący grafikę BGI. 
Przytoczone deklaracje oraz program opracowano za zgodą fir- 
my Borland International na podstawie zbiorów GRAPH. DOC i 


BGIDEMO. PAS, znajdujących się na dyskietkach dystrybucyjnych 


systemu Turbo Pascal 5.0. 


Turbo Pascal Version 5.0 
Graph Interface Unit 


Copyright CC) 1987,88 Borland International 


679 


<$D-,R-,S-—> 
unit Graph; 
interface 
const 


< GraphResult error return codes >» 


gr OK = O; 
grNolnitGraph = ——-l; 
grNotDetected = -—2, 
grFi leNotFound = -3 
grInvalidDriver = -Ą; 
grNoLoadMem = ——-5; 
grNoScanMem = —G; 
gr NoFloodMem = ——7; 
grFontNotFound = -8; 
grNoFontMem = _-o; 
grInvalidMode = -10; 
grError = -11; < generic error >» 
grIlOerror = -1G; 
grInvalidFont = -13; 
grInvalidFontNum = -14; 
grInvalidDeviceNum = —15; 


« Define graphics drivers > 


Detect 
CGA 
MCGA 
EGA 
EGA64 
EGAMono 
I BM8S51 4 
HercMono 
ATT400 
VGA 
PC3270 


< requests autodetection > 


RPOONOOBWMÓEO 


Q*' w. w. w. w. w. we wi. wo 


< Graphics modes for each driver > 


CGACO = 0; ( 380x200 palette O: 
LightGreen, LightRed, Yellow; 
1 page > 
CGAC1 = 1;  € 320x200 palette 1: 
LightCyan, LightMagenta, White; 
1 page > 
CGAC2 = 2;  « 320x200 palette 2: 
Green, Red, Brown; 
1 page > 
320x200 palette 3: 
Cyan, Magenta, LightGray; 
1 page » 
< 640x200 1 page > 
< 320x200 palette O: 
LightGreen, LightRed, Yellow; 
i page > 


li 
a 
a) 


CGAC3 


CGAHi 
MCGACO 


NU 
OR 


5680 


MCGAC1 


MCGAC2Z 


MCGAC3 


MCGAMed 
MCGAHi 
EGALo 
EGAHi 
EGA64Lo0o 
EGA64Hi 
EGAMonocHi 


HercMonoHi 


ATT400CO 


ATT400Ci1 


ATT400C2 


ATT400C3 


ATT4O0OOMed 
ATT4O0O0Hi 
VGALo 
VGAMed 
VGAHi 
PC3270OHi 
I BM851 4Lo 
I BM851 4Hi 
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<< Colors for 


Black 
Blue 
Green 
Cyan 

Red 
Magenta 
Brown 
LightGray 
DarkGray 
LightBl ue 


LightGreen 


LightCyan 
LightRed 


LightMagenta 


Yellow 
Whi Łe 


W 


OO 


M 
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320x200 palette i: 

LightCyan, LightMagenta, White; 

1 page > 

320x200 palette 2: 

Green, Red, Brown; 

1 page > 

320x200 palette 3: 

Cyan, Magenta, LightGray; 

1 page > 

640x200 1 page > 

640x480 1 page > 

640x200 16 color 4 page >» 

640x350 16 color 2 page >» 

640x200 16 color 1 page >» 

640x350 4 color 1 page > 

640x350 64K on card, 1 page; 
256K on card, e page >» 

720x348 2 page > 

320x200 palette O: 

LightGreen, LightRed, Yellow; 

1 page >» 

320x200 palette 1: 

LightCyan, LightMagenta, White; 

1 page >» 

320x200 palette ©: 

Green, Red, Brown; 

1 page > 

320x200 palette 3: 

Cyan, Magenta, LightGray; 

1 page > 

640x200 1 page > 

640x400 1 page > 

640x200 16 color 4 page >» 

640x350 16 color 2 page > 

640x480 16 color 1 page >» 

720x350 1 page > 

640x480 256 colors > 

1024x768 256 colors > 


SetPalette and SetŁAllPalette > 


OWNOJAWNĘO 
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< Colors for 8514 Ło set standard EGA colors >» 


EGABI1 ack = 0; < dark colors >» 
EGABl ue = 1; 

EGAGreen = 2; 

EGACyan = 3; 

EGARed = 4; 

EGAMagenta =5; 

EGABrown = 20; 

EGALi ghtgray = 7; 

EGADar kgray = 56; < light colors > 
EGALi ghtbl ue = 57; 

EGALi ghtgreen = 58; 

EGALightcyan = 50; 

EGALightred = 60; 

EGALi ghtmagenta = 61; 

EGAYel low = 62; 

EGAWhi te = 63; 


< Line styles and widths for Get/SetLineStyle >» 


Sol i dLn 

DottedLn 
CenterLn 
DashedLn 
UserBitLn 


EMMI 
WWO 


< User-defined line style >» 


NormWwidth 
ThickWidth 3; 


Un 
= 


< Set./GetlextStŁyle constants > 


Def aultFont = 0; < 8x8 bit mapped font > 
TriplexFont = 1; < Stroked fonts > 

Smal lFont = 2; 

SansSerifFont = 3; 

GothicFont = 4; 

HorizDir =0; <« Left to right > 

Ver tDir = 1; < Bottom to top > 
UserCharSize = O; <« User-defined char size > 


<« Clipping constants: > 
ClipOn = true; 
ClipOff = false; 


< Bar3D constants: >» 
TopOn = true; 
TopOff = false; 


< Fill patterns for Get/SetFillStyle » 


EmptyFill = O; < fills area in background color >» 
SolidFill = 1, < fills area in solid fill color » 
LineFill = 2; ( -—-—- Fill > 
LŁSlashFill = 3; (£ /// fill > 


682 


SlashFill = 4; (. /// fill with thick lines > 
BkSlashFill = 5; < MAill with thick lines » 
LtBkSlashFill = 6; (€ MA11l » 

HatchFill = 7, << light hatch fill > 
XHatchFill = 8.  € heavy cross hatch fill > 
InterleaveFill = 9; ( interleaving line fill > 
wideDotFill = 10; (€ widely spaced dot fill > 
CloseDotFill = 11; (€ closely spaced dot fill >» 
UserFill = 12; «€ user defined fill >» 


< BiŁB1tŁ operators for Putlmage > 


NormalPut 
xor Put 
orPut 
andPut 
notPut 


< Horizontal 


LeftText 
Center Text 
Right Text 


BottŁomlIext 
< Center Text 
Toplext 


CONnst 
MaxColors = 


type 
PaletteType 


= 0; < MOV » 
= 1; < XOR >» 
= 2; < OR > 
= 3; < AND > 
= 4; < NOT > 


and vertical justification 
for SetTextJustify >» 


O; 
1; 
e; 
O; 
1; already defined above > 
2; 
15; 
= record 
Size : byte; 
Colors : arrayl[O..MaxColors] of shortint 
end; 


LineSettingsType = record 


LineStyle : word; 


TextSettingsType = record 


Pattern : word; 
Thickness : word 
end; 
Font : word; 
Direction : word; 
CharSize : word; 
Horiz : word; 
Vert : word 
end; 


< Pre-defined fill style >» 
FillSettingsType = record 


Pattern : word; 
Color : word 
end; 


< User defined fill style > 
FillPatternlIype = array[1..8] of byte; 
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PointType = record 
X. Y integer 
end; 
ViewPortType = record 
xd, yl, xe, ye integer; 
Clip boolean 
end; 
ArcCoordsType = record 
Xx,Y integer; 
Xstart, Ystart integer; 
Xend, TYend integer 
end; 


C IBBOGERMIAZEKKKIKKRIKKKKKAKIKKAIERIIKK KKK KRK KKKKE WKK WWIE ILRWEKIWEKIEKIJ) 


C IWWBEBBGGEOELLAEOERAAAAOQOEEKIIEDEIIED 
Ce Turbo Pascal 5.0 30) 
€* Borland graphics demo %*%) 
C WEAELIEIIAOOERIEKKERERIELIAIEKIEJED) 


us s 
trtŁt, Dos, Graph; 
const | 
Margin byte = 12; 
Code : integer = O; 


€ The names of the various device drivers supported > 
Dr i ver Names array[O..1O0] of stringl[8] = 
C”Detect", '"CGA', ”MCGA”, "”EGA>, 
"EGA64”, "EGAMono', "RESERVED", 
"HercMono”, "ATT400?, *VGA, ”PC3270'2; 


<« The five fonts available > 


Fonts arraylO..4] of stringl[1i3] = 
C'DefaultFont", "'TriplexFont>", 
"SmallFont"”, "SansSerifFont", 'GothicFont'D; 


< The five predefined line styles supported > 
LineStyles array[O..4] of string[9] = 
C"SolidLn*, 'DottedLn", '"CenterLn', 
"DashedLn*”, "UserBitLn*D; 


< The twelve predefined fill styles supported > 
FilliStyles array(O..11] of string[i4] = 


C'EmpŁyFi111', *"SolidFill'", '"LineFill>, 


"LtŁSlashFill>*, 


"SlashFill"','BkSlashFill', 


"LtBkSlashFill>", 


"”HatchFill", 


"XHatchFill"” ,*”InterleaveFill>, 
"WideDotFill'", "CloseDotFill"'>; 


< The tŁwo text directions available >» 


TextDi rect array[O..1] of stringl8] = 
C*”HorizDir”, *VertDir"'D; 
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Status report after InitGraph 


Graphics device : EGA 

Graphics node + EGAHi 

Screen resolution : (0, 0,639, 349) 
Current vieu port : (0, 0,639, 349) 
Clipping « ON 

Current position  : (0, 0) 
Palette entries +: 16 


GetMaxColor . 15 
Current color 15 
Line style : SolidLn 
Line thickness 1 


Current fill style : SolidFill 
Current fill color : 15 


Current font : DefaultFont 
Text direction . HorizDir 
Character size 1 


Horizontal justify : LeftText 
Uertical justify  : Toplext 


Esc aborts or press a key... 


SetAspectRat io denonstrat ion 
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< The Horizontal text justifications available > 


HorizJust : arraylO..2] of stringliO] = 
C'LeftText", "CenterlIext", 'RightText"'D; 
<« The vertical text justifications available > 
VertJust : array[O..2] of string[1O] = 
C*"Bottomlext", '"CenterlIext", 'Toplext'D; 
var 
GraphDriver : integer; 
« the graphics device driver >» 
GraphMode : integer; 
« the graphics mode value > 
MaxX, MaxyY  : word; 
< the maximum resolution of the screen > 
ErrorCode : integer; 
< reports any graphics errors »> 
MaxColor : word; 


< the maximum color value available > 
OldExitProc : pointer; 
< saves exit procedure address > 


<$F+> 
procedure MyExitProc; 
becin 
xitProc := OldExitProc; 
< restore exit procedure address > 
CioseGraph; 


< shut down the graphics system > 
end; € MyExitProc >» 
<$F-> 


procedure Initialize; 
<« Initialize graphics and 
report any errors that may occur > 
begin 
< when using Crt and graphics, 
turn off Crt's memory-mapped writes > 
DirectVideo := False; 
OldExitProc := ExitProc; 
< save previous exit proc > 
ExitProc := ©MyExitProc; 
<€ insert our exit proc in chain > 


GraphDriver := Detect; 
InitGraphCGraphDriver, GraphMode, "2; 
<« activate graphics > 
ErrorCode := GraphResult; 
<« error ? >» 
if ErrorCode <> grOk then begin 


WritelnC "Graphics error: ”", GraphErrorMsgCErrorCodeDJ2; 
HaltC1D 

end; 

Randomize; 
< init random number generator > 

MaxColor := GetMaxColor; 


< get the maximum allowable drawing color > 
MaxX := GetMaxX; 
< get screen resolution values > 
Max! := GetMaxY 
end; Ć Initialize > 
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Esc aborts or press a key... 


function Int2StrC(L : LongInt> : string; 
< Converts an integer to a string 
for use with OutText, OutTextXY > 


var 
S : string; 
begin 
StŁrcL, SJ); 
Int2Str := S 
end; € InteStr > 


function RandColor : word; 
<€ Returns a Random non-zero color value 
that is within the legal color range 
for the selected device driver and graphics mode. 
MaxColor is set to GetMaxColor by Initialize > 
begin 
RandColor := Random( MaxColorJD +1 
end; € RandColor > 


procedure DefaultColors; 
< Select tŁhe maximum color in the Palette 
for the drawing color > 
begin 
Set Color ( MaxColorD 
end; € DefaultColors > 


procedure DrawBorder ; 
<€ Draw a border around the current view port » 
var 
ViewPort : ViewPortType; 
begin 
DefaultColors; 
SetLineStyle(SolidLn, O, Normwidth>; 
GetViewSettings(ć ViewPortD; 
with ViewPort do 
RectangleCO, O, x2-xi, y2-y1) 
end; Ć€ DrawBorder > 


procedure FullPort; 

< Set the view port to the entire screen > 
begin 

SetViewPortCO, O, MaxX, MaxY, ClipOnD> 
end; € FullPort > 


procedure MalnWindowć( Header : stringD; 

< Make a default window and view port for demos > 
begin 

Def aultColors; 

ClearDevice; 

SetTextStyleC(DefaultFont, HorizDir, 10; 

SetTextJustifyC(Center Text, ToplIextD; 

FullPort; 

OutTextXYCMaxX div 2, 2, Header); 


< draw main window > 


SetViewPortCO, TextHeightC "M'D+4, MaxX, 
MaxY-CTextHeightC'M'D+42, CLlipOnJ; 
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SeturiteMode denonstrat ion 


Esc aborts or press a key... 


Calor denonstration 


2 3 4 5 
6 7 8 3 10 
11 12 13 14 15 


Esc aborts or press a key... 


DrawBorder ; 
€ put a border around it, 
move the edges in 1 pixel on all sides 
so border isn't in the view port >» 
SetViewPortC1, TextHeightC "M'D+5, 
MaxX-1, MaxY-CTextHeightC”M'0+52, ClipoOn) 
end; Ć MainWindow > 


procedure StŁatusLineClMsg : string); 
< Display a status line at the bottom of the screen > 
begin 
FullPort; 
DefaultColors; 
SetTextStŁyleCDefaultFont, HorizDir, 10; 
SetTextJustifyCCenter Text, TIoplext); 
SetLineStyleCSolidLn, O, NormWwidth); 
SetFillStŁyleCEmptyFill, OD; 
BarCO, MaxY-CTextHeightC *"M'0+40), MaxX, MaxYD; 
«€ erase old status line > 
Rectangle(O, MaxY-CTextHeightC *'M')+40, MaxX, MaxYJD; 
OQutTexŁXYCMaxX div 2, MaxY-CTextHeightC "M'D+22, MsgJ; 
«€ go back Ło the main window > 
SetVvViewPortCi, TextHeightC 'M'D+5, 
MaxX-1, MaxY-CTextHeightC *M?D0+502, ClipOn)J) 
end; «€ StatusLine > 


procedure PrintScreenCOver : byteJ); 
forward; 


procedure WaitlIoGo; 


< Wait for the user to abort the program or continue > 
const 


Esc = ŹŻ27; 
var 
Ch : char; 
begin 
StatusLineC”Esc aborts or press a key...'D; 


case ReadKey of 
Esc : HaltCODJ; 


> begin 
Ch := ReadKey; 
case Ch of 
"e'..”3' : PrintSereenCOrdCCh> — OrdC'O?3D0D; 
> +: PrintScreenC12 
end 
end 
end; 
ClearDevice 


end; € WaitlIoGo > 


procedure GetDriverAndModel var DriveStr, ModeStr : string); 
< Return strings describing the current device driver 
and graphics mod for display status report » 


begin 
DriveStr := DriverNames([(GraphDriver ]; 
GraphMode := GetGraphMode; 
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alette denonstrat ion 


+ 


Esc aborts or press a key... 


— — Esc aborts or press a key... 


case GraphDriver of 


CGA 


MCGA 


EGA 


EGAG64 


HercMono 
EGAMono 
PC3270 
ATT400 


VGA 


end € case » 


case GraphMode of 


CGACO : ModeStr := — "CGACO'; 
CGAC1 : ModeStr := "CGAC1'; 
CGAC2 : ModeStr := '"CGACe'; 
CGAC3 : ModeStr := "CGAC3'; 
CGAHi : ModeStr := "CGAHLi' 
end; « case > 
case GraphMode of 
MCGACO : ModeStr := "MCGACO; 
MCGACi1 : ModeStr := "MCGAC1>?; 
MCGAC2 : ModeStr := "MCGAC2>; 
MCGAC3  : ModeStr := '"MCGACS; 
MCGAMed : ModeStr := '"MCGAMed'; 
MCGAHi : ModeStr := '"MCGAHi' 
end; ( case > 
case GraphMode of 
EGALo : ModeStr := "EGALo'; 
EGAHi : ModeStr := "EGAHi" 
end; 
case GraphMode of 
EGA64Lo : ModeStr := "EGAG4Lo' ; 
EGA64Hi : ModeStr := "EGA64Hi" 
end; € case > 
ModeStr := '"HercMonoHi'"; 
ModeStr := "EGAMonoHi*; 
ModeStr := ”PC3270Hi'; 
case GraphMode of 
ATT400CO0  : ModeStr := "ATT400C0O'; 
ATT400C1  : ModeStr := "ATI400C1'; 
ATT400C2  : ModeStr := "ATT400Ce; 
ATT400C3  : ModeStr := ”ATT400C3'; 
ATT40OMed : ModeStr := "ATT4OOMed"' 
ATT4O00Hi : ModeStr := "ATTI400Hi" 
end; € case >» 
case GraphMode of 
VGALo : ModeStr := ”"VGALo'; 
VGAMed : ModeStr := ”VGAMed' ; 
VGAHi  : ModeStr := "VGAHi* 


end ( case > 


end; «€ GetDriverAndMode > 


procedure ReportStatus; 
< Display the status of all query functions 
after InitGraph > 


const 
X = 10; 

var 
ViewlInfo ViewPortType; 

< parameters for inquiry procedures > 

Linelnfo LineSettingsType; 
FillInfo FillSettingslIype; 
Textlnfo TextSettingsType; 
Palette PaletteType; 
Dr i verStr string; 
ModeStr string; 
Y word; 
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Getlnage / PutInage Denonstrat ion 


Esc aborts or press a key... 


Randon Bars 


Esc aborts or press a key... 


procedure WriteOutC(S : string); 


< Write out a String and increment to next line > 


begin 
Out TextŁXYCX, Y, SD; 
IncCY, TextHeightC *"M'D>+2) 
end; € WriteOut >» 


begin € ReportStatus > 
GetDriverAndModeć DriverStr, ModeStrD; 
< get current settings > 
GetViewSettingsCViewiInfo); 
GetLineSettingsCLinelnfo); 
GetFillSettingsCFillInfo.; 
Get TextSettingsC TextInfo); 
GetPaletteC(Palette); 


Y :=4; 
MainWindowC "SŁatus report after InitGraph'D; 
SetTlextJustifyCLeftText, Toplext); 


WriteOutC "Graphics device : * + DriverStrD; 
WriteOutćl "Graphics mode : * + ModeStrJ; 
WriteOutC 'Screen resolution : CO, O,” + 


Int2StrC(GetMaxXD + ”, ” + InteStrCGetMaxYD)+*0'); 
with ViewInfo do begin 


WriteOutC Current view port : C' + 
Inte2StrCxiD + ”, ” + InteStrCy1D + ”,' + 
Int2StrlCx2> + ”, ” + InteStrCy2). + "20; 
if ClipOn then 
WriteOutC 'Clipping : ON?3D 
else 
WritŁeOutC'Clipping : OFF*D 
end; 
WriteOutC "Current position : ©” + 
Int2eStrC(GetXD> + ”, ” + Int2StrCGetYD> + "270; 
WriteOutC 'Palette entries : * + InteStrCPalette.Size)); 
WriteOutC ' GetMaxColor : * + Int2StrCGetMaxColor»D; 
WriteOutC "Current color : * + Int2StrCGetColorJ>D; 
with Linelnfo do begin 
WriteOutC "Line style > + 
LineStylesiLineStyle); 
WriteOutC "Line thickness : + Int2StrC ThicknessJ3) 
end; 
with FillInfc do begin 
WriteOutC "Current fill style : ” + FillStylesitPattern1D; 
WriteOCutC "Current fill color : ” + Int2StrCColorD) 
end; 
with TextInfo do begin 
WriteOutC "Current font : ” + FontslIFont]D; 
WriteOutC' Text direction :” + 
TextŁDirect[Direction]D; 
WriteOutC "Character size : * + Int2StrCCharSizeJ)D; 
WriteOutC "Horizontal justify : ” + HorizJust[Horiz1D; 
WriteOutC "Vertical justify » + VertJust[Vert]JD 
end; 
Wai ŁTOoGo 


end; Ć ReportStatus » 
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Bar / Rectangle denonstration 


These are 2D bars ! 


| 


Ja 


Esc aborts or press a key... 
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procedure AspectRatioPlay; 
< Demonstrate SetAspectRatio command > 
var 


Viewlnfo : ViewPortType; 
Center X : integer; 
Center Y : integer; 
Radius : word; 

Xasp, Yasp : word; 

i : integer; 
RadiusStep : word; 

begin 


MainWindowC "SetAspectRatio demonstration'D; 
GetViewSettingslViewiInfo); 
with ViewiInfo do 


begin 
CenterX := Cxe-Xx1lD div 2; 
CenterY := Cye-ylD div G; 
Radius := 3%Cye2e-ylD div 50); 

end; 

RadiusStep := CRadlius div 300; 


CircleCCenterX, CenterY, Radius); 

GetAspectRatioC(Xasp, YaspD; 

for i :=5 1 to 30 do 

begin 
SetAspectRatioCXasp, Yasp+C(I*GetMaxXDD; 
CircleCCenterX, CenterY, RadiusD; 
DecC(Radius, RadiusStep)>; 


end; 

IncCRadius, RadiusStep30) ; 
for i :=5 1 to 30 do 

begin 


SetAspectRatioCXasp+C(I*GetMaxXD), YaspJ); 
if Radius > RadiusStep then 
Dec(Radius, RadiusStep); 

CircleC(CenterX, CenterY, Radius); 

end; 

SetAspectRatioC(Xasp, YaspD; 

wai ŁToGo; 

end; « AspectRatioPlay > 


procedure FillEllipsePlay; 

< Random filled ellipse demonstration > 
const 

MaxFillStŁyles = 12; (€ patterns O..11 > 
var 

MaxRadius : word; 

FillColor : integer; 
begin 

MainWindowC 'FillEllipse demonstration'D; 

StatusLineC'Esc aborts or press a key'); 


MaxRadius := MaxY div 10; 
SetLineStŁyleć(SolidLn, O, Normwidth); 
repeat 

FillColor := RandColor; 


SetColorCFi11Color.; 
SetFillStŁyle(Random(MaxFillStyles), FillColorD; 


FillEllipselRandomC(MaxXD>, RandomCMaxYJ, 
Random( MaxRadius)>, Random MaxRadi usJ); 
until KeyPressed; 
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WaitToGo; 
end; € FillEllipsePlay » 


procedure SectorPlay; 
< Draw random sectors on the screen >» 


const 

MaxFillStyles = 12; < patterns O..li >» 
var 

MaxRadius : word; 

FillColor : integer; 

EndAngle : integer; 
begin 


MainWindowC Sector demonstration'D; 
StatusLineC'Esc aborts or press a key'); 


MaxRadius := MaxY div 1O; 

SetLineStyleCSolidLn, O, NormWwidth); 

repeat 
FillColor := RandColor; 
SetColorCFil1lColor.; 
SetFillStyleCRandomCMaxFillStyles), FillColorD; 
EndAngle := Random( 36O0D ; 


SectorClRandom( MaxX0, RandomC(MaxYD, 
RandomC(EndAngle., EndAngle, 
RandomC MaxRadius>, RandomC MaxRadiusJD); 
until KeyPressed; 
Wadi ŁToGo; 
end; « SectorPlay 2> 


procedure WriteModePlay; 

< Demonstrate the SetWriteMode procedure for XOR lines > 
const 

DelayValue = 50; << milliseconds to delay > 


var 
Viewlnfo : ViewPortType; 
Color : word; 
Left, Top : integer; 
Right, Bottom : integer; 
Step : integer; € step for rectangle shrinking > 
begin 


MainWindowC 'SetWriteMode demonstration"'D; 
StatusLineC'Esc aborts or press a key'D; 
GetViewSettingsCViewlnfoD; 


Left := O; 
Top := O; 
with ViewInfo do 
begin 
Right := x2-—x1; 
Bottom := ye-yl; 
end; 
Step := Bottom div 50; 


SetColor CGetŁMaxColor>; 
LineCLeft, Top, Right, Bottom; 
LinećLeft, Bottom, Right, Top); 
SetWr i ŁeMode(l XORPut) ; 


repeat 
LineClLeft, Top, Right, Bottom; 
LinelLeft, Bottom, Right, Top); 
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PieSlice / GetAspectRatio denonstration 


Ihis is a pie chart 
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Esc aborts or press a key... 


RectangleC(Left, Top, Right, Bottom; 
DelayCDelayValue); 
LineC(Left, Top, Right, Bottom; 
LineC(Left, Bottom, Right, Top); 
RectangleC(Left, Top, Right, Bottom; 
if CLeft+Step < Right) and 
CTop+Step < Bottom then 
begin 
IncCLeft, Step); 
IncCTop, Step); 
DecCRight, Step; 
DeclBottom, Step); 


„end 
else 
begin 
Color := RandColor; 
SetColorCColor DJ; 
Left := O; 
Top := O; 
with ViewiInfo do 
begin 
Right := x2-xl; 
Bottom := y2"-yl; 
end; 
end; 


until KeyPressed; 
Set Wr i ŁeModeXl CopyPut); 
Wai ŁToGo; 

end; «€ WriteModePlay > 


procedure ITextPlay; 

< Demonstrate text. justifications and text sizing >» 
var 

Size : word; 

W, H, X, Y : word; 

ViewInfo : ViewPortType; 


begin 
MainWindowC 'SetTextJustify / SetUserCharSize demo"); 
GetViewSettingslViewInfo); 
with Viewilnfo do begin 
SetlextŁStyleCTriplexFont, VertDir, 40; 
Y := Cye2-ylD — ©; 
SetTextJustifyCCenter Text, Bottomlext0D ; 
OutTextŁXYCZ*TextWidthC "MD, Y, "Vertical'D; 
SetTextStyleCTriplexFont, HorizDir, 40; 
SetlextJustifyC(LeftText, ToplIext); 
OutTextŁXYC2*TextWidthC "MD, 2, "Horizontal >; 
SetTextJustifyC(Center Text, Center Text); 
X := Cx2-Xx1D div ©; 
Y := TextHeightC "HD; 
for Size := 1 to 4 do begin 
SetTextStŁyleCTriplexFont, HorizDir, Size); 
H := TextHeightC "M'D; 
W := TextWidthC 'M'>; 
IncCY, HD); 
OutTextŁXYCX, Y, "Size '+Int2StrCSize.) 


end; 
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LineRel / KoveRel denonstration 
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OdOdOddOOd COON OLC O OŁ 90094000000000009: 
 OOOOOJYOOSCOCĄŁ OOO G 909092%0000000606000 
OddOdOOOOOOONNO4G4G 090090020004409900 
0090003000 0000090 999000909000000990 
00006000969500009G )9900000400040940 
podddddddSOOOdOHONŁG 004000%0000200909 
ód0dO0O0009+90009G 0900000290300009 
p odrrOO+OOHOOO00944 190492090099000909 
 OdddddOOdOOOCO0YG 00099000099900090 
DOOO0dOOOONOOdOCNS CHG 00000900099000900 
 QO0O00OOOOOCJOdOOG 0009090900000000909 
 OOOOdOOOJOONJHOOOG 90000930090000900009 
500095909090909044 099093234050090003039043 
00990456996969655464 9090090900000693400000 
00609099596969565564 4009003490490990049900390 


99000900000000000090009090000000000000000006380030900000000000000000000063400003603 
D ©000000000000000690060000000000000000000000900040900000090004300600000330039040 
0 $00904009900390000000002000000000000442000000000009020904000000003009020940004000004 
490009950090093009900930000000900404009400900009000090000000906090009009000000000 
) 00990000900900000000090000090000909490094000000000000000009090000003000000000009004 


Esc aborts or press a key... 


User defined line styles 


ALU ALU KU GN 


"TJT || LI! 


| KU pa Wa CU wa UJ! 


Esc aborts or |. _ Esc aborts or press akey... ___ | a |. _ Esc aborts or press akey... ___ | 


ZEKNTĄCO"ENNC""P ANTENĄ" NĄ KAN AUNI 
HHTĘJ[Y ALTĘJJ| BUJ KIA KUTNM ""aLTI wf" 
Boa! GaU||| oc || l] a || I! aa 
BLU BUJ) "if "HEIJIN]|. KU BLN || LI! 
Po |1|| LU! o) aa! aaa al! a! aa 
zaj ut ut 
KO W WC CZ CO I OI CI 
=a[[f BU) "tl "LLTJ[[| "ET ""UITJ|. LI! | LL! 
AULI BUM Wai|| | GALII BI) mai 
I | U | CCU | I a maUI| „ajj 
says ej zaj ata ty 
KUJ W WZ | | LLU! i "M[[JIT] 
m "LUT "HIIT "LILII pa! LLU! a!) ma!| 
BLU "TT "EIT "HTT Ka al aa mL! 
| GU GU pa I CI LJ a 
zai | zai JEANA AJ AJ za 
WI GULI LI KO CN W I 


IncCY, H div 2); 
SetTextJustifyCCenter Text, loplext; 
SetUserCharSizeC5, 6, 3, 2); 
SetTextStyleCTriplexFont, HorizDir, UserCharSize); 
Out TextŁXYCCx2-x10 div 2, Y, "User defined size! ') 

end; 

WaitToGo 

end; € TextPlay > 


procedure TextŁDump; 


< Dump the complete character sets to the screen >» 
const 


CGASizes  : array[O..4] of word = (1, 3, 7, 3, 3; 

NormSizes : arrayl[O..4] of word = Cl, 4, 7, 4, 4); 
var 

Font : word; 

ViewiInfo : ViewPortlype; 

Ch : char; 
begin 

for Font := O to 4 do begin 


MainWindowćFontslFontJ]+” character set"); 
GetViewSettingsC(ViewlInfoJ; 
with ViewInfo do begin 
SetTextJustifyC(Leftlext, lToplIextD; 
MovelToC2, 30); 
if Font = DefaultFont then begin 
SetlextStyleCFont, HorizDir, 10; 
Ch := 40; 
repeat 
Out TextCCh); 
if CGetX + TextWidthC "MDD > Cx2-—x10D then 
MoveloC2, GetY + TextHeightC "M')+3D; 


Ch := SuccCChD; 
until CCh >= 4255) 
end 
else 
begin 


if MaxY < 200 then 
SetTextStyleCFont, HorizDir, CGASizeslFont]) 
else 
SetlextStŁyleCFont, HorizDir, NormSizeslFont]2; 
Ch :=5 ”1>; 
repeat 
Out TextCChD; 
if CGetX + TextWidthCl "MD> > Cx2-x10 then 
MoveloC(2, GetY + lextHeightC "MD>+30D; 
Ch := SucceCCh); , 
until COrdCCh> = OrdC*"'3)+1L3 
end 
end; € with > 
Wai ŁToGo 
end € for loop > 
end; < TextDump > 


procedure LineToPlay; 

< Demonstrate MoveTo and Linelo commands > 
const 

MaxPoints = 15; 


702 


DefaultFont character set 
000944 =NORJY FR: 1050$114104v I"g5/2' ()1+,-„/0123456789: ; (=) WABCOEFGHI JKLHN 
OPQRSTUUKXYZE[NI"_'abedefghijk Innopqrstuvuxuz ! J"óguegdaacEEeTTKAEaficooGUy GUĘLY 
Afal ounNS2CrN/ i COŻ ||4 ra [PUH U FEG ZG a tt Fe Hal PuprYtopT0d8e 
ghi=ł>€(J-z0..[N2g 


Esc aborts or press a key... 


'u$74:()+-./0123456780;<=>04BCDEF 
GHIJKLMNOPQRSTUYWXYZN=abedefghijk 
Imnopgrstuvwxyzję” 


Esc aborts or press a key... 


VAT 


Points : array[O..MaxPoints] of PointType; 
VviewiInfo : ViewPortlType; 

I, J : integer; 

CenterX : integer; 

CenterY : integer; 

Radius : word; 

StepAngle : word; 

Xasp, Yasp : word; 

Radi ans : real; 


function AdjAspC(Value : integer. : integer; 

<« Adjust a value for the aspect ratio of the device > 
begin 

AdjAsp := CLonglIntCValue) % Xasp> div Yasp 
end; € AdjAsp >» 


begin 
MainWindowć "'MovelTo, Linelo demonstration"D; 
GetAspectRatioCXasp, Yasp)D; 
GetViewSettings(ViewiInfo); 
with ViewiInfo do begin 


CenterX := C(x2-x10) div e; 
CenterY := Cyec-y1D div 2; 
Radius := CenterY; 
while CCenterY+AdjAspCRadius))0 < Cy2-y1iD-20 do 
IncCRadi us) 
end; 
StepAngle := 360 div MaxPoints; 
for I := O to MaxPoints — 1 do begin 
Radians := CStepAngle % 10 * Pi „ 180; 
PointslI].X := CenterX + roundC(CosCRadians> * Radius); 
PointslI].Y := CenterY — 
AdjAspClroundCSinCRadians)> * RadiusJD 
end; 
CircleCCenterX, CenterY, Radius); 
for I := O Ło MaxPoints — 1 do begin 
for J := I to MaxPoints — 1 do begin 


MoveTo(PointsltI].X, Pointsl[I].YD; 
LineTo(Points(J].X, Points[J].YDJ 
end 
end; 
Wai ŁTOGo 
end; € LineToPlay > 


procedure LineRelPlay; 

< Demonstrate MoveRel and LineRel commands > 
const 

MaxPoints = 16; 
var 

Poly : array[1..MaxPoints] of PointType; 

<« stores a polygon for filling >» 
CurrPort : ViewPortlType; 


procedure DrawlIesseract; 
< Draw a Tesseract on the screen 
with relative move and line drawing commands, 
also create a polygon for filling > 


const 
CheckerBoard : FillPatternlType = 


C80OO, %10, $28, $44, $28, $10, $00, $00); 
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SnallFont character set 


|" 1528 O3+, -, ,0123456789: ; =>?OABCDEFGHI JKLMNOPGRSTUUI 
XYelN]*_" abedefghi jklmnopqr stuvuxyz(1)- 


''H$%4: (++. /0123456789:<=>?GABOD 
EF GHJKLMNOPÓRSTUVWXYZ| ||—' abedefg 
hijklmnopgrsłuvwxyzsky 


var 


© 


Y, W, H 


begin 
GetViewSett1i ngsć Cur rPor ŁV) ; 
with CurrPort do 


integer ; 


begin 
W := Cx2-—x1LD0 div 8; 
H := Cy2-y1lD div 6; 
X := CCx2-x1D div 20 — roundC(2.5 % w); 
Y := CCy2-y1) div 20 — (3 %* HD; 

< Border around viewport is outer part of polygon >» 

Poly(1].X := O; Polyli].Y := O; 
Poly[2]1.X := x2-—x1; Polyl2].Y := O; 
Poly[3].X := x2-x1; Polyl[3].Y := ye-yl; 
Polyl[4].X := O; Poly[4]1.Y := ye-yl; 
Poly[5].X := O; Poly[51.Y :=5 O; 


MoveToćX, YJ; 


< Grab the whole in the polygon as we draw » 


MoveRelCO, HD; 
MoveRellCW, —HDJ; 
MoveRelCl4%*%w, ODJ; 
MoveRelCO, S5%*HD>; 


MoveRelC-W, HD); 


MoveRell-4%Ww, ODJ; 


MoveRelCO, 


-5%*HDJ ; 


Polyl6].X := GetX; 
Poly[(6J.Y := GetY; 
Polyl[7].X := GetX; 
Poly[7].Y := GetY; 
Polyl[8]1.X := GetX; 
Poly(8].Y := GetY; 
Poly[9].X := GetX; 
Poly[9].Y := GetY; 
Poly[(10].X := GetX; 
Poly[(10].Y := GetY; 
Poly[11].X := GetX; 
Polyl[11].Y := GetY; 
Poly[12].X := GetX; 
Polyli2].Y := GetY; 


« Fill the polygon with a user defined fill pattern > 
SetFillPattern(CheckerBoard, MaxColorD; 
FillPolyC12, PolyD; 


MoveRelCW, —HD.; 
LineRelCO, S5%*H)D; 
LineRelCW, —HD; 


LineRelC-2%W, OJ; 


MoveRelCW, —HD); 
LineRelC—Ww, ODJ; 


LineRelC2%Ww, OJ; 
LineRelCO, S5S%*HD; 
LineRellO, 3%*HD; 
LineRelCWwW, OJ; 


<« Flood fill the center > 


FloodFi11CCx2-x1D0 div £, 


end 


end; 


<« DrawTIesseract »> 


begin 
MainWindowć 'LineRel -/ MoveRel demonstration'D; 
GetViewSett1i ngsl CurrPort0D; 
with CurrPort do 
< Move the viewport out 1 pixel from each end > 


SetVi ewPor ŁC(Xx1 -—1, 


DrawTesseract; 
Wai ŁToGo 


end; 
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< LineRelPlay > 


y1-1, x2+1, y2+1, Cli 


LineRelCO, —3%*HD; 
MoveRelCO, -5%HD; 
LineRelC-—W, HD; 

MoveRelCO, —2%*HD; 


MaxCol or 


pOonVJ ; 


GothicFont charac set 


158;>20A802 


procedure PiePlay; 
< Demonstrate PieSlice and GetAspectRatio commands >» 
var 


ViewlInfo : ViewPortlype; 
Center X : integer; 
Center Y : integer; 
Radius : word; 
Xasp, Yasp : word; 
Xx, Y : integer; 
function AdjAspC(Value : integer. : integer; 


<« Adjust a value for the aspect ratio of the device » 
begin 

AdjAsp := CLonglntCValue)> % Xasp) div Yasp 
end; Ć AdjAsp > 


procedure GetlextCoords(AnglelnDegrees, Radius : worG; 
var X, Y : integer); 
< Get the coordinates of text for pie slice labels >» 
var 
Radians : real; 
begin 
Radians := AnglelnDegrees * Pi „ 180; 
X := roundC(CosCRadians) % Radius); 
Y := roundC(SinCRadians) * Radius) 
end; € GetlextCoords > 


begin 

MainWindowć *'PieSlice / GetAspectRatio demonstration'); 
GetAspectRatioC(Xasp, YaspQ; 
GetViewSettingsCViewlInfoJ; 
with ViewiInfo do begin 

CenterX := Cx2-X10 div 2; 

CenterY := C(Cyż-y1iD div 22 + 20; 

Radius := Cye2-y1D div 3; 

while AdjAspC(Radius) < roundClCy2-y1i) / 3.62 do 

IncCRadi us) 

end; 
SetTextStyleCTriplexFont, HorizDir, 40; 
SetlextJustifyCCenter Text, TopText>; 
OutTextXYCCenterX, O, "This is a pie chart! ”D; 


SetTextStyleCTriplexFont, HorizDir, 30; 


SetFillStyleCSolidFil1l, RandColorD; 
PieSliceCCenterX+10, CenterY-AdjAspC(1OD>, O, 90, Radius); 
GetTextCoordsC(45, Radius, X, YJ; 
SetTextJustifyCLeftlext, BottomlextD; 
QutTextŁXYCCenterX + 1O + X + TextWidthC'"H'J, 
CenterY — AdjAspl1lO+YD, "25 %'0 


SetFillStŁyleCHatchFill, RandColor.; 
PieSliceCCenterX, CenterY, 225, 360, Radius); 
GetTextŁCoords(293, Radius, X, YD; 
SetTextJustifyCLeftlText, Toplext); 
QutTextXYCCenterX + X + lextŁWidthC'"H"'>, 
CenterY — AdjAspCYD, ”37.5%'0; 


"08 


Pre-defined fill styles 


/ 


/ 


O: 


r" 


10 


Esc aborts or press a key... 


User defined fill styles 


9049939099 4944 
99390900094 
4939394900 04 
9999090090 4 
0944999909 4 
939409099 04 
2992009099 4 


MUVULVULSYUU ++++++++ł++ XXXXXXXXXXX 
SUWULULTYY 00090090000: +ł++++ł+++++ XXXXXXXXXIAX 
WUYWYWYCYUY 0009090090009' +++++++++++ XKXXXXXXXXX 
KUULULUUWY 0000000009000' +++++++++++ XXXXXXXXXXX 
NNT 000000099000: +++++++++++ 


++ł++++Ł++Ł AKKKKKKK 


+++ttłtł+t++ 


02 RP RA Aż R R Ry RA 10 ALA Rp 


LLC.EOLLELLII 


Esc aborts or press a key... 


SetFillSŁyleC(InterleaveFill, RandColor); 
PieSliceC(CenterX-1O, CenterY, 135, 225, Radius); 


GetTextŁCoords(180, Radius, X, Y); 

SetTextJustifyCRightText, Center Text); 

OutTextXYCCenterX — 1O + X — TextWidthC”H'D, 
CenterY — AdjAspCYJD, "25 %'0; 


SetFillStyleC(WideDotFill, RandColorD; 
PieSliceC(CenterX, CenterY, 90, 135, Radius); 
GetTextŁCoordsC(112, Radius, X, YJ; 
SetTextJustifyCRightText, Bottomlext); 
QutTextXYCCenterX+X -— TextWidthC'"H'J, 
CenterY -— AdjAspCYD, "12.5 %'0; 

Wai ŁToGo 

end; € PiePlay > 


procedure Bar3DPlay; 
< Demonstrate Bar3D command > 
const 
NumBars 7, < the number of bars drawn > 
BarHeight : array[1..NumBars] of byte = 
(1, 3, 2, 5, 4, 2, 10; 


YTicks = 5: (< the number of tick marks on the Y axis 
var 

ViewInfo : ViewPortType; 

H : word; 

XStŁep : real; 

YStŁep : real; 

I, J : integer; 

Depth : word; 

Color : word; 
begin 


MainWindowć "Bar3D / Rectangle demonstration'D; 
H := 3%*TextHeightC 'M'D; 
GetViewSettingsćViewInfoD; 
SetTextJustifyC(Center Text, Toplext) ; 
SetTextSŁyleCTriplexFont, HorizDir, 40; 
Out TexŁXYCMaxX div 2, 6, "These are 3D bars !"D; 
SetlextStyleCDefaultFont, HorizDir, 10; 
with ViewiInfo do 

SetViewPortCxi +50, y1i+40, x2-50, y2-1O, ClipOn); 
GetVvViewSettings(ViewInfo); 
with ViewiInfo do begin 

LineCH, H, H, Cy2-y1D-HD; 

LineCH, Cy2-y1i0-H, Cx2-Xx10-—H, Cy2-y1D0—HD; 

YStep := CCy2-y1D0-C2%*H)D / Ylicks; 

XStep := C(Cx2-—x10-C2%H)D / NumBars; 

J := (Cy2-y1D-—H; 

SetTIextJustifyCCenter Text, Center Text); 


<« Draw the Y axis and ticks marks » 
for I :=50O to Yticks do begin 

LineCH div 2, J, KH, JJ; 

OutTexŁXYCO, J, InteStrCID>; 
J := Roundl(J-YstepD) 
end; | 
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Thats all folks! 


Depth := truncCO.25 %* XStep); 
< calculate depth of bar >» 


< Draw X axis, bars, and tick marks » 
SetTextJustifyC(CenterText, Toplext); 
J :=H; 
for I := 1 Ło SuccCNumBars) do begin 
SetCol or CMaxColor) ; 
LinećCJ, Cy2£2-y1iD-H, J, Cy2-y1-30-CH div 20); 
OutTextŁXYCJ, Cy2-y10-CH div 22, InteStrC1I-10); 
if I <> SuccCNumBars” then begin 

Color := RandColor; 

SetFillStŁyleCI, Color); 

SetColorCColor.; 

Bar3DCJ, roundC(Cy2-yi -H)-CBarHeight(I] % YstepD), 
round J+Xstep-Depth), 
round(Cy2-y10-H-10, Depth, lTopOn)D; 

J := Round(J+Xstep) 

end 
end; 


end; 
Wai ŁToGo 
end; € Bar3DPlay > 


procedure BarPlay; 
< Demonstrate Bar command > 
const 
NumBars =5; 
BarHeight : array(1..NumBars] of byte 
(1, 3,5, ©, 40; 
Styles : array[1..NumBars]l of byte = 
(1, 3, 10, 5, QD; 


var 
Viewinfo : ViewPortTlType; 
Bar Num : word; 
H : word; 
XStep : real; 
YStep : real; 
I, J : integer; 
Color : word; 
begin 


MainWindowć *Bar / Rectangle demonstration'D; 
H := 3*lextHeightC "MD; 
GetViewSettingsCViewInfoD; 
SetlIextJustifyCCenter Text, ToplIextD; 
SetlextStylelTriplexFont, HorizDir, 40; 
OutTexŁXYCMaxX div 2, 6, "These are 2D bars !”D; 
SetlextStŁyleC(DefaultFont, HorizDir, 10; 
with ViewiInfo do 

SetViewPortCxi+50, y1i+30, x2-50, y2-10, C1lipOn); 
GetVvViewSettings(ViewiInfoD; 
with ViewiInfo do begin 

LineCH, H, H, Cy2-y1D-HD; 

LineCH, Cy2-y1D0-H, Cx2-x10—H, Cy2-y1D—HD; 

YStep := C(Cye-y10-C2=XHDD> . NumBars; 

XStep := CCx2-XxX10-C2%*HDD> / NumBars; 

J := Cy2-y1D0-H; 

SetlTextJustifyCCenter Text, Center Text); 
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< Draw Y axis with tick marks > 
for I := O to NumBars do 
begin 
LineCH div 2, J, H, JD; 
OutTextŁXYCO, J, Int2StrC1i1D0D; 
J := RoundC(J-Ystep) 
end; 


<« Draw X axis, bars, and tick marks > 


J :=*H; 

SetTextJustifyC(Center Text, TopText); 
for. I := 1 Ło SuccCNumBars> do 
begin 


SetColorC(MaxColorJ; 
LinecJ, Cy2-y10-—H, J, Cy2-y1-30-CH div ©2)); 
Out TexŁXYCJ, Cy£2-yi0-CH div 22, InteStrC1I2.); 
if I <> SuccCNumBars> then 
begin 
Color := RandColor; 
SetFillStyleCStŁyleslI], Color); 
Set Col or (Color); 
BarCJ, RoundC(Cy2-y1 -H)-CBarHeight[I] % YstepJ, 
Round J+Xstep), Cy2-y10-—H-12; 
RectangleCJ, RoundC(Cly2-yl-—H) — 
CBarHeight[I] % YstepDJ, 
RoundCJ+Xstep>, Cy2-y1D0—H-1); 
end; 
J := RoundCJ+Xstep); 
end; 


end; 
Wai ŁToGo 
end; «€ BarPlay > 


procedure CirclePlay; 
< Draw random circles on the screen » 
var 
MaxRadius : word; 
begin 
MainWindowć "Circle demonstration"); 
StŁatusLineC”Esc aborts or press a key'); 


MaxRadius := MaxY div 1O; 
SetLineStyle(SolidLn, O, NormWwidth); 
repeat 


SetColorCRandColorJ; 
CircleCRandomC MaxX), Random(MaxYD), Randoml MaxRadiusJ)); 
until KeyPressed; 
Wai ŁTOoGo 
end; < CirclePlay > 


procedure RandBarPlay; 
< Draw random bars on the screen > 


var 
MaxWidth  : integer; 
MaxHeight : integer; 
ViewIlnfo  : ViewPortType; 
Color : word; 
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begin 
MainWindowC "Random Bars”); 
StatusLineC'Esc aborts or press a key'); 
GetViewSettingsCViewlnfo); 
with ViewiInfo do 
begin 
MaxWidth := x2-xl; 
MaxHeight := ye-yi 


end; 

repeat 
Color := RandColor; 
SetColorClColorD); 


SetFillStyleCRandom(CloseDotFi110+1, Color); 
Bar3DCRandomC MaxWidthD>, RandomCMaxHeight>, 
RandomC MaxWidtŁhD, RandomC(MaxHeight>, O, TopOff) 
until KeyPressed; 
Wait ToGo 
end; € RandBarPlay >» 


procedure ArcPlay; 


< Draw random arcs on the screen > 
var 


MaxRadius : word; 
EndAngle : word; 
ArciInfo : ArcCoordsType; 


begin 
MainWindowC "Arc / GetArcCoords demonstration"'"D; 
StatusLineC"Esc aborts or press a key”); 


MaxRadius := MaxY div 10; 

repeat 
SetColorCRandColorDJ; 
EndAngle := RandomC 3600); 


SetLineStŁyleCSolidLn, O, NormWidthD; 
ArcCRandom( MaxXD, RandomCMaxYD>, RandomCEndAngle., 
EndAngle, RandomC MaxRadi usJ0; 
GetArcCoordsC(ArcInfo); 
with Arcinfo do begin 
LineCX, Y, XStart, YStart); 
LineCX, Y, Xend, YendD 
end; 
until KeyPressed; 
Wai ŁTOGo 
end; € ArcPlay > 


procedure PutPixelPlay; 


< Demonstrate the PutPixel and GetPixel commands > 
const 


Seed = 1962; C a seed for the random number generator >» 
NumPts = 2000; < the number of pixels plotted » 
Esc = 427; 
var 
I word; 
X, Y, Color : word; 
XMax, YMax : integer; 
ViewiInfo : ViewPortType; 
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begin 
MainWindowC 'PutPixel / GetPixel demonstration'); 
StatusLine( 'Esc aborts or press a key...'); 
GetViewSettings(ViewliInfo); 
with ViewiInfo do begin 


XMax := Cx2-x1—1); 
YMax := Cye-yl-1) 
end; 


while not KeyPressed do begin 
< Plot random pixels » 


RandSeed := Seed; 

I :=O; 

while Cnot KeyPressed) and CI < NumPts) do begin 
IncCI); 


PutPi xellCRandom(ć XMax0 +1, RandomCYMax0 +1, RandColorJ 


end; 


< Erase pixels » 
RandSeed := Seed; 
I := O; 
while Cnot KeyPressed) and CI < NumPts) do begin 
IncClI); 
X := RandomC(XMaxD+1; 
Y := RandomCYMax+1; 
Color := GetPixelCX, YD; 
if Color = RandColor then 
PutPixelCX, Y, O 
end 
end; 
WaiŁToGo 
end; « PutPixelPlay > 


procedure PutImagePlay; 
< Demonstrate the GetImage and PutImage commands > 


const 
r = ao; 
StŁartX = 1OO; 
Starty = 50; 
var 


CurPort : ViewPortlype; 


procedure MoveSaucerCvar X, Y : integer; 
width, Height : integer); 
var 
Step : integer; 
begin 
Step := Random 2%r); 
if OddCStŁep> then 
Step := -Step; 
X :5 X + Step; 
Step := RandomCrD; 
if OddCStep> then 
Step := -Step; 
Y :=7Y + Step; 
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< Make saucer bounce off viewport walls >» 
with CurPort do begin 
if Gd + X + Width — i > x2)2 then 
X := x2-x1 — Width + 1 
else 
if CX < O then 
X :=0O; 
if Cyl + Y + Height — 1 > ye.» then 
Y := y2-yl — Height + 1 
else 
if CY < O then 
Y :=5oO 
end 
end; € MoveSaucer > 


var 
Pausetime : word; 
Saucer : pointer; 
X,Y : integer; 
ulx, uly : word; 
irx, lry : word; 
Size : word; 
I : word; 
begin 
ClearDevice; 
FullPort; 
< PaintScreen > 
ClearDevice; 
MainWindowć 'Getlmage / PutImage Demonstration'D; 
StatusLineC'"Esc aborts or press a key... '); 


GetViewSetti ngs(l CurPor tt); 


<« DrawSaucer > 
EllipseC(StartX, Starty, O, 360, r, Cr div 3)+2); 
EllipseCStartX, StŁartY-4, 190, 357, r, r div 30); 
LineCStartX+7, SŁartY-6, StartX+1O, StŁartY-12D; 
CircleCStartX+1O, StartY-1i2, 2; 
LineC(StartX—7, StŁartY-6, StŁartX-1O, StŁartY-12); 
CircleCStartX-1O, StartY-i2, 20; 
SetFillStŁyleC(SolidFill, MaxColorDJ; 
FloodFil1CStartX+1, StŁartY+4, GetColor>; 


< ReadSaucerImage > 


ulx := StartX-Cr+1); 

uly := StartY-14; 

1irx := StartX+Cr+1); 

lry := StartY+Cr div 30+3; 

Size := ImageSizeCulx, uly, lrx, lryJ; 


GetMem(Saucer, Size); 
GetIlmagelulx, uly, 1rx, lry, Saucer")D; 
PutImageCulx, uly, Saucer©, XORputD); 

<« erase image > 


<« Plot some "stars" > 
for I := 1 Ło 1O00 do 

PutPixelCRandomCMaxXD, RandomCMaxYD>, RandColorD; 
X := MaxX div 2; 
Y := MaxY div 8; 
PauseTime := 70; 
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< Move the saucer around > 
PutlmageCX, Y, Saucer*, XORput); 
4 draw image >» 
repeat 
DelayC(PauseTime); 
PutImageCX, Y, Saucer"©, XORput); 
€ erase image > 
MoveSaucerC(X, Y, lrx - ulx + 1, lry — uly + 10; 
< width/height > 
PutImageCX, Y, Saucer*, XORput) 
until KeyPressed; 
FreeMem( Saucer, size); 
WaitŁTOoGo 
end; € PutImagePlay > 


procedure PolyPlay; 
< Draw random polygons 
with random fill styles on the screen >» 
const 
MaxPts = 5; 
Łype 
PolygonType = arrayl1..MaxPts] of PointlType; 
var 
Poly : PolygonType; 
I, Color : word; 
begin 
MainWindowC "'FillPoly demonstration'); 
StatusLineć "Esc aborts or press a key... '); 
repeat 
Color := RandColoer; 
SetFillStyleCRandom(110+1, Color); 
SetColorCColorD; 
for I := 1 Ło MaxPts do 
with PolyC(I] do begin 
X Randomć MaxX); 
Y RandomC MaxYJ 
end; 
FillPolyCMaxPts, Poly) 
until KeyPressed; 
Wali ŁTOGo 
end; € PolyPlay > 


procedure FillStylePlay; 
< Display all of the predefined fill styles available > 
var 


Style : word; 

Width : word; 

Height : word; 

X,Y : word; 

I, J : word; 

ViewiInfo : ViewPortType; 
procedure DrawBoxCX, Y : word); 
begin 


SetFillSŁyleCStyle, MaxColor); 
with ViewInfo do 

BarCX, Y, X+Width, Y+Height.; 
RectangleCX, Y, X+Width, Y+Height; 
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OutTextŁXYCX+CWidth div 20), Y+Height+4, 


InclStŁyle) 
end; € DrawBox 


begin 


MainWindowć 'Pre-defined fill styles"); 


GetViewSettings(ViewlInfo); 
with ViewInfo do begin 
width := 2 * CCx2+10 div 13); 
Height := 2 %* C(Cy2-10) div 10) 
end; 
X := Width div e; 
Y := Height div 2; 


Style := O; 
for J := 1 to 3 do begin 
for I :51 to 4 do begin 


DrawBoxCX, YD; 
IncCX, CWidth div 20 * 230) 
end; 
X := Width div c; 
IncCY, CHeight div 20 %* 3) 
end; 
SetlextJustifyCLeftText, Toplext); 
WaitTIoGo 
end; € FillStylePlay > 


procedure FillPatternPlay; 


< Display some user defined fill patterns > 


const 


Patterns : array[(O..11] of FillPatternlType = 


C CS$FAA, $55, $AA, $55, 
(633, $33, $CC, $CC, 
C$FO, $FO, $FO, $FO, 
C$500, $10, $28, $%44, 
CĘ00, $70, $20, %e27, 
C$00, $00, $00, %18, 
C$00, $00, $3C, $ZC, 
C500, $7E, $%7E, $7E, 
CHOO, $00, $2e2, $08, 
C$FF, $S7E, $3C, $18, 
C$00, %10, $10, $7C, 
C$00, $%42, $%24, $%18, 

var 


SŁyle : word; 

Width : word; 

Height : word; 

X, Y : word; 

I, J : word; 

ViewInfo : ViewPortType; 
procedure DrawBoxCX, Y : wordJ; 
begin 


FAA, 
33, 
%WOF , 
28, 
525, 
%18, 
BSC, 
$7E, 
$%00, 
%18, 
$%10, 
518, 


$55, 
P3ZI, 
%WOF, 
%10, 
$%27, 
BOO, 
P3C, 
$7E, 
$2e, 
P3C 4 
$%10, 
24, 


SetFillPatternC(Patterns[Stylej, MaxColorD; 


with Viewinfo do 
BarCX, Y, X+Width, Y+HeightD; 
RectangleCX, Y, X+Width, Y+HeightD; 
IncClStŁyle) 
end; «€ DrawBox > 
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$AA, 
$CC, 
%OF, 
$O0O, 
504, 
$0O, 
BOO, 
$57E, 
51C, 
57E, 
BOO, 
$42, 


IntaStrCStyleJD.); 


5532) , 
BCC, 
POFD , 
$W00D, 
04, 
B0OJ, 
WOOD, 
003) , 
BOOJD, 
$FFD, 
$002D, 
WOOD 2; 


begin 
MainWindowć *'User defined fill styles'); 
GetViewSettingsCViewlInfo); 
with Viewinfo do begin 
width := 2 % CCx2+1) div 130); 
Height := 2 % C(Cy2-100 div 10) 
end; 
X := Width div 2; 
Y := Height div ©; 
Style := O; 
for J := 1 Ło 3 do begin 
for I := 1 to 4 do begin 
DrawBoxCX, YJ; 
IncCX, CWidth div 2 »* 3) 
end; 
X := Width div G; 
IncCY, CHeight div 22 %* 3) 
end; 
SetTlextJustifyC(LeftText, ToplIext); 
Wai ŁTOGo 
end; € FillPatternPlay » 


procedure ColorPlay; 
<« Display all of the colors available 
for the current driver and mode >» 
var 


Color : word; 
Width : word; 
Height : word; 
X, Y : word; 
I, J : word; 


ViewInfo : ViewPortType; 


procedure DrawBoxCX, Y : word); 
begin 
SetFillStŁyleCSolidFi11, Color); 
SetColorCColorD; 
with ViewiInfo do 
BarCX, Y, X+width, Y+Height); 
RectangleCX, Y, X+Wwidth, Y+Height; 


Color := GetColor; 
if Color = O then 
begin 


SetCol or CMaxColor); 
RectangleCX, Y, X+Width, Y+Height); 


end; 
OutTextŁXYCX+CWidth div 22, Y+Height+4, Int2Strl(ColorJ); 
Color := SuccCColor) mod CMaxColor + 1) 
end; € DrawBox > 
begin 
MainWindowć "Color demonstration'); 
Color := 1; 


GetViewSettingsć(ViewInfo); 
with ViewInfo do 


begin 
Width := 2 » CCx2+10D0 div 16; 
Height := 2 »* C(Cy2-10D div 10); 
end; 
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X := Width div ©; 
Y := Height div ©; 
for J := 1 Ło 3 do begin 
for I :=5 1 to 5 do begin 
DrawBoxCX, YJ); 
IncCX, CWidth div 22 * 5) 
end; 
X := Width div e; 
IncCY, CHeight div 20 * 3) 
end; 
WaitToGo 
end; € ColorPlay > 


procedure PalettePlay; 
< Demonstrate the use of the SetPalette command > 


const 
XBars = i5; 
YBars = 10; 
var 
I, J : word; 
Xx,Y : word; 
Color : word; 
ViewiInfo : ViewPortType; 
Width : word; 
Height : word; 
O1ldPal : Palettelype; 
begin 


GetPaletteCOldPalD; 
MainWindowC "Palette demonstration'J; 
SŁatusLineC "Press any key...*”DJ; 
GetViewSettings(Viewlnfo); 
with ViewInfo do 
begin 

Width := Cx2-x10 div XBars: 

Height := Cy2-y1lD div YBars 


end; 

X SO Y :=O; 

Color := O; 

for J := 1 Ło YBars do begin 
for I := 1 to XBars do begin 


SetFillStŁyleC(SolidFill, ColorDJ; 
BarCX, Y, X+width, Y+Height>; 
IncCX, Width+1); 

InclColor); 


Color := Color mod CMaxColor +12 
end; 
X :=0; 
IncCY, Height+15D 
end; 
repeat 


SetPalette(RandomC GetŁMaxColor + 10, Random( 65022 
until KeyPressed; 
SetAllPaletteCcOldPalD); 
Wai ŁTOoGo 
end; « PalettePlay > 
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procedure CrtModePlay; 
< Demonstrate the use of RestoreCrtMode 
and SetGraphMode > 


var 
Viewinfo : ViewPortType; 
Ch : char; 

begin 


MainWi ndowć ' Set6óraphMode / RestoreCrtMode demo”); 
GetViewSettingsCViewlInfoDJ; 
SetlextJustifyC(Center Text, Center Text); 
with ViewInfo do begin 
Out TextŁXYCCx2-x1)0 div 2, (Cy2-y1iD div 2, 
"Now you are in graphics mode”); 
StatusLineC "Press any key for text mode..."'DJ; 
repeat until KeyPressed; 
Ch := ReadKey; 
RestoreCr tmode; 
WritelnC "Now you are in text mode. 'D; 
WriteC "Press any key to go back to graphics... *'); 
repeat until KeyPressed; 
Ch := ReadKey; 
SetGr aphMode(C GetGr aphMode)D ; 
MainWindowćC 'SetGraphMode / RestoreCrtMode demo'D; 
SetTextJustifyCCenter Text, Center Iext.; 
OutTextŁXYCCX2-Xx10 div 2, (Cye2-y1)> div £, 
"Back in graphics mode... ') 
end; 
Wai ŁToGo 
end; € CrtModePlay > 


procedure LineStylePlay; 
< Demonstrate the predefined line styles available > 


var 


Style : word; 

SŁep : word; 

Xx, Y : word; 

Viewinfo : ViewPortType; 
begin 

ClearDevice; 

DefaultColorSs; 


MainWindowcC *Pre-defined line styles"); 
GetViewSettingsćViewlInfo); 
with ViewiInfo do begin 


X := 35; 
Y := 1O 
Step := Cx2-x10 div 11; 


SetTextJustifyCLeftText, ToplIext); 

OutTextŁXYCX, Y, 'NormWidth'>; 

SetTextJustifyCCenter Text, Toplext; 

for Style := O to 3 do begin 
SetLineStyleC(Style, O, NormWidth); 
LineCX, Y+20, X, Y2-40); 
OutTextŁXYCX, Y2-30, InteStrCStyle.); 
IncCX, Step) 

end; 

IncCX, 2*Step); 

SetTextJustifyCLeftText, ToplText); 

QutTextŁXYCX, Y, *'ThickWidth'; 

SetTextJustifyC(Center Text, Toplext); 
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for Style := O to 3 do begin 
SetLineStyleC(StŁyle, O, ThickWidthD; 
LineCX, Y+20, X, Y2-40); 
OutTextŁXYCX, Y2-30, InteStrCStyle.); 
IncCX, Step) 
end 
end; 
SetTextJustifyCLeftlext, loplext); 
Wwai ŁTOGo 
end; € LineStylePlay >» 


procedure UserLineStylePlay; 
< Demonstrate user defined line styles >» 
var 


Style : word; 

X, Y, I : word; 

Viewinfo : ViewPortlType; 
begin 


MainWindowćC "User defined line styles"); 
GetVvViewSettingsClViewlInfo); 
with ViewlInfo do begin 
X :54; 
Y := 1O; 
Style := O; 
I := O; 
while X < X2-4 do begin 
<$B+> 
SŁyle := Style or C1 shl CI mod 1600; 
<$B-> 
SetLineStŁyleCUserBitLn, Style, NormWwidth); 
LineCX, Y, X, Cy2-y1lD-YJ; 
IncCX, 50); 
IncCI); 
if Style = 65535 then begin 
I :=50O; 
SŁyle :=0O 
end 
end 
end; 
WaitTIoGo 
end; « UserLineStylePlay > 


procedure SayGoodbye; 
< Say goodbye and then exit the program > 

var 
ViewiInfo : ViewPortType; 

begin 
MainWindowcC' 'D; 
GetViewSettingsCViewlInfoJ); 
SetTextStyleCTriplexFont, HorizDir, 40; 
SetTextJustifyCCenter Text, Center Text; 
with ViewiInfo do 

OutlextXYC(Cx2-x10 div 2, Cy2-y1D div £, 
"That"'s all folks!'DJ; 

StŁatusLine( 'Press any key to quit...'DJ; 
repeat until KeyPressed 

end; € SayGoodbye > 
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var 
Xx,M,n : integer; 
Lst : file; 


procedure PrintScreęenCOver : byteD; 


var 
YL : integer; 

var 
Buf : arrayl[1..1200] of char; 
Ind : integer; 


procedure WriteBufCCh : char); 
begin 

Buf[Ind] := Ch; 

IncCI nd) 
end; 


procedure OneLine; 
function OneCharCx,yL : integerD : byte; 
const Bits : array [O..7]1 of byte = 
C128,64,32,16,8,4,2,10; 
var OneByte,i : byte; 


begin 
yL := yL shl 3; 
OneByte := O; 
for i :=O to 7 do 
if GetPixelCx,yL + iD <> O then 
OneByte := OneByte or Bitsli]; 
OneChar := OneByte 
end; 
begin ( OneLine >» 
for m := 1 to Over do begin 
Ind := 1; 
WwriteBufC*LD; 


WriteBufl "LD; 
WriteBufCChrCLol(GetMaxX + 12000; 
WriteBufCChrCHiCGetMaxX + 12000; 
for xx := O Ło GetMaxX do 
Wri ŁeBuf CChr COneCharC xx, yLD)D0; 
if m < Over then 
WritŁeBufCl"M; 
BlockWriteCLst,Buf ,Ind — 150) 
end; 
Ind := 1; 
WriteBufC"M); 
WriteBufC*JJ); 
BlockWriteCLst,Buf ,23) 
end; 


begin < HardCopy > 
ASsignCLst, *Screen'); 
RewriteCLst ,1); 
FullPort; 
Ind := 1; 
Wri ŁeBufC*[DJ; 
WriteBufC'3'); 
Wri ŁeBufC 424); 
BlockWriteCLst ,Buf,3): 
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for yL := O to CC(GetMaxY + 80 shr 32 — 1 do OneLine; 
Ind := 1; 
WriteBufC"[); 
WriteBufC '©'); 
BlockWriteC(Lst ,Buf ,2); 
CloseC(LstD 
end; 


begin € Program body > 
Initialize; 
Repor tŁStŁatus; 


AspectRatioPlay; 
FillEllipsePlay; 
SectorPlay; 
WriteModePlay; 


ColorPlay; 

< PalettePlay only intended to work on these drivers: 

if CGraphDriver EGAD or 
CGraphDr i ver EGA64> or 
CGraphDr i ver VGAD then 
PalettePlay; 

PutPixelPlay; 

PutlmagePlay; 

RandBarPlay; 

BarPlay; 

Bar 3DPlay; 

ArcPlay; 

CirclePlay; 

PiePlay; 

LineToPlay; 

LineRelPlay; 

LineStylePlay; 

UserLineStylePlay; 

TextDump; 

TextPlay; 

Cr tŁModePlay; 

FillStylePlay; 

FillPatternPlay; 

PolyPlay; 

SayGoodbye; 

CloseGraph; 

end. 


DODATEK E — Asembler 


Wywołanie Turbo Assemblera ma w ogólnym przypadku postać 
TASM /ftleset ; /ftleset ; ... ; /ftleset 
w której każde /ileset ma budowę 


opttons,sources,object,list,xref/f 


W drugim z wymienionych napisów, options reprezentuje opc, 
sources reprezentuje nazwę zbioru źródłowego, albo ciąg tż 
kich nazw oddzielonych znakami + Cplus) albo spacjami, obje 
reprezentuje nazwę zbioru wynikowego C.OBJ)Q, łtsł reprezen— 


Łuje nazwę zbioru, w którym będzie umieszczony raport kom— 


pilacji, a xre/ reprezentuje nazwę zbioru, w którym zostanie 


umieszczony raport odwołań Skrośnych. 


Jeśli asembler zostanie wywołany bez argumentów, to spowoduje 


to wyświetlenie podsumowania jego opcji, którymi są 


ZA — Polecenie alfabetycznego uporządkowania segmentów. 
Przykład: /A 


ZB — Opcja ignorowana. 
Przykład: /B 


/C — Umieszczenie w raporcie kompilacji podraportu odwołań 


skrośnych. 
Przykład: /C 
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/D 


ZE 


ZH 


ZI 


I 


ZKH 


ZKL 


ZL 


ZLA 
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Zdefiniowanie symbolu. Napis .„Dsymboł poleca zdefinio- 
wanie symbolu symboł bez przypisywania mu wartości, a 

napis „Dsymbol=value powoduje zdefiniowanie symbolu i 

nadanie mu wartości value. 


Przykład: „DSize=20 


Polecenie generowania rozkazów emulujących operacje 
zmiennopozycyjne. 


Przykład: /E 


Polecenie wyświetlenia wykazu opcji. 


Przykład: /H 


Określenie nazwy katalogu zbiorów włączanych. Napis 
ZIidtr poleca poszykiwanie zbiorów włączanych w kata— 
logu dir. Opcja stosuje się tylko do nazw zbiorów, 
które nie zawierają Ścieżki. Opcje /I mogą występować 
wielokrotnie. 


Przykład: .IHeaders 


Określenie dyrektywy, która będzie wykonana przed pod— 
jęciem kompilacji zbioru źródłowego. Napis /Jactton 
poleca wykonanie dyrektywy acttom. 

Przykład: „JIdeal 


Polecenie stworzenia warunków do kompilowania modułu 
zawierającego podaną liczbę symboli. Napis /KHcount 

mówi o count symbolach. Przez domniemanie przyjmuje 

się count=8192. 

Przykład: .KH1OOOO 


Polecenie stworzenia warunków do kompilowania modułu 
wymagającego podanego obszaru dla łańcuchów. Napis 
/KLstze mowi o obszarze o rozmiarze steze KB. Przez 
domniemanie przyjmuje się 150 KB. 

Przykład: .KH200 


Polecenie generowania raportu kompilacji, nawet jeśli 
w dyrektywie kompilatora nie występuje napis Ltst. 
Przykład:  „L 


Polecenie ujawnienia kodu generowanego przez dyrektywy 
segmentowe wysokiego poziomu, takie jak na przykład 
„MODEL i . CODE. 

Przykład: LA 


/ML 


/MU 


MX 


ZN 


/P 


ZR 


ZY 


ZX 


Polecenie traktowania małych liter jako różnych od 
dużych. 
Przykład: ML 


Polecenie przekształcenia wszystkich liter małych w 
duże. 


Przykład: „MU 


Polecenie traktowania małych liter jako różnych od 
dużych, ale tylko w obrębie symboli zewnętrznych. 
Przykład: MX 


Polecenie wyeliminowania z raportu kompilacji infor— 
macji o tablicy symboli. 
Przykład: -N 


Polecenie sprawdzania, czy w module źródłowym użyto 
rozkazów zabronionych w trybie zabezpieczonym 
(protected modeJ. 


Przykład: .P 


Polecenie generowania rzeczywistych, a nie emulowan' 
rozkazów arytmetyki zmiennopozycyjnej. 


Przykład: R 


Polecenie sekwencyjnego uporządkowania segmentów. 


Przykład: /S 


Polecenie zaniechania komunikatu o poprawnej 
kompilacji. 
Przykład: /T 


Opcja ignorowana. 
Przykład: /V 


Polecenie generowania komunikatów ostrzegających. Na— 
pis /W poleca włączenie generowania komunikatów, a na— 
pis /W- poleca ich wyłączenie. 

Przykład: /W- 


Polecenie włączenia do raportu kompilacji, nie kom- 
pilowanych gałęzi dyrektyw warunkowych. 
Przykład: X 


Polecenie dołączania do komunikatów o błędach, napi sów 
źródłowych które je wywołały. 
Przykład: /Z 
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ZZD — Polecenie umieszczenia w zbiorze wynikowym, informacji 
o numerach wierszy zbioru źródłowego. 


Przykład: /ZD 


ZZI — Polecenie umieszczenia w zbiorze wynikowym, komplet— 
nych informacji o numerach wierszy i symbolach modułu 
źródłowego. 

Przykład: /Z1 


w każdym miejscu dyrektywy kompilacji może wystąpić napis o 

postaci ©Name, w którym Name jest nazwą zbioru. lTekst zawarty 
w Łym zbiorze jest wówczas włączany w miejscu wystąpienia na— 
pisu ©Name. Jeśli tekst składa się z więcej niż jednego wier— 


sza, to znaki końca wiersza są traktowane tak jakby były zna— 
kami spacji. 

Przykład 

Jeśli zbiór OPIIONS. ASM zawiera napis 


zi 


mx 
to dyrektywa 
tasm /l ©optŁions.asm main 
jest traktowana tak jak dyrektywa 
tasm /1 /zi /mx main 
Dodatkowym ułatwieniem jest możliwość posłużenia się zbiorem 
konfiguracyjnym IASM.CFG. Tekst zawarty w tym zbiorze jest 


bowiem niejawnie wstawiany do każdej dyrektywy TASM, tak jak— 
by zaczynała się ona od napisu ©TASM. CFG. 


DODATEK F — Uruchamiacz 


Wywołanie uruchamiacza ma w ogólnym przypadku postać 
TD opt name args 


w której opł są opcjami, name jest nazwą uruchamianego 
programu, a args są jego argumentami. Jeśli napis args jest 
pusty, to program jest aktywowany bez argumentów, a jeśli 
jest pusty napis opt, to są stosowane opcje wbudowane w 


uruchamiacz Cbyć może określone przez instalator). 


Każda z opcji opt zaczyna się od znaku — (minus) i jest 
odseparowana od następnej opcji albo nazwy programu co 
najmniej jedną spacją. Jeśli ostatnim znakiem opcji jest 
także minus Cnp. —vg-2, to następuje wyłączenie opcji. Jest 
to nieodzowne jedynie wtedy, gdy podczas instalacji włączono 


opcję na stałe, a uruchamiacz ma być wywołany z opcją 


wyłączoną. 


Opcje -d 


—do Program posługuje się ekranem podstawowym, a uru— 


chamiacz posługuje się ekranem pomocniczym; 

-—dp Uruchamiacz wykorzystuje dodatkowe strony karty 
kolorowej Cużycie tej opcji ma sens jedynie wtedy, 
gdy program nie wykorzystuje dodatkowych stron); 

-—ds Uruchamiacz zapamiętuje w wydzielonym obszarze 


pamięci operacyjnej zarówno swój ekran, jak i ekran 


"wyjściowy uruchamianego programu. 
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Opcje =h i -? 


-h 


-? 


Opcja 


Opcja 


Opc ja 


Opc je 


-Sc 


-sdd 
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-i 


=p 


=$ 


Uruchamiacz wyświetla wyjaśnienia co do sposobu 
poprawnego wywołania go. 


j.w. 


Uruchamiacz czerpie uchwyty z tej samej puli co 
uruchamiany program Cużycie tej opcji ma sens 
jedynie wtedy, gdy zamierza się śledzić program w 
głąb systemu DOSV. 


Uruchamianie programu rozpoczyna się w trybie asem- 
blerowym. Pierwsze zatrzymanie programu następuje 


przed wykonaniem kodu rozruchowego (startup code). 


Uruchamiacz otrzymuje stertę o rozmiarze n KB 


Cdomniemanie n=40). 


Uruchamianie odbywa się zdalnie, poprzez łącze 
szeregowe (domniemania: COM1 i 9600 baudV. 
Uruchamiacz posługuje się portem COMn Cn=l,2). 
Uruchamiacz wybiera szybkość transmisji 

dla n=1 9600  baud 

dla n=2 40 Kbaud 

dla n=3 115 Kbaud 


Uruchamiacz nie odróżnia w identyfikatorach małych 
liter od dużych Cużycie tej opcji w odniesieniu do 
programów w Turbo Pascalu jest zbyteczneJ. 
Uruchamiacz przyjmuje, że ad jest nazwą katalogu, w 
którym może szukać modułów źródłowych Copcja —sd 
może być użyta wielokrotnie; katalogi są przeszu— 
kiwane w kolejności ich wymienienia; jeśli ponadto 
takie katalogi występują w zbiorze konfiguracyjnym, 


to są przeszukiwane w pierwszej kolejności). 


Opcje =v 


=vn 


Obraz graficzny wygenerowany przez program jest za- 
pamiętywany w pamięci operacyjnej (wymaga to dodat- 
kowo 8 KB, ale jest konieczne, jeśli działanie 
uruchamiacza ma szkodliwy wpływ na postać ekranu 
wyjściowego). 

Wykluczenie możliwości posługiania się zwiększoną 
liczbą wierszy ekranu (43 — EGA, 50 -— VGAV). 


DODATEK G — Konsolidator 


Wywołanie konsolidatora ma w ogólnym przypadku postać 
TLINK obj,exe,map,Lltb 


w której obj reprezentuje nazwę konsolidowanego zbio— 

ru wynikowego, albo ciąg takich nazw oddzielonych znakami 

+ (plus) albo spacjami, exe reprezentuje nazwę zbioru w któ- 
rym zostanie umieszczony skonsolidowany program wykonywalny, 
map reprezentuje nazwę zbioru, w którym będzie umieszczona 
mapa konsolidacji, a Ltb reprezentuje nazwę biblioteki, albo 


ciąg takich nazw oddzielonych znakami + Cplus) albo spacjami. 


Jeśli pewna nazwa zbioru będzie podana bez rozszerzenia, to 
dla obj domniema się .OBJ, dla exe .EXE, dla map .MAP, a 

dla Łtb .LIB. Jeśli pewna nazwa zbioru zostanie pominięta, to 
dla exe i map domniema się część główną nazwy taką samą jak w 


pierwszym obj. 


Jeśli konsolidator zostanie wywołany bez argumentów, to spo- 


woduje Ło wyświetlenie podsumowania jego opcji, którymi są 


c — Polecenie odróżniania małych i dużych liter w 
symbolach zewnętrznych. 
Przykład: /c 


Zd — Polecenie informowania o wystąpieniu tego samego 
symbolu w więcej niż jednej bibliotece. 
Przykład: /d 

ze — Polecenie zignorowania rozszerzonego słownika 
bibliotek. 
Przykład: /e 
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/i — Polecenie umieszczenia w zbiorze wynikowym końcowych 


segmentów, nawet jeśli nie zawierają rekordów danych. 


Przykład: 4/1 


/l — Polecenie umieszczenia w mapie konsolidacji informacji 


o numerach wierszy. 


Przykład: 21 


/m — Polecenie uzupełnienia mapy konsolidacji wykazem sym- 
boli publicznych. 
Przykład: m 


/n — Polecenie zignorowania bibliotek domniemanych. 


Przykład: /n 


/s — Polecenie uzupełnienia mapy konsolidacji wykazem 
symboli publicznych oraz mapą segmentów. 
Przykład: /sS 


ZŁ — Polecenie utworzenia z modułu skompilowanego w modelu 
TINY, programu wykonywalnego typu .COM, a nie .EXE. 
Przykład: /t 


/v — Polecenie włączenia do zbioru zawierającego program 
wykonywalny, informacji uruchomieniowych. 


Przykład: /v 


x — Polecenie nie generowania mapy konsolidacji. 


Przykład: /x< 


W każdym miejscu dyrektywy kompilacji może wystąpić napis o 

postaci ©Name, w którym Name jest nazwą zbioru. Tekst zawarty 
w tym zbiorze jest wówczas włączany w miejscu wystąpienia na— 
pisu ©Name. Jeśli tekst składa się z więcej niż jednego wier— 


sza, to znaki końca wiersza są traktowane tak jakby były zna— 
kami spacji. 


Przykład 


Jeśli zbiór OPTIONS. ASM zawiera napis 
LN 
zc 


Ło dyrektywa 
tlink 1 ©options. asm main 
jest traktowana tak jak dyrektywa 


tasm 41 v +e main 
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DODATEK H — Organizator 


Konstruowanie programów wielomodułowych jest łatwiejsze w 
systemie zintegrowanym niż we wsadowym, ponieważ zarówno ak— 
tualizacja jak i konsolidacja modułów wynikowych jest prze- 


prowadzana automatycznie i we właściwej kolejności. 


Ww Łych przypadkach gdy jest pożądane użycie systemu wsadowe— 
go, można uprościć organizowanie cyklu uruchomieniowego skła— 
dającego się z edycji, kompilacji i konsolidacji, odwołując 


się do usług programu nazywanego tu organizatorem. 
Wywołanie organizatora ma w uproszczeniu postać 
MAKE 
albo 
MAKE —f Name 


w której Name jest nazwą zbioru zawierającego dyrektywy orga— 


nizacyjne i makrodefinicje. 


Jeśli dyrektywa MAKE zostanie użyta w pierwszej postaci, to 


domniema się opcję 
—fMAKEFI LE 

a jeśli zbiór MAKEFILE nie istnieje, to opcję 
-fMAKEFILE. MAK 


Niezależnie od użytej dyrektywy, w zbiorze Name umieszcza się 
dyrektywy organizacyjne o postaci 
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outfite,outyftle, ... ,out/ile : tnfite tnftle ... tnftile 
actton 


actton 


action 


w których każde out/ile jest nazwą zbioru, który ma być utwo"- 
rzony automatycznie za pomocą organizatora, każde in/ftle jest 
nazwą zbioru, od którego zależy out/ile, a każde action jest 


dyrektywą systemu DOS. 


Zinterpretowanie dyrektywy organizacyjnej odbywa się w nastę— 
pujący sposób 


© jeśli pewna nazwa tn/ile występuje w innej, jawnej albo 
niejawnej Cpor. dalej) dyrektywie organizacyjnej, to inter— 
pretowanie danej dyrektywy jest przerywane, w celu zinter — 
pretowania tej innej dyrektywy; 

© po ewentualnym zinterpretowaniu tych dodatkowych dyrektyw 
sprawdza się czy istnieją zbiory out/tle; 

© jeśli przynajmniej jeden zbiór out/tle nie istnieje, albo 
gdy data utworzenia pewnego zbioru titn/tile jest późniejsza od 
daty utworzenia zbioru out/ile, to następuje wykonanie 
wszystkich dyrektyw action i na tym kończy się wykonywanie 
danej dyrektywy organizacyjnej; 


Uwaga: Dyrektywy acżion są poszukiwane: w katalogu bieżącym, 
a następnie w katalogach określonych przez łańuch środowiska 


PATH. 


Przykład Dyrektywa organizacyjna 


greet.exe : greet 
Łasm greet.asm 


tlink greet.obj 


Jeśli zbiór greet.exe jest mniej aktualny niż zbiór greet, to 
nastąpi skompilowanie zbioru greet. asm dyrektywą 


Łasm greet. asm 
oraz Sskonsoldowanie go dyrektywą 


tlink greet. obj 
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Komentarze 


Jeśli w pewnym wierszu dyrektywy organizatora występuje znak 
4 Chash), Ło pozostałe znaki tego wiersza są ignorowane. Ig- 
norowane w całości są także wiersze zaczynające się od takie— 


go znaku. 


Wiersze 


Dyrektywy za długie mogą być kontynuowane. Ostatnim znakiem 
wiersza kontynuowanego musi być znak N Cukosśntko. Zabrania 


się jednak kontynuowania komentarzy. 


Dyrektywy 


Poszczególne dyrektywy oranizacyjne są oddzielane wierszami 
pustymi. Wymaga się, aby napis out/ftle rozpoczynał się od 
pierwszego znaku wiersza, oraz aby każdy z napisów acłion był 


poprzedzony co najmniej jednym znakiem spacji albo tabulacji. 


Przykład Dyrektywy organizatora 


main.exe : main.asm N 
test. asm 
tasm /Ł main. asm 
tasm /t test. asm 
tlink main tŁest,prog 


main.obj : main.asm 
tasm /Ł main. asm 


tŁest.obj : test.asm 
tasm /tŁ „ml test.asm 


Dyrektywy domniemane 


Niejawnym rozszerzeniem zestawu dyrektyw organizacyjnych są 
dyrektywy domniemane, wynikające z regul wnioskowania. 


W ogólnym przypadku reguła wnioskowania ma postać 


.fromExt .toExt: 
actton 
action 


action 
w której ./fromExt i .ŁoExt Są rozszerzeniami nazw zbiorów. 


Przyjmuje się z definicji, że kaźda reguła wnioskowania o 
podanej postaci generuje rodzinę niejawnych dyrektyw 


organizacyjnych 
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name. ŁOEXxŁ : name. fjromExt 
actton 


actton 


actton 


Reguły wyrażone przez dyrektywy domniemane są Stosowane do 
tych dyrektyw organizacyjnych, w których zestaw dyrektyw 
systemu DOS jest pusty. 


Przykład Reguly wnioskowania 


Jeśli w interpretowanym zbiorze znajduje się reguła wnios— 


kowania 


„pas. exe: 
warn 


oraz dyrektywy 


main.exe : main.pas 


Łest.exe : test. pas 


to przytoczone dyrektywy są traktowane tak jak dyrektywy 


main.exe : main.pas 
warn 

Łest.exe : test. pas 
warn 


Makrodefitnicje t makrowywolanta 


Posługiwanie się dyrektywami organizcyjnymi jest bardzo u- 
łatwione dzięki możliwości użycia makrodefinicji i makro- 


wywołań. 


Zapis makrodefinicji jest bardzo prosty i sprowadza się do 


polecenia 
Name = Text 


w którym Name jest nazwą makrodefinicji, a Text jest dowolnym 


napisem nie zawierającym spacji. 


Zinterpretowanie makrodefinicji powoduje związanie z nazwą 


Name tekstu Text. W zasięgu makrodefinicji, każdy napis 


$C Name 
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jest zastępowany napisem 7ext. Stan zdefiniowania symbolu 


Name utrzymuje się aż do odwołania dyrektywą 


iundef Name 


Makrodefinticje predeklarowane 


Kilka makrodefinicji jest predeklarowanych i ma nieco odmien— 


ną składnię. Ich wywołania powodują udostępnienie 


$dC Name) 


napisu 1, jeśli Name jest zdefiniowane, 


napisu O, w przeciwnym przypadku; 


$* — ścieżki i części głównej nazwy zbioru out/tte; 


Przykład: C: NIPNGREET. PAS => C: NIPNGREET 


$< - pełnej nazwy zbioru ouż/tie Cjeśli $< występuje 
w dyrektywie organizacyjnej. albo pełnej nazwy 
zbioru z rozszerzeniem . fromExt Cjeśli $< wystę- 
puje w regule wnioskowania); 


Przykład: C: NIPNGREET. PAS => C: NIPNGREET. PAS 


$: - ścieżki zawartej w nazwie out/tle; 


Przykład: C: NIPNGREET. PAS => C: NIPN 


$. — pełnej nazwy zbioru out/tle, ale bez ścieżki; 


Przykład: C: NIPNGREET. PAS => GREET. PAS 


58 — części głównej nazwy zbioru out/tle; 
Przykład: C: NIPNGREET. PAS => GREET 


Przykład Makrodefinicje it makrowywołania 
Jeśli interpretowany zbiór zawiera dyrektywy 


„asm.obj. 
tasm /tŁ $% 


main.obj : main.asm 


to zinterpretowanie go jest równoważne zinterpretowaniu 
dyrektywy 


main.obj : main.asm 


Łasm /Ł main. asm 


Wlączanie zbiorów, kompilacja warunkowa 


Organizator umożliwia posługiwanie się dyrektywami włączania 
zbiorów i dyrektywami kompilacji warunkowej. W ogólnym przy- 
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padku dyrektywa włączenia zbioru ma postać 


iinclude 'Name*' 


w której Name jest nazwą włączanego zbioru, a dyrektywa 
kompilacji warunkowej ma postać ogólną 
lIif Exp 
Text 
lelif Expl 
Text1 
telif Expo 
Text2 
'ielif Expn 
rTextn 
lelse 


Texto 
lendif 


w której każde Exp jest wyrażeniem, a każde Text jest dyrek-— 
Ływą albo ciągiem dyrektyw. 


Zinterpretowanie dyrektywy włączenia zbioru powoduje włącze— 
nie w miejscu jej wystąpienia tekstu zawartego w zbiorze Na— 


me. 


Zinterpretowanie dyrektywy kompilacji warunkowej powoduje 


niejawne zastąpienie frazy 


lelse 
Texto 


frazą 
'ielif 1 


a następnie włączenie w miejscu wystąpienia całej dyrektywy, 
tego tekstu Text, który następuje po pierwszym wyrażeniu o 


wartości różnej od O. 
Operatory 


W obrębie wyrażeń można posługiwać się następującymi 


operatorami 


Operator Funkcja 


zmiana znaku 
negacja bitów 
zaprzeczenie 
dodawanie 
odejmowanie 
mnożenie 
dzielenie 
reszta 


ŃNXKI+"2 
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< przesunięcie w lewo 

>> przesunięcie w prawo 

ś iloczyn logiczny bitów 
i suma logiczna bitów 
różnica symetryczna bitów 
68 koniunkcja 

alternatywa 

większe 

mniejsze 

mniejsze lub równe 
większe lub równe 
równe 

nie równe 

warunek 


Jm JIYAAY== 


jeśli a==0, to warunek a ? b :c ma wartość b; 


w przeciwnym razie ma wartość cJ 


Przykład Dyrektywy titnterpretacjti warunkowej 


alpha = 4 
'iif alpha + 1 !=S5 
„asm.obj. 

tasm $< 
lielse 
„asm.obj. 

tasm /tŁ $< 
lendif 


Zinterpretowanie przytoczonych dyrektyw ma taki sam skutek 
Jak zinterpretowanie dyrektyw 
alpha = 4 


. asm. obj 
tasm /tŁ $%*. ASM 


Wywołanie organizatora ma w ogólnym przypadku postać 


MAKE options Name,Name, ... „Name 


w której options reprezentuje opcje, a każde Name jest nazwą 
zbioru, do którego będą zastosowane dyrektywy zawarte w zbio- 


rze poddawanym interpretacji. 


Jeśli w dyrektywie MAKE występują nazwy Name, to dla każdej z 
nich następuje zinterpretowanie dyrektywy organizacyjnej za— 
czynającej się od tej nazwy. Jeśli w interpretowanym zbiorze 
nie występuje taka dyrektywa organizacyjna, to postępuje się 
tak, jakby na jego początku wsystąpiła dyrektywa organizacyj- 
na 


Name: 


Cbez tnfile i action0. Umożliwia to zastosowanie dyrektyw do- 


mniemanych na podstawie reguł wnioskowania. 
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Uwaga: Częściej stosowane reguły wnioskowania mogą być umiesz— 
czone w zbiorze BUILTINS. MAK. Zawartość tego zbioru jest nie- 


jawnie włączana na początku zbioru poddawnaego interpretacji. 


Pełen zestaw obejmuje następujące opcje 


—a polecenie sprawdzenia uzależnień, 
—DName polecenie zdefiniowania symbolu Name, 
-DName=Val polecenie zdefiniowania symbolu Name i przy- 


pisania mu wartości Val, 


-f Name polecenie zinterpretowania zbioru Name, 
-h polecenie podania opcji, 
-IDtr polecenie poszukiwania zbiorów włączanych w 


katalogu Dtr, 

-—n polecenie wyprowadzania dyrektyw bez wykony— 
wania ich, 

-S polecenie zaniechania wyprowadzania wykony— 
wanych dyrektyw, 

—UName polecenie uznania symbolu Name za niezdefinio— 


wany. 


Uwaga: W sytuacji gdy zachodzi potrzeba uaktualnienia daty 
zbioru, można posłużyć Się programem TOUCH. Wywołanie go za 


pomocą dyrektywy 
TOUCH /ftlename, filename, ... ,ftlename 


w której każde filename jest nazwą zbioru, powoduje związanie 
z każdym z nich bieżącej daty i czasu. Wykonanie tej operacji 
jest zazwyczaj traktowane jako przygotowanie do wykonania or- 


ganizatora MAKE. 


SKOROWI DZ 


adres bezpośredni 
adres pamięci 

adres pośredni 

adres rejestrowy 
adresacja 

adresowanie rozkazu 
argument docelowy 
argument źródłowy 
asembler 

biblioteka 

biblioteka modułów 
blok 

błąd wejścia-wyjścia 
część deklaracyjna 
część prywatna modułu 
część publiczna modułu 
część wykonawcza 
czynnik 

deklaracja definiująca 
deklaracja etykiety 
deklaracja procedury 
deklaracja przesłaniająca 
deklaracja symbolu 
deklaracja typu 
deklaracja zapowiadająca 
deklaracja zmiennej 
deklaracja zmiennej zainicjowanej 
dyrektywa 

dyrektywa ARG 
dyrektywa ASSUME 
dyrektywa DOSSEG 
dyrektywa EXTERN 
dyrektywa GLOBAL 
dyrektywa GROUP 
dyrektywa IDEAL 
dyrektywa LABEL 
dyrektywa LOCAL 
dyrektywa MASM 
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61, 182 


dyrektywa MODEL 
dyrektywa PUBLIC 
dyrektywa SEGMENT 
dyrektywa bezwarunkową 
dyrektywa kompilacji warunkowej 
dyrektywa organizacyjna 
dyrektywa przełączająca 
dyrektywa uproszczona 
dyrektywa warunkowa 
edytor ekranowy 
etykieta 

etykieta lokalna 
identyczność typów 
identytikator 

indeks 

instrukcja grupująca 
instrukcja kodowa 
instrukcja powtarzająca 
instrukcja procedury 
instrukcja przejścia 
instrukcja przypisania 
instrukcja pusta 
instrukcja warunkowa 
instrukcja wiążąca 
instrukcja wyboru 
jednostka leksykalna 
kolidowanie identyfikatorów 
komentarz 

kompilacja warunkowa 
kompilator 

kompilowanie programu 
konsolidator 

konwersja 

konwerter 

konwer Łor 

kwalifikator 
kwalifikowanie identyfikatorów 
literał 

literał całkowity 
literał logiczny 
literał łańcuchowy 
literał mnogościowy 
literał rzeczywisty 
literał wyliczeniowy 
makrodefinicja 
makrodefinicja specjalna 
makrowywołanie 

menu 

menu główne 

menu lokalne 

menu podrzędne 
metanazwa 

moduł 

moduł Crt 

moduł Dos 

moduł Graph 

moduł Overlay 

moduł Printer 

moduł System 
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moduł Turbo3 

moduł główny 
modyfikowanie programu 
nazwa obiektu 
obserwowanie zmiennych 
okienko dialogowe 
okienko edycyjne 
okienko edytora 
okienko globalne 
okienko graficzne 
okienko inspekcyjne 
okienko komunikatów 
okienko koprocesora 
okienko lokalne 
okienko moduł ów 
okienko obserwacyjne 
okienko obserwacyjno/wyjściowe 
okienko pamięci 
okienko pomocnicze 
okienko procesora 
okienko pułapek 
okienko rejestrów 
okienko uruchomieniowe 
okienko wyjaśniające 
okienko wyjściowe 
okienko wywołań 
okienko zbiorów 
okienko zmiennych 


opcje menu 


operator arytmetyczny 
operator bitowy 
operator dwuargumentowy 
operator jednoargumentowy 
operator konwersji 
operator logiczny 
operator łańcuchowy 
operator mnogościowy 
operator relacji 
operator wskazania 
opracowanie wyrażenia 
plik blokowy 

plik elementowy 

plik tekstowy 


pole menu 


pole Break/Wwatch 
pole Compile 


pole Edit 
pole File 


pole Options 


pole Run 
prefiks 
procedura 
procedura 
procedura 
procedura 
procedura 
procedura 
procedura 
procedura 


TAA 


graficzna 

kodowa 

nakładkowa 
obliczeniowa 

obsługi przerwań 
systemowa 
wejścia—wyjścia 
zarządzania pamięcią 


procesor 
program kompletny 
punkt zadeklarowania 


ramka 

rejestr 
rejestr 
rejestr 
rejestr 
rejestr 
rejestr 


bazowy 
indeksowy 
segmentowy 
uniwersalny 
znacznków 


reprezentacja adresu 
reprezentacja danej 


reprezentacja wywołania procedury 


rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 


AAD 
AAM 
AAS 
ADC 
ADD 
AND 
BOUND 
CALL 
CBW 
CLC 
CLD 
CLI 
CMC 
CMP 
CMPSB 
CMPSW 
CWD 
DAA 
DAS 
DEC 
DI vV 
ENTER 
ESC 
HLT 
IDIV 
I MUL 
IN 
INC 

I NSB 
I NSW 
INT 
INTO 
IRET 
JMP 
Jcond 
LAHF 
LDS 
LEA 
LEAVE 
LES 
LOCK 
LODSB 
LODSW 
LOOPcond 
MOV 


438 
61 

70 

601 
439 
443 
443 
444 
442 
441 
450 
99 

155 
455 
S13 
513 
513 
514 
514 
515 
S15 
516 
516 
51 7 
51 7 
51 7 
518 
518 
519 
520 
S20 
521 
521 
See 
5S22 
523 
524 
524 
524 
525 
526 
526 
526 
S27 
527 
528 
528 
530 
528 
530 
531 
532 
5S32 
531 
533 
533 
534 
534 
S35 


745 


rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 
rozkaz 


rozwinięcie makrowywołania 


REPcond 
RET 
RETF 
RETN 
ROL 
ROR 
SAHF 
SAL 
SAR 
SBB 
SCASB 
SCASW 
SHL 
SHR 
STC 
STD 
SII 
STOSB 
STOSW 
SUB 
IEST 
WAIT 
XCHG 
XLAT 
XOR 


selektor 


składnia wyrażeń 


składnik 


skojarzenie parametru z argumentem 


słowo kluczowe 


stała 


standardowy typ 
standardowy typ 
standardowy typ 
standardowy typ 
standardowy typ 
standardowy typ 


stos wywołań 
symbol specjalny 
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całkowity 
logiczny 
łańcuchowy 
rzeczywisty 
wskazujący 


znakowy 


542 


452 


74 
75 


75 


system wsadowy 

system zintegrowany 
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Jan Bielecki - inne książki w języku polskim 
wydane po 1980 roku 


e Fortran dla zaawansowanych 
Państwowe Wydawnictwo Naukowe, 1981 


e Programowanie — Algol, Fortran, Pascal 
Wydawnictwa Politechniki Warszawskiej, 1983 
e PL/I — programowanie operacji wejścia/wyjścia 


Wydawnictwa Politechniki Warszawskiej, 1983 
e Preprocesory PL-.I 

Wydawnictwa Politechniki Warszawskiej, 1983 
e Fortran dla zaawansowanych -— II 

Państwowe Wydawnictwo Naukowe, 1983 
e System OS/Riad 

Wydawnictwa Politechniki Warszawskiej, 1984 
e Programowanie hybrydowe, PL/I-Fortran-Assembl er 

wydawnictwa Politechniki Warszawskiej, 1984 
e Podstawy PL-/I 

Wydawnictwa Politechniki Warszawskiej, 1984 
e Ada — interpretacja standardu wejścia-wyjścia 

Wydawnictwa Politechniki Warszawskiej, 1985 
e Programowanie mikrokomputerów w systemie ISIS 

Wydawnictwa Politechniki Warszawskiej, 1985 
e PL/I programowanie operacji wejścia-wyjścia — II 

Wydawnictwa Politechniki Warszawskiej, 1985 
e Programowanie — Algol, Fortran, Pascal — II 

Wydawnictwa Politechniki Warszawskiej, 1985 
© VSAM — programowanie operacji wejścia-wyjścia 

Wydawnictwa Politechniki Warszawskiej, 1986 
e Języki programowania mikrokomputerów 

Wydawnictwa Politechniki Warszawskiej, 1986 
e Programowanie — Algol, Fortran, Pascal 

Państwowe Wydawnictwo Naukowe, 1986 
e Rozszerzony PL/I w systemie OS/Riad 

Państwowe Wydawnictwo Naukowe, 1986 
© System OS/Riad — II 

Wydawnictwa Politechniki Warszawskiej, 1986 
e Preprocesory PL/I - II 

Wydawnictwa Politechniki Warszawskiej, 1986 
e Programowanie hybrydowe PL/I -Fortran-Assembler -— II 

wydawnictwa Politechniki Warszawskiej, 1986 
e Programowanie operacji wejścia-wyjścia — PL/I 

Państwowe Wydawnictwo Naukowe, 1986 
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Języki programowania mikrokomputerów - II 
Wydawnictwa Politechniki Warszawskiej, 1987 
Programowanie operacji wejścia-wyjścia - Ada 
Państwowe Wydawnictwo Naukowe, 1987 
Język C - interpretacja standardu 
Wydawnictwa Naukowo Techniczne, 1987 
Turbo Pascal, wersja 3.0 
Wydawnictwa Naukowo-Techniczne, 1987 
System VSAM 
Wydawnictwa Naukowo Techniczne, 1987 
Oprogramowanie mikrokomputerów 
Wydawnictwa Komunikacji i Łączności, 1987 
Programowanie mikrokomputerów w systemie ISIS 
Wydawnictwa Naukowo-Techniczne, 1987 
Język Fortran 77 
Wydawnictwa Naukowo-Techniczne, 1988 
Język Forth 
Wydawnictwa Naukowo-Techniczne, 1988 
Wprowadzenie do języka C 
Wydawnictwa Naukowo-—Iechniczne, 1988 
Turbo Pascal — wersja 4.0 
Wydawnictwa Komunikacji i Łączności, 1988 
Turbo Pascal dla Elwro 800 Jr 
Wydawnictwa Naukowo—Techniczne, 1988 
Język C -— interpretacja standardu, — II 
Wydawnictwa Naukowo Techniczne, 1988 
Przegląd oprogramowania IBM PC i PCZXT, 2 tomy 
Wydawnictwa Politechniki Warszawskiej, 1988 
Turbo Pascal, wersja 3.0 - II 
Wydawnictwa Naukowo-lIechniczne, 1988 
Sam na sam z językiem C 
Wydawnictwa Komunikacji i Łączności, 1988 
Podstawy PL/1 -— II 
Wydawnictwa Politechniki Warszawskiej, 1988 
System OS/Riad — III 
Wydawnictwa Politechniki Warszawskiej, 1988 
Język C w systemie CP/M 
Wydawnictwa Komunikacji i Łączności, 1989 
Rozszerzony PL/I w systemie OS/Riad — II 
Państwowe Wydawnictwo Naukowe, 1989 
Fortran dla zaawansowanych — III 
Państwowe Wydawnictwa Naukowe, 1989 
Turbo Pascal z grafiką dla IBM PC 
Wydawnictwa Naukowo—lechniczne, 1989 
Podstawy grafiki w językach Basic i Turbo Pascal 
Wydawnictwa Komunikacji i Łączności, 1989 
System Quick C 
Wydawnictwa Komunikacji i Łączności, 1989 
Grafika Turbo — od Turbo Pascala do Turbo C 
Wydawnictwa Komunikacji i Łączności, 1989 
TopSpeed — rozszerzona Modula-2 dla IBM PC 
Państwowe Wydawnictwa Naukowe, 1989 
Turbo C€ dla programistów 
Wydawnictwa Komunikacji i Łączności, 1989 
Turbo C z grafiką dla IBM PC 
Wydawnictwa Naukowo-—lIechniczne, 1989 
Encyklopedia rozszerzonego języka C 
Wydawnictwa Komunikacji i Łączności, 1989 
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